Windev21 Aulas,Estudos e Desenvolvimento: Windev Mobile Relatorio

Mostrando postagens com marcador Windev Mobile Relatorio. Mostrar todas as postagens

quarta-feira, 29 de junho de 2016

WM Imprimir Mobile - Print From Mobile

Forum.pcsoft.fr/fr-FR/pcsoft.br.windev/1398-imprimir-mobile-print-from-mobile/read.awp

Posté le 28 juin 2016 - 23:18

1 - Procedimento para Conectar/Desconectar
1 - Procedimiento para Conectar/Desconectar
1 - Procedure to Connect and Disconnect

// Summary: Conectar/Desconectar con la Impresora
// Syntax:
//[
 <Result> = ] PRINT_ConnectarDesconectar 
(<s_nombreDispositivo> is string [, <b_conectarDesconectar> 
is boolean [, <s_socketNombre> is string]])
//
// Parameters:
// s_nombreDispositivo (ANSI string): Nombre del Dispositivo Bluetooth conectado al Telefono
// b_conectarDesconectar (boolean - default value=1): Para Conectar(true) o Desconectar(false)
// s_socketNombre (ANSI string - default value=""): Nombre del Socket para la Desconexion
// Return Value:
//  Unspecified Type: //  String
//
// For instance:
// Indicate an example.
//
Procedure PRINT_ConnectarDesconectar(s_nombreDispositivo is string,b_conectarDesconectar is boolean = True , s_socketNombre is string = "")
WHEN EXCEPTION IN
 IF b_conectarDesconectar = True THEN
  s_listaDeDispositivos is string
  s_dispositivo is string //Para el For Each
  s_idDispositivo is string
  s_mACAddress is string //Este es la informacion que nos interesa
  s_listaDeDispositivos = BTListDevice(btSimpleList) //Lista todos los dispositivos Conectados
  b_conectado is boolean = False
  FOR EACH STRING s_dispositivo OF s_listaDeDispositivos SEPARATED by CR
   s_idDispositivo = ExtractString(s_dispositivo, 1)
   s_mACAddress = ExtractString(s_dispositivo, 2)
   IF s_nombreDispositivo = BTInfoDevice(s_idDispositivo, btName) THEN //Si encontramos el Dispositivo que queremos, Conectamos
    b_conectado = True
    BREAK
   END
  END
  IF b_conectado THEN
   s_sock is string
   s_sock = "SOCK"+s_mACAddress
   IF NOT SocketConnectBluetooth(s_sock,"SerialPortServiceClass_UUID",s_mACAddress,15000) THEN
    RESULT "No se Pudo Conectar a la Impresora " + ErrorInfo()
   ELSE
    SocketChangeTransmissionMode(s_sock,SocketEndTag,CRLF) //Cambiar a modo Fin de Texto para el envio de String
    RESULT s_sock //en caso de Conexion retornamos el SOCK
   END
  ELSE
   RESULT "No Se Encontro Dispositivo"
  END
 ELSE
  IF SocketClose(s_socketNombre) THEN
   RESULT ""
  ELSE
   RESULT "Error "+ErrorInfo()
  END
 END
DO
 RESULT "Error Exception "+ExceptionInfo()
END

2 - Procedimento para Enviar Impresão
2 - Procedimiento para Enviar la Impresion
2 - Procedure to Send to Printer

// Summary: Envia Impresion para la Impresora
// Syntax:
//[ <Result> = ] PRINT_Imprimir (<s_nombreSocket> is string, <s_texto> is string)
//
// Parameters:
// s_nombreSocket (ANSI string): Nombre del Socket Creado por >> PRINT_ConnectarDesconectar <<
// s_texto (ANSI string): Texto a Imprimir
// Return Value:
//  boolean: // True = Imprimio, False = No Imprimio
//
// For instance:
// Indicate an example.
//
Procedure PRINT_Imprimir(s_nombreSocket is string , s_texto is string)
IF NOT SocketWrite(s_nombreSocket,s_texto) THEN
 Info("Error al Enviar Impresion"+ErrorInfo())
 RESULT False
ELSE
 RESULT True
END

Exemplo de como utilizar
Ejemplo de como utilizar
Example of using

s_socketImpresora is string
s_socketImpresora = PRINT_ConnectarDesconectar("MPD2",True,"")
IF Left(s_socketImpresora,4) = "SOCK" THEN //Conectado
 PRINT_Imprimir(s_socketImpresora,"HOLA MUNDO Con Windev Mobile")
 PRINT_ConnectarDesconectar("",False,s_socketImpresora)
ELSE
 Info(s_socketImpresora)
END

Bom Proveito

--
Atte. Willian Fernando

Vous devez être connecté pour évaluer ce message

BOLLER ADRIANO

Membre enregistré
1 866 messages
Popularité : +89 (91 votes)

Posté le 29 juin 2016 - 00:47

Parabéns Willian!

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/

Willian Fernando

