Exemplo ECF Dataregis Quick

[jfaguiar]

Boa noite amigos.

Alguém tem algum exemplo dos comandos básicos dessa impressora? Tipo, abrir cupom, vender item, formas de pagamentos, encerra cupom, etc.

Obrigado

 

[tiaoFW]

Bom dia

 

Você tem os comandos implementados para URANO/ZPM?

 

 

[jfaguiar]

Não, não tenho Tião.

[rochinha]

Amiguinhos,

Use o ACBrMonitor ou ACBrMonitorPLUS e implemente por .TXT, escolha nas impressoras o protocolo FiscNET ao invés de Dataregis.

Porque digo isto. Logo não precisaremos mais implementar estas impressoras tudo segue rumo a S@T-CFe ou NFC-e.

 

Eu tentei implementar o uso da .DLL e não obtive sucesso e nem soube que conseguiu.

 

 

[tiaoFW]

Bom dia.

 

Segue as declarações de uso da DLL DLLG2.DLL que é a mesma usada pela DataRegis.

 

Você precisara consultar o manual de programação para ver como implementar cada comando:

 

// Inicio Urano Logger2

DLL32 FUNCTION T_INICIA(Canal AS STRING)                               ;
         AS _INT PASCAL FROM 'DLLG2_IniciaDriver'                          ;
         LIB xDll

DLL32 FUNCTION T_ENCERR(Canal AS LONG)                                  ;
      AS _INT PASCAL FROM 'DLLG2_EncerraDriver'                         ;
      LIB xDll

DLL32 FUNCTION T_LISTPA( Canal AS LONG, NomeParam AS STRING,            ;
      TamList AS LONG )                                                 ;
      AS STRING FROM 'DLLG2_ListaParams'                                ;
      LIB xDll

DLL32 FUNCTION T_EXECUT(Canal AS LONG, Comando AS STRING)               ;
      AS _INT PASCAL FROM 'DLLG2_ExecutaComando'                        ;
      LIB xDll

DLL32 FUNCTION T_CODERR(Canal AS LONG)                                  ;
      AS _INT PASCAL FROM 'DLLG2_ObtemCodErro'                          ;
      LIB xDll

DLL32 FUNCTION T_NOMERR(Canal AS LONG, NomeErro AS PTR,                 ;
      TamNome AS PTR)                                                   ;
      AS STRING PASCAL FROM 'DLLG2_ObtemNomeErro'                       ;
      LIB xDll

DLL32 FUNCTION T_CIRCUN(Canal AS LONG, Circunst AS PTR,                 ;
      TamCirc AS PTR)                                                   ;
      AS STRING PASCAL FROM 'DLLG2_ObtemCircunstancia'                  ;
      LIB xDll

DLL32 FUNCTION T_TIMEOU(Canal AS LONG, Timeout AS LONG)                 ;
      AS NIL PASCAL FROM 'DLLG2_DefineTimeout'                          ;
      LIB xDll

DLL32 FUNCTION T_DEFLOG(NomeArquivo AS STRING)                          ;
      AS NIL PASCAL FROM 'DLLG2_SetaArquivoLog'                         ;
      LIB xDll

DLL32 FUNCTION T_LIMPPA(Canal AS LONG)                                  ;
      AS NIL PASCAL FROM 'DLLG2_LimpaParams'                            ;
      LIB xDll

DLL32 FUNCTION T_ADDPAR(Canal AS LONG, NomeParam AS STRING,             ;
      ValorParam AS STRING, TipoParam AS LONG)                          ;
      AS NIL PASCAL FROM 'DLLG2_AdicionaParam'                          ;
      LIB xDll

DLL32 FUNCTION T_TOTRET(Canal AS LONG)                                  ;
      AS _INT PASCAL FROM 'DLLG2_TotalRetornos'                         ;
      LIB xDll

DLL32 FUNCTION T_RETORN(Canal AS LONG, Indice AS LONG,                  ;
      NomeRetorno AS STRING, TamNome AS LONG, ValorRetorno AS STRING,   ;
      TamvalorRetorno AS LONG)                                          ;
      AS _INT PASCAL FROM 'DLLG2_Retorno'                               ;
      LIB xDll

DLL32 FUNCTION T_GETRET(Canal AS LONG, Retornos AS PTR,                 ;
      TamRetornos AS LONG)                                              ;
      AS STRING PASCAL FROM 'DLLG2_ObtemRetornos'                       ;
      LIB xDll

DLL32 FUNCTION T_CONFVEL(Canal AS LONG, Speed AS LONG)                  ;
      AS STRING PASCAL FROM 'DLLG2_ConfiguraDriver'                     ;
      LIB xDll

DLL32 FUNCTION BAUDRATE_U( InBaudRate AS LONG )                         ;
      AS STRING PASCAL FROM 'DLLReadDefineBaudRate'                     ;
      LIB xDllleit

DLL32 FUNCTION LeMemorias_U( @szPortaSerial AS STRING, @szNomeArquivo AS STRING, ;
                             @szSerieECF AS STRING, bAguardaConcluirLeitura AS STRING ) ;
      AS STRING PASCAL FROM 'DLLReadLeMemorias'                     ;
      LIB xDllleit // DLL LEITURA.DLL

DLL32 FUNCTION GeraAto17_U( @szArquivoBinario AS STRING, @szArquivoTexto AS STRING, ;
                            @szPeriodoIni AS STRING, @szPeriodoFIM AS STRING, TipoPeriodo ;
                            AS STRING, @szUsuario AS STRING, @szTipoLeitura AS STRING ) ;
      AS STRING PASCAL FROM 'DLLATO17GeraArquivo'                     ;
      LIB xdllato17 // DLL ATO17.DLL

// Fim Urano
 

Segue anexo os manuais.

 

Boa sorte.

 

Manual DLL Windows.doc

[jfaguiar]

Obrigado Amigos. Isso me faz lembra qundo desenvolvi o meu primeiro cupom fiscal para uma impressora da marca Quattro! O fabricante só pensou na linha de produção e se esqueceu dos parceiros programadores!!!

 

Edited January 7, 2017 by jfaguiar
complemento importante