Impresora Fiscal Venezuela

[JoseAlvarez]

Saludos amigos del foro.

En esta oportunidad mi consulta va dirigida a los colegas Venezolanos.

Alguno sabe como usar la impresora fiscal?? Estoy terminando un sistema de facturacion y solo tengo hecha la impresion de la factura de manera normal y simple, sobre una hoja media carta.

De verdad no tengo idea de por donde comenzar y mucho menos terminar la impresión en las maquinas fiscales.

Cualquier ayuda será bienvenida y muy apreciada.

Mi correo: jose.alvarez.rada@gmail.com

Uso FW17.01 + xHarbour + MariaDB

Gracias ¡

[karinha]

My dear friend, cual és la impresora, BEMATECH, DARUMA, SWEDA?

Creo que la más fácil de usar/dominar, sea el impresora DARUMA. se bién, hay ejemplos para BEMATECH en este foro.

http://forums.fivetechsupport.com/viewtopic.php?p=74099

https://epson.com.ve/productos-fiscales-epson

https://www.lawebdelprogramador.com/foros/Clipper-FiveWin/697275-Impresora-Fiscal.html

Regards, saludos.

[JoseAlvarez]

My dear friend, cual és la impresora, BEMATECH, DARUMA, SWEDA?

Creo que la más fácil de usar/dominar, sea el impresora DARUMA. se bién, hay ejemplos para BEMATECH en este foro.

http://forums.fivetechsupport.com/viewtopic.php?p=74099

https://epson.com.ve/productos-fiscales-epson

https://www.lawebdelprogramador.com/foros/Clipper-FiveWin/697275-Impresora-Fiscal.html

Regards, saludos.

Master joao, las mas populares en Venezuela son la EPSON y la BEMATECH

[karinha]

Code: Select all  Expand view  RUN

#Include "Fivewin.Ch"

STATIC XDLL_EPSON  //-> DLL DA IMPRESSORA FISCAL EPSON TMT81

/*****************************************************************************/
/* Declaração de funções da DLL 32 Bits para cupom fiscal TMT81              */
/*****************************************************************************/
// Abre porta de comunicacao

DLL32 FUNCTION EpAbrPorCo(Veloc    AS PTR,;
                          Port     AS PTR) AS LONG PASCAL;
      FROM "EPSON_Serial_Abrir_Porta"       LIB XDLL_EPSON

// Fecha porta de comunicacao
DLL32 FUNCTION EpFecPorCo(             ) AS LONG PASCAL;
      FROM "EPSON_Serial_Fechar_Porta"      LIB XDLL_EPSON

// EFetua recebimento nao fiscal MFD
DLL32 FUNCTION EpEfRcNFMFD( vNroOp       AS LPSTR,;
                            vVlrOp       AS LPSTR,;
                            nCasDec      AS   PTR ) AS LONG PASCAL;
      FROM "EPSON_NaoFiscal_Vender_Item"                 LIB XDLL_EPSON

// Fecha Comprovante nao Fiscal
DLL32 FUNCTION EpFcRecNfMF( OpCortaPapel     AS BOOL ) AS LONG PASCAL ;
      FROM "EPSON_NaoFiscal_Fechar_Comprovante" LIB XDLL_EPSON

// Verifica Corte Gilhotina
DLL32 FUNCTION EpVerCorGui( @ST1          AS BOOL   ) AS LONG PASCAL;
      FROM "EPSON_Obter_Estado_Corte_Papel"              LIB XDLL_EPSON

// Ativa Corte Gilhotina
DLL32 FUNCTION EpAtvCrtCup( lOpCorPap      AS BOOL  ) AS LONG PASCAL;
      FROM "EPSON_Config_Corte_Papel"                    LIB XDLL_EPSON

// cancelamento recebimento
DLL32 FUNCTION EpCanRecNFs(                         ) AS LONG PASCAL;
      FROM "EPSON_NaoFiscal_Cancelar_Comprovante" LIB XDLL_EPSON

// Programa um caracter gráfico para autenticação
DLL32 FUNCTION EpPrgCrAut( vDadLog          AS LPSTR,;
                           nTamCam             AS PTR,;
                           nLinha1          AS LPSTR ) AS LONG PASCAL ;
      FROM "EPSON_Config_Logotipo" LIB XDLL_EPSON

// Cancela impressão de cheque
DLL32 FUNCTION EpCanImChq(                         ) AS LONG PASCAL ;
      FROM "EPSON_Cheque_Cancelar_Impressao" LIB XDLL_EPSON

// Nomeia Totalizadores Nao fiscais
DLL32 FUNCTION EpNomToNSI( vDesTot     AS LPSTR,;
                           @nIdTot      AS   PTR) AS LONG PASCAL ;
      FROM "EPSON_Config_Totalizador_NaoFiscal" LIB XDLL_EPSON

// Retorna os dados da impressora no momento da última Redução Z
DLL32 FUNCTION EpDadUlRed( vUltRed         AS LPSTR ) AS LONG PASCAL;
      FROM "EPSON_Obter_Dados_Ultima_RZ"                 LIB XDLL_EPSON

// Programa os espacamentos de linhas entre os cupons
DLL32 FUNCTION EpVerLECup( EspCup    AS LPSTR      ) AS LONG PASCAL;
      FROM "EPSON_Config_Espaco_Entre_Documentos"      LIB XDLL_EPSON

// Programa os espacamento entre as linhas no cupom
DLL32 FUNCTION EpVerEsLin( vEspLin         AS LPSTR    ) AS LONG PASCAL;
      FROM "EPSON_Config_Espaco_Entre_Linhas"               LIB XDLL_EPSON

//Programa o nome da moeda no singular e no plural para a expresão em cheque
DLL32 FUNCTION EpPrgMoSin( vSing         AS LPSTR,;
                           vPlural       AS LPSTR) AS LONG PASCAL ;
      FROM "EPSON_Cheque_Configurar_Moeda"            LIB XDLL_EPSON

//Programa Aliquota ECF
DLL32 FUNCTION EpProAlEcf( Valor           AS LPSTR,;
                           IssIcms         AS BOOL    ) AS LONG PASCAL;
      FROM "EPSON_Config_Aliquota"                          LIB XDLL_EPSON

//Recebe os dados da Leitura X pela serial e grava em arquivo texto
DLL32 FUNCTION EpLeiLXSer( vDiretorio   AS LPSTR ) AS LONG PASCAL;
      FROM "EPSON_RelatorioFiscal_Salvar_LeituraX"    LIB XDLL_EPSON