Membre enregistré
59 messages
Popularité : +5 (5 votes)

Posté le 29 juin 2016 - 16:55

A modo de correção
Correccion

no primeiro metodo
en el primer metodo
In the first method

IF SocketClose(s_socketNombre) THEN
RESULT ""
ELSE
RESULT "Error "+ErrorInfo()
END

deve estar assim
debe estar asi
You must be well

SocketClose(s_socketNombre)
RESULT ""

o metodo SocketClose http://doc.pcsoft.fr/en-US/?3070015&name=SocketClose não retorna valores
el metodo SocketClose http://doc.pcsoft.fr/en-US/?3070015&name=SocketClose no devuelve valores
the method SocketClose http://doc.pcsoft.fr/en-US/?3070015&name=SocketClos does not return values

terça-feira, 28 de junho de 2016

WM - Imprimindo usando Windev Mobile em uma Impressora Bluetooth

Forum.pcsoft.fr/fr-FR/pcsoft.br.windev/1315-imprimindo-usando-windev-mobile-uma-impressora-bluetooth/read.awp

rezados,

Segue exemplo de como imprimir usando Windev Mobile em uma Impressora Bluetooth e serve também para Impressora ZEBRA deve ter suporte TSPL/TSPL2 com linguagem zpl.

Esse exemplo foi enviado por: Marcos Ríos
Skype ID: trionika
Arequipa, Arequipa, Peru

TELA:

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] texto_imprimir ()
//
// Parameters:
// None
// Return Value:
// UNICODE string: // None
//
// For instance:
// Indicate an example.
//
Procedure texto_imprimir()
sCadena is string
IF NoSpace(EDT_Texto)="" THEN
sCadena = [
CODEPAGE 8859-1
SPEED 4
SIZE 4,1
GAP 0,0
DIRECTION 0
CLS
TEXT 80,20,"2",0,1,1,1,"ALIMENTOS PROCESADOS S.A."
TEXT 75,35,"2",0,1,1,1,"-----------------------------------"
PDF417 80,50,400,400,0,E4,"B9idg1tcbOYOSYwWglmS/v5CoiQ="
PRINT 1,1
CLS
];
ELSE
sCadena = EDT_Texto;
END
RESULT sCadena

Procedure Global JAVA:

//FUNÇÃO: imprime_texto

import android.util.Log;
import android.app.Activity;
import android.bluetooth.BluetoothAdapter;
import android.bluetooth.BluetoothDevice;
import android.bluetooth.BluetoothSocket;
import android.content.Intent;
import android.os.Bundle;
import android.os.Handler;
import android.view.View;
import android.widget.TextView;
import android.widget.EditText;
import android.widget.Button;
import java.io.IOException;
import java.io.InputStream;
import java.io.OutputStream;
import java.util.Set;
import java.util.UUID;

PUBLIC static void imprime_texto()
{
// android built in classes for bluetooth operations
BluetoothAdapter mBluetoothAdapter;
BluetoothSocket mmSocket;
BluetoothDevice mmDevice;

OutputStream mmOutputStream;
InputStream mmInputStream;
Thread workerThread;

byte[] readBuffer;
int readBufferPosition;
int counter;
string impresora;
impresora = "";

try {
mBluetoothAdapter = BluetoothAdapter.getDefaultAdapter();

Set<BluetoothDevice> pairedDevices = mBluetoothAdapter.getBondedDevices();
IF (pairedDevices.size() > 0) {
impresora = "BT-TEST";
for (BluetoothDevice device : pairedDevices) {

IF (device.getName().equals(impresora)) {
mmDevice = device;
UUID uuid = UUID.fromString("00001101-0000-1000-8000-00805f9b34fb");
mmSocket = mmDevice.createRfcommSocketToServiceRecord(uuid);
mmSocket.connect();
mmOutputStream = mmSocket.getOutputStream();
mmInputStream = mmSocket.getInputStream();
string msg = callWLProcedure_String("texto_imprimir");
msg += "\n";

mmOutputStream.write(msg.getBytes());
mmOutputStream.close();
mmInputStream.close();
mmSocket.close();
BREAK;
}
}
}
} catch (NullPointerException e) {
e.printStackTrace();
} catch (EXCEPTION e) {
e.printStackTrace();
}
}
//Summary: <specify the procedure action>
// Syntax:
// imprimir_cadena ()
//
// Parameters:
// None
// Return Value:
// None
//
// For instance:
// Indicate an example.
//
//PROCEDURE imprimir_cadena()
//
//

BOTÃO IMPRIMIR:

imprime_texto()

Link para aquisição da Impressora:

http://www.aliexpress.com/snapshot/7823102237.html…

Fontes:

http://depot.pcsoft.fr/publish.awp…

REQUISITO: Windev Mobile 21

Esse exemplo foi enviado por: Marcos Ríos
Skype ID: trionika
Arequipa, Arequipa, Peru

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/

Message modifié, 27 juin 2016 - 23:22