//Numero de Interverções Fiscais
DLL32 FUNCTION EpNumInFis( Intervencoes AS LPSTR   ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Contadores"                 LIB XDLL_EPSON

//Imprimi Cheque
DLL32 FUNCTION EpImChqEcf( vNroReg     AS LPSTR,;
                           vValor      AS LPSTR,;
                           nCasDec       AS PTR,;
                           vNominal    AS LPSTR,;
                           vCidade     AS LPSTR,;
                           vData       AS LPSTR,;
                           vTextoAd    AS LPSTR ) AS LONG PASCAL ;
      FROM "EPSON_Cheque_Imprimir" LIB XDLL_EPSON

//Programa horario de verao
DLL32 FUNCTION EpPrgHrVer(         )  AS LONG PASCAL;
      FROM "EPSON_Config_Horario_Verao" LIB XDLL_EPSON

//Obtem horario de verao
DLL32 FUNCTION EpEstHorVer( @lEstHrVer   AS PTR )  AS LONG PASCAL;
      FROM "EPSON_Obter_Estado_Horario_Verao"           LIB XDLL_EPSON


//Autentica Documentos
DLL32 FUNCTION EpAutDcEcf( vTexto      AS LPSTR ) AS LONG PASCAL ;
      FROM "EPSON_Autenticar_Imprimir" LIB XDLL_EPSON

//Retorna Moeda Corrente
DLL32 FUNCTION EpSimMoCur( vMoeda     AS LPSTR    ) AS LONG PASCAL;
      FROM "EPSON_Obter_Simbolo_Moeda"                 LIB XDLL_EPSON

// Verifica Qtd Casas Decimais
DLL32 FUNCTION EpVerCasD( vCasDec        AS LPSTR  ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Casas_Decimais" LIB XDLL_EPSON
     

//Retorna CGC e Inscricao Estadual do Cliente
DLL32 FUNCTION EpCgcIECli( vDadosCli         AS LPSTR ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Dados_Usuario" LIB XDLL_EPSON

// Identificação do Consumidor
DLL32 FUNCTION EpIdeCoCup( vCNPJ        AS LPSTR,;
                           vNome        AS LPSTR,;
                           vEnd1        AS LPSTR,;
                           vEnd2        AS LPSTR,;
                           nOpImp       AS   PTR ) AS LONG PASCAL;
      FROM "EPSON_Fiscal_Dados_Usuario"               LIB XDLL_EPSON


//Cancela item generico
DLL32 FUNCTION EpCanItGen( NroIte      AS LPSTR     ) AS LONG PASCAL;
      FROM "EPSON_Fiscal_Cancelar_Item"                  LIB XDLL_EPSON
//Vende ítem
DLL32 FUNCTION EpVendItem( Codigo      AS LPSTR,;
                           Descricao   AS LPSTR,;
                           Quantid     AS LPSTR,;
                           CasDecQtd   AS   PTR,;
                           Unidade     AS LPSTR,;
                           ValUnit     AS LPSTR,;
                           CasDecVlr   AS   PTR,;
                           Aliquota    AS LPSTR,;
                           QtdLinha    AS   PTR ) AS LONG PASCAL;
      FROM "EPSON_Fiscal_Vender_Item"               LIB XDLL_EPSON

//Efetua Forma de Pagamento com ID da Forma
DLL32 FUNCTION EpEfeFrPgd( IdPgt         AS LPSTR,;
                           VlrPgt        AS LPSTR,;
                           NroCas          AS PTR,;
                           Linha1        AS LPSTR,;
                           Linha2        AS LPSTR        ) AS LONG PASCAL;
      FROM "EPSON_Fiscal_Pagamento"                           LIB XDLL_EPSON

//Verifica ultimo item vendido
DLL32 FUNCTION EpUltItVen( vRet1       AS LPSTR     ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Numero_Ultimo_Item"              LIB XDLL_EPSON

// Programa Forma de Pagamento
DLL32 FUNCTION EpProgFpgt( VincNvinc       AS BOOL,;
                           IdFrmPgt        AS LPSTR,;
                           DescFrmPgto     AS LPSTR    ) AS LONG PASCAL ;
      FROM "EPSON_Config_Forma_Pagamento" LIB XDLL_EPSON

//Verifica a retorno aliquotas
DLL32 FUNCTION EpVerReAlq( Aliquotas   AS LPSTR   ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Tabela_Aliquotas" LIB XDLL_EPSON

//Verifica a versão do firmware
DLL32 FUNCTION EpVerFiWar( vRet1       AS LPSTR     ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Dados_Impressora" LIB XDLL_EPSON

//Verifica o numero de serie da ecf e MFD
DLL32 FUNCTION EpVerNuSer( ST1       AS LPSTR   ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Dados_Impressora" LIB XDLL_EPSON


//Recebimento não fiscal MFD
DLL32 FUNCTION EpEfeRnfMf( vCNPJ         AS LPSTR,;
                           vRazao        AS LPSTR,;
                           vEnd1         AS LPSTR,;
                           vEnd2         AS LPSTR,;
                           nOpCab        AS   PTR   ) AS LONG PASCAL;
      FROM "EPSON_NaoFiscal_Abrir_Comprovante"     LIB XDLL_EPSON

//Verifica o status da impressora
DLL32 FUNCTION EpVerStImp( Resposta AS LPSTR ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Estado_Impressora"        LIB XDLL_EPSON
     
//Verifica o status do ultimo comando      
DLL32 FUNCTION EpStUltCmd( CodErr  AS LPSTR,;
                           RespErr AS LPSTR ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Mensagem_Erro"           LIB XDLL_EPSON

//Ler total do cupom
DLL32 FUNCTION EpSubTotal( SubTotal    AS STRING  ) AS LONG PASCAL ;
      FROM "EPSON_Fiscal_Obter_SubTotal"                 LIB XDLL_EPSON

//Ler número do caixa
DLL32 FUNCTION EpNumeroCx( NumeroCaixa AS LPSTR     ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Numero_ECF_Loja" LIB XDLL_EPSON

//Ler data do movimento
DLL32 FUNCTION EpDtMovto(DtHrMovto     AS LPSTR) AS LONG PASCAL ;
      FROM "EPSON_Obter_Data_Hora_Jornada"          LIB XDLL_EPSON

//Ler data e hora da impressora
DLL32 FUNCTION EpDtHora( DtHs AS LPSTR ) AS LONG PASCAL;
      FROM "EPSON_Obter_Hora_Relogio"       LIB XDLL_EPSON

//Ler Status do Movimento
DLL32 FUNCTION EpObEstImp( Status AS LPSTR ) AS LONG PASCAL;
      FROM "EPSON_Obter_Dados_Jornada"      LIB XDLL_EPSON
//Inicia Dia
DLL32 FUNCTION EpAbrDiaFi( )            AS LONG PASCAL ;
      FROM "EPSON_RelatorioFiscal_Abrir_Dia" LIB XDLL_EPSON
//Ler flag fiscal da impressora e de documentos não fiscal    
DLL32 FUNCTION EpFlagFisc( @FlagFiscal AS LPSTR   ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Estado_Cupom" LIB XDLL_EPSON

//Emite leitura X
DLL32 FUNCTION EpLeituraX(             ) AS LONG PASCAL;
      FROM "EPSON_RelatorioFiscal_LeituraX" LIB XDLL_EPSON

//Emite redução Z
DLL32 FUNCTION EpReducaoZ(  vData           AS LPSTR,;
                            vHoras          AS LPSTR,;
                            nOpHorVer       AS   PTR,;
                            vCRZ             AS LPSTR ) AS LONG PASCAL ;
      FROM "EPSON_RelatorioFiscal_RZ" LIB XDLL_EPSON

//Abre cupom fiscal
DLL32 FUNCTION EpAbreCup ( CNPJ              AS LPSTR,;
                           Razao             AS LPSTR,;
                           End1              AS LPSTR,;
                           End2              AS LPSTR,;
                           OpImpCli          AS    PTR ) AS LONG PASCAL ;
      FROM "EPSON_Fiscal_Abrir_Cupom" LIB XDLL_EPSON

//Verifica se tem impressora ligada
DLL32 FUNCTION EpPrintLig(           ) AS LONG PASCAL;
      FROM "EPSON_Serial_Obter_Estado_Com" LIB XDLL_EPSON

//Cancela cupom fiscal
DLL32 FUNCTION EpCanCupom(                       ) AS LONG PASCAL;
      FROM "EPSON_Fiscal_Cancelar_Cupom"             LIB XDLL_EPSON

//Cancela Comprovante de Credito Debito (Cupom Vinculado)
DLL32 FUNCTION EpCanCcdNf( vIdFrmPgt        AS LPSTR,;
                           vVllrPgt         AS LPSTR,;
                           nCasDec          AS   PTR,;
                           vNroParc         AS LPSTR,;
                           vNroCup          AS LPSTR ) AS LONG PASCAL;
      FROM "EPSON_NaoFiscal_Cancelar_CCD"              LIB XDLL_EPSON

//Retorna Informação sobre ultimo documento
DLL32 FUNCTION EpInfUtDoc( vUltDoc    AS LPSTR ) AS    LONG PASCAL;
      FROM "EPSON_Obter_Informacao_Ultimo_Documento"  LIB XDLL_EPSON

//Cancela último ítem do cupom
DLL32 FUNCTION EpCancItem(                          ) AS LONG PASCAL;
      FROM "EPSON_NaoFiscal_Cancelar_Ultimo_Item"        LIB XDLL_EPSON

//Ler número do cupom
DLL32 FUNCTION EpNumCupom( Cupom       AS LPSTR     ) AS LONG PASCAL ;
      FROM "EPSON_Obter_Contadores"                      LIB XDLL_EPSON

//Emite cupom gerencial
DLL32 FUNCTION EpCpGerAbr( Texto AS LPSTR            ) AS LONG PASCAL;
      FROM "EPSON_NaoFiscal_Abrir_Relatorio_Gerencial"    LIB XDLL_EPSON

//Fecha cupom gerencial
DLL32 FUNCTION EpCpGerFec(   OpCortar  AS  BOOL         ) AS LONG PASCAL;
      FROM "EPSON_NaoFiscal_Fechar_CCD"                  LIB XDLL_EPSON

//Abre a gaveta
DLL32 FUNCTION EpAbreGav (                          ) AS LONG PASCAL ;
      FROM "EPSON_Impressora_Abrir_Gaveta"             LIB XDLL_EPSON

//Abre cupom adicional
DLL32 FUNCTION EpCupAdAbr( vIdFormaPgto   AS LPSTR,;
                           vValor         AS LPSTR,;
                           nNroCas        AS   PTR,;
                           vNroPar        AS LPSTR ) AS LONG PASCAL;
      FROM "EPSON_NaoFiscal_Abrir_CCD"               LIB XDLL_EPSON

// Imprime cupom não fiscal vinculado
DLL32 FUNCTION EpCupAdUsa( Texto       AS LPSTR ) AS LONG PASCAL;
      FROM "EPSON_NaoFiscal_Imprimir_LinhaEX"       LIB XDLL_EPSON

// Fecha Comprovante de Credito Debito
DLL32 FUNCTION EpCupAdFec( lOpCorPap AS BOOL    ) AS LONG PASCAL;
      FROM "EPSON_NaoFiscal_Fechar_CCD"              LIB XDLL_EPSON

//Fecha Cupom
DLL32 FUNCTION EpFechaCup( CortaPapel  AS BOOL,;
                           ImpCupAd    AS BOOL ) AS LONG PASCAL ;
       FROM "EPSON_Fiscal_Fechar_Cupom"    LIB XDLL_EPSON

// Imprime Menssagem no fechamento cupom
DLL32 FUNCTION EpTerFeCup( Linha1    AS LPSTR,;
                           Linha2    AS LPSTR,;
                           Linha3    AS LPSTR,;
                           Linha4    AS LPSTR,;
                           Linha5    AS LPSTR,;
                           Linha6    AS LPSTR,;
                           Linha7    AS LPSTR,;
                           Linha8    AS LPSTR ) AS LONG PASCAL;
       FROM "EPSON_Fiscal_Imprimir_Mensagem"       LIB XDLL_EPSON
       
// Imprime Menssagem de Aplicação
DLL32 FUNCTION EpMsgApl(   Linha1    AS LPSTR,;
                           Linha2    AS LPSTR  ) AS LONG PASCAL;
       FROM "EPSON_Fiscal_Mensagem_Aplicacao"       LIB XDLL_EPSON


// Efetua o Download de um cupom do Memoria Fiscal
DLL32 FUNCTION EpDwnCuMfd( vCOO1       AS LPSTR,;
                           vCOO2       AS LPSTR,;
                           nOpEnt        AS PTR,;
                           nOpImp        AS PTR,;
                           nAtoCotep     AS PTR,;
                           nOPSintegra   AS PTR,;
                           vArqSaid    AS LPSTR ) AS LONG PASCAL ;
       FROM "EPSON_Obter_Dados_MF_MFD" LIB XDLL_EPSON


// Acrescimo ou Desconto no item.
DLL32 FUNCTION EpEfeAcDes( VlrDesAcr   AS LPSTR,;
                          CasDec       AS PTR,;
                          DesAcr       AS BOOL,;
                          PorVlr       AS BOOL ) AS LONG PASCAL ;
       FROM "EPSON_Fiscal_Desconto_Acrescimo_Item" LIB XDLL_EPSON

// Acrescimo ou Desconto no Cupom
DLL32 FUNCTION EpEfeAcDesCup(VlrDesAcr AS LPSTR,;
                             CasDec       AS PTR,;
                             DesAcr       AS BOOL,;
                             PorVlr       AS BOOL   ) AS LONG PASCAL;
       FROM "EPSON_Fiscal_Desconto_Acrescimo_Subtotal" LIB XDLL_EPSON


// Efetua Forma de Pagamento Não Fiscal
DLL32 FUNCTION EpEfFPgNf( vIDPgt      AS LPSTR,;
                          vValor      AS LPSTR,;
                          nCasDec       AS PTR,;
                          vLinha1     AS LPSTR,;
                          vLinha2     AS LPSTR ) AS LONG PASCAL ;
      FROM "EPSON_NaoFiscal_Pagamento" LIB XDLL_EPSON

//Leitura da memoria fiscal serial por DATA Serial MFD Ou Por Reduçoes
DLL32 FUNCTION EpLeiMfdDt( vData1      AS LPSTR,;
                           vData2      AS LPSTR,;
                           nTipImp     AS   PTR,;
                           vRetorno    AS LPSTR,;
                           vNomArq     AS LPSTR,;
                           nNroByt     AS   PTR,;
                           nBuffer     AS   PTR  ) AS LONG PASCAL ;
      FROM "EPSON_RelatorioFiscal_Leitura_MF" LIB XDLL_EPSON

//Retornar o Totalizador Geral
DLL32 FUNCTION EpRetGraTo( vRetTotal  AS LPSTR ) AS LONG PASCAL ;
       FROM "EPSON_Obter_GT"    LIB XDLL_EPSON

/// Fim TMT81
 

Regards, saludos.

[karinha]

Ejemplos:

http://fivewin.com.br/index.php?/topic/27938-cf-e-epson-ou-sweda/&tab=comments#comment-285030

http://fivewin.com.br/index.php?/topic/27322-sat-epson-gertec-dll/&tab=comments#comment-281090

http://fivewin.com.br/index.php?/topic/24472-impressora-epson-l365/&tab=comments#comment-273149

Saludos

[karinha]

//-> Este e o caminho correto

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

/*
#define DC_CALL_STD     0X0020   ///->?????
#define MAX_PATH   260           ///->?????
*/

/*--------------------------------------------------------------------------*/

STATIC oWnd
STATIC ABRE_BEMA  //-> Abertura da DLL da bematech

function main()

    LOCAL oMenu

    PUBLIC Operador //-> Quem opera o Caixa

    Set Exact   Off
    Set Wrap On
    Set Deleted On
    Set Bell Off
    Set Scoreboard Off
    Set Date British
    Set Confirm ON
    Set Inte OFF
    Set Multiple OFF
    Set Century on
    Set Exclusive Off
    Set Epoch To 1910
    Set Decimals to 2
    Set talk OFF

    //-> SetHandleCount( 255 ) 32 Bits not necessary

    // Operador...
    VOPERADOR:="CAIXA"

    // Carrega a dll...
    ABRE_BEMA := LoadLibrary("Bemafi32.dll")

    ? ABRE_BEMA

    IF .NOT. FILE( "Bemafi32.dll" )
         ? [MENSAGEM DE FALHA NA ABERTURA]
         RETURN NIL
     ENDIF

    //->?????
    RET:=DLLCALL(ABRE_BEMA,32,"Bematech_FI_AbrePortaSerial")

    //->?????
    IF RET=(-4)
        msgalert("Erro no arquivo Bemafi32.ini")
    ENDIF

    ///->????
    IF RET=(-5)
        msgalert("Erro ao abrir porta de comunicacao")
    ENDIF

    Menu oMenu

     /* //-> Dispara para as funcoes da DLL declaradas abaixo
     MenuItem '&1-Leitura X'                      Action BemaLeituraX()
     MenuItem '&2-Vende Item'                     Action msginfo()
     MenuItem hb_oemtoansi('&3-Hora/Data ECF')    Action BemaHoraData()
     MenuItem hb_oemtoansi('&4-Redu‡Æo Z')        Action BemaReducaoZ()
     MenuItem '&X-Sair'                           Action oWnd:end()
     */

    EndMenu

    DEFINE Window oWnd

    oWnd:SetMenu( oMenu )

    Activate Window oWnd

    FreeLibrary(ABRE_BEMA)

return nil

///////////////////////////////////////////////////////////////////////////////////////
/*
func BemaLeituraX

    RET:=DLLCALL(ABRE_BEMA,32,"Bematech_FI_LeituraX")

return nil
*/

///////////////////////////////////////////////////////////////////////////////////////
/*
func BemaHoraData

    vdata:=space(6)
    vhora:=space(6)
    RET:=DLLCALL(ABRE_BEMA,32,"Bematech_FI_DataHoraImpressora",vdata,vhora)
    msginfo( vdata )
    msginfo( vhora )

return nil
*/

///////////////////////////////////////////////////////////////////////////////////////
/*
func BemaReducaoZ

    RET:=DLLCALL(ABRE_BEMA,32,"Bematech_FI_ReducaoZ")

return nil
*/

// Declaracoes da BEMATECH de 32 bits -> BEMAFI32.DLL

//Ler total do cupom
DLL32 FUNCTION BmSubTotal( SubTotal AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_SubTotal" LIB ABRE_BEMA

//Ler número d0o caixa
DLL32 FUNCTION BmNumeroCx( NumeroCaixa AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_NumeroCaixa" LIB ABRE_BEMA

//Ler configuração arredondamento/truncamento
DLL32 FUNCTION BmVerArred( Arredonda AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_VerificaTruncamento" LIB ABRE_BEMA

//Ativa arredondamento
DLL32 FUNCTION BmLigArred( ) AS LONG PASCAL ;
      FROM "Bematech_FI_ProgramaArredondamento" LIB ABRE_BEMA

//Ler data do movimento
DLL32 FUNCTION BmDtMovto ( DtMovto AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_DataMovimento" LIB ABRE_BEMA

//Ler flag fiscal da impressora
DLL32 FUNCTION BmFlagFiscal( @FlagFiscal AS PTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_FlagsFiscais" LIB ABRE_BEMA

//Emite leitura X
DLL32 FUNCTION BmLeituraX( ) AS LONG PASCAL ;
      FROM "Bematech_FI_LeituraX" LIB ABRE_BEMA

//Emite redução Z
DLL32 FUNCTION BmReducaoZ( Dt AS LPSTR, Hs AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_ReducaoZ" LIB ABRE_BEMA

//Ler data e hora da impressora
DLL32 FUNCTION BmDtHora ( Dt AS LPSTR, Hs AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_DataHoraImpressora" LIB ABRE_BEMA

//Faz abertura do dia
DLL32 FUNCTION BmAbreDia ( Vl AS LPSTR, Fr AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_AberturaDoDia" LIB ABRE_BEMA

//Abre cupom fiscal
DLL32 FUNCTION BmAbreCup ( Cgc AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_AbreCupom" LIB ABRE_BEMA

//Verifica se tem papel
DLL32 FUNCTION BmVerPapel( @Linhas AS PTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_MonitoramentoPapel" LIB ABRE_BEMA

//Verifica se tem impressora ligada
DLL32 FUNCTION BmPrintLig( ) AS LONG PASCAL ;
      FROM "Bematech_FI_VerificaImpressoraLigada" LIB ABRE_BEMA

//Cancela cupom fiscal
DLL32 FUNCTION BmCanCupom( ) AS LONG PASCAL ;
      FROM "Bematech_FI_CancelaCupom" LIB ABRE_BEMA

//Cancela último ítem do cupom
DLL32 FUNCTION BmCancItem( ) AS LONG PASCAL ;
      FROM "Bematech_FI_CancelaItemAnterior" LIB ABRE_BEMA

//Abre a gaveta
DLL32 FUNCTION BmAbreGav ( ) AS LONG PASCAL ;
      FROM "Bematech_FI_AcionaGaveta" LIB ABRE_BEMA

//Ler número do cupom
DLL32 FUNCTION BmNumCupom( Cupom AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_NumeroCupom" LIB ABRE_BEMA

//Emite leitura da memória fiscal por data
DLL32 FUNCTION BmMemFiscD( In AS LPSTR, Fi AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_LeituraMemoriaFiscalData" LIB ABRE_BEMA

//Emite leitura da memória fiscal por reduções
DLL32 FUNCTION BmMemFiscR( In AS LPSTR, Fi AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_LeituraMemoriaFiscalReducao" LIB ABRE_BEMA

//Emite cupom gerencial 618 CARACTERES NO MAXIMO POR COMANDO
DLL32 FUNCTION BmCpGerAbr( Texto AS STRING ) AS LONG PASCAL ;
      FROM "Bematech_FI_RelatorioGerencial" LIB ABRE_BEMA

//Fecha cupom gerencial
DLL32 FUNCTION BmCpGerFec( ) AS LONG PASCAL ;
      FROM "Bematech_FI_FechaRelatorioGerencial" LIB ABRE_BEMA

//Verifica status da gaveta
DLL32 FUNCTION BmStGaveta( @nStatus AS PTR ) AS LONG PASCAL ;
      FROM "Bematech_FI_VerificaEstadoGaveta" LIB ABRE_BEMA

//Abre cupom adicional
DLL32 FUNCTION BmCupAdAbr( FormaPgto AS STRING,;
      Valor AS STRING,;
      Cupom AS STRING ) AS LONG PASCAL ;
      FROM "Bematech_FI_AbreComprovanteNaoFiscalVinculado" LIB ABRE_BEMA

//Imprime cupom não fiscal vinculado
DLL32 FUNCTION BmCupAdUsa( Texto AS STRING ) AS LONG PASCAL ;
      FROM "Bematech_FI_UsaComprovanteNaoFiscalVinculado" LIB ABRE_BEMA

//Fecha cupom não fiscal
DLL32 FUNCTION BmCupAdFec( ) AS LONG PASCAL ;
      FROM "Bematech_FI_FechaComprovanteNaoFiscalVinculado" LIB ABRE_BEMA

//Vende ítem
DLL32 FUNCTION BmVendItem( Codigo AS STRING,;
      Descricao AS STRING,;
      Aliquota AS STRING,;
      TpQte AS STRING,;
      Quantid AS STRING,;
      Decimal AS 7 ,;
      ValUnit AS STRING,;
      TpDesc AS STRING,;
      ValDesc AS STRING ) AS LONG PASCAL ;
      FROM "Bematech_FI_VendeItem" LIB ABRE_BEMA

//Efetua Formas de Pagamento
DLL32 FUNCTION BmFormasPag( FormaPgto AS STRING,;
      ValorPago AS STRING ) AS LONG PASCAL ;
      FROM "Bematech_FI_EfetuaFormaPagamento" LIB ABRE_BEMA

//Inicia Fechamento cupom
DLL32 FUNCTION BmIniFecCup( Acrescimo AS STRING,;
      TipoAcresc AS STRING,;
      ValorAcresc AS STRING ) AS LONG PASCAL ;
      FROM "Bematech_FI_IniciaFechamentoCupom" LIB ABRE_BEMA

//Termina Fechamento cupom
DLL32 FUNCTION BmTerFecCup( Mensagem AS STRING ) AS LONG PASCAL ;
      FROM "Bematech_FI_TerminaFechamentoCupom" LIB ABRE_BEMA

//Fecha cupom com uma forma de pagamento somente
DLL32 FUNCTION BmFechaCup( FormaPgto AS STRING,;
      Acrescimo AS STRING,;
      TipoAcresc AS STRING,;
      ValorAcresc AS STRING,;
      ValorPago AS STRING,;
      Mensagem AS STRING ) AS LONG PASCAL ;
      FROM "Bematech_FI_FechaCupom" LIB ABRE_BEMA

//Verifica status do gerenciador padrão
DLL32 FUNCTION BmTfStatus( Operacao AS LPSTR ) AS LONG PASCAL ;
      FROM "Bematech_FITEF_Status" LIB ABRE_BEMA

DLL32 FUNCTION BmFormaPg( cNomeDocto   AS STRING ,;
                          cValorDocto  AS STRING ) AS LONG PASCAL;
      FROM "Bematech_FI_EfetuaFormaPagamento" LIB ABRE_BEMA

DLL32 FUNCTION BmIniciaFecha( cAcreDesc     AS STRING ,;
                              cTipoAcreDes  AS STRING ,;
                              cValorParc    AS STRING ) AS LONG PASCAL ;
      FROM "Bematech_FI_IniciaFechamentoCupom" LIB ABRE_BEMA

DLL32 FUNCTION BmCancGen( NumeroItem AS LPSTR       ) AS LONG PASCAL ;
      FROM "Bematech_FI_CancelaItemGenerico"      LIB ABRE_BEMA

//---------------------------------------------------------------------------//
 

Regards, saludos.

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=23641&p=127221&hilit=bematech&sid=834c572fa3888fe78dbc86b644502ccb&sid=43bd23f2270cefcb8e7e546b3f4fef4c#p127221

[JoseAlvarez]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=23641&p=127221&hilit=bematech&sid=834c572fa3888fe78dbc86b644502ccb&sid=43bd23f2270cefcb8e7e546b3f4fef4c#p127221

Gracias joao. Me pondré a trabajar en esto.

Agradecido.