SWEDA DLL32

MARSAN · June 20, 2013

Boa noite a todos,

Assumi uma empresa a qua ja tinha negociado 5 impressoras fiscais SWEDA....e eu nao tinha esta informacao .....porem atÃ© hoje so trabalhei com DARUMA E BEMATECH.

Gostaria de saber se Ã© muito complicado escrever usando a dll da sweda e pedir a declaracao dela para fivewin assim como exemplos e etc.

Ate achei um link aqui mesmo mas o mesmo encontra-se quebrado.

Abracos a todos

kapiaba · June 21, 2013

Veja se te ajuda... Modifique para o seu gosto pessoal.



#Include "FiveWin.Ch"

#Include "Directry.ch"

 

//->"12-Modelo do ECF 1=Daruma  2=Sweda 3=Bematech 4=DataRegis ;

//                    5=Quattro 6=Afrac 7=Elgin:   8=Epson"

STATIC XDLL_DARUMA    //-> DLL DA IMPRESSORA FISCAL DARUMA       1

STATIC XDLL_SWEDA     //-> DLL DA IMPRESSORA FISCAL SWEDA        2

STATIC XDLL_BEMATECH  //-> DLL DA IMPRESSORA FISCAL BEMATECH     3

STATIC XDLL_DATAREGIS //-> DLL DA IMPRESSORA FISCAL DATA REGIS   4

STATIC XDLL_QUATTRO   //-> DLL DA IMPRESSORA FISCAL QUATTRO      5

STATIC XDLL_AFRAC     //-> DLL DA IMPRESSORA FISCAL AFRAC        6

STATIC XDLL_ELGIN     //-> DLL DA IMPRESSORA FISCAL ELGIN        7

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

STATIC NRET, FLAG, UBUF, UBU1, UBU2

STATIC Int_Retorno   //-> Novo

 

FUNCTION DECLARA()

 

    PUBLIC XMODELOECF, XPORTADOECF

 

    //-> Abertura das DLLS das Impressoras Fiscais vindo de CONFSIST.PRG

    //->"12-Modelo do ECF 1=Daruma  2=Sweda 3=Bematech 4=DataRegis ;

    //                    5=Quattro 6=Afrac 7=Elgin:   8=Epson"

 

    IF XMODELOECF = "1" .AND. VAL(XPORTADOECF) > 0

 

       IF !FILE( "DARUMA32.DLL" )

          MsgAlert( "O Arquivo " + "DARUMA32.DLL "     +        ;

                    "NÃ£o Foi Encontrado"               + CRLF + ;

                    "Entre em Contato Com o Suporte"   + CRLF + ;

                    "Pelos Fones: (11) 3106-2832 / 8243-5632",  ;

                    "Componente Ausente, Verifique!" )

          RETURN NIL

       ENDIF

 

       xDll_Daruma := LoadLibrary( "DARUMA32.DLL" )

       //DARU_RET.PRG //-> Funâ€¡Ã†o para retornos da daruma

       //hb_Retornos( oWnd )

       CURSORWAIT() //-> verifica se a impressora esta ligada

 

       m->Int_Retorno := Daruma_FI_VerificaImpressoraLigada()

 

       IF m->Int_Retorno = 1

           //-> Impressora Ligada, Nada a Fazer

       ELSE

          MsgInfo( OemToAnsi( "Impressora Daruma Desligada, Verifique!" ), ;

                   OemToAnsi( "Impressora Daruma Desligada, Verifique!" ) )

 

          CURSORARROW()

 

          RETURN( .F. )

       ENDIF

 

    ENDIF

 

    IF XMODELOECF = "2" .AND. VAL(XPORTADOECF) > 0

 

       //IF !FILE( "SERSWEDA.DLL" ) //-< Verificar qual e a correta

       IF !FILE( "SWECF.DLL" )

          MsgAlert( "O Arquivo " + "SWECF.DLL "        +        ;

                    "NÃ£o Foi Encontrado"               + CRLF + ;

                    "Entre em Contato Com o Suporte"   + CRLF + ;

                    "Pelos Fones: (11) 3106-2832 / 8243-5632",  ;

                    "Componente Ausente, Verifique!" )

          RETURN NIL

       ENDIF

 

       // Abre a DLL da Sweda

       xDll_Sweda := LoadLibrary( "SWECF.DLL" )

 

       nRet := ECFOpen(VAL(XPORTADOECF), 10, 1, 1)

 

       //nRet := ECFOpen(1, 10, 1, 1)

 

       nRet := ECFWRITE( CHR(27)+".28}" )

 

       IF nRet != 0

          MsgStop( "Erro de Abertura da Porta da Impressora Fiscal Sweda", ;

                   "Erro de Abertura da Porta da Impressora Fiscal Sweda"  )

          DBCLOSEALL()

          RETURN NIL

       ENDIF

 

       FLAG := SPACE(512)

 

       nRet := LEIT_STAT( @FLAG, 512 )

 

       uBuf := SUBSTR( FLAG, 18, 1 ) &&& REDUCAO Z ANTERIOR: N=IMPRESSAO S=NAO IMPRIMIU

       uBu1 := SUBSTR( FLAG, 44, 6 ) &&& DATA DO DIA

       uBu1 := LEFT(uBu1,2)+"/"+SUBS(uBu1,3,2)+"/"+RIGHT(uBu1,2)

       uBu2 := SUBSTR( FLAG, 123, 1 )

 

       nRet := ECFClose()

 

       If uBuF = "F"

 

          If MsgNoYes( "ATENÃ‡ÃƒO: A REDUÃ‡ÃƒO Z DO MOVIMENTO ANTERIOR "+ CRLF +;

                                                                    + CRLF +;

                       "AINDA  NÃƒO FOI IMPRESSA !!! "               + CRLF+ ;

                                                                    + CRLF +;

                                                                    + CRLF +;

                       OemToAnsi("Escolha uma das opâ€¡Ã¤es abaixo:")  + CRLF +;

                                                                    + CRLF +;

                       "[SIM]  -> Para emitir a ReduÃ§Ã£o Z   "+ CRLF +       ;

                       "[NÃƒO] -> Para nÃ£o emitir a ReduÃ§Ã£o Z  ",            ;

                       "InformaÃ§Ã£o Para o UsuÃ¡rio...              " ) = .T.

 

              //SysRefresh()

 

              //Select( oDbfVendedor:cAlias )

 

              /*

              IF ! xSmx

 

                 IF VAL(XULS) > 0

                    FECHA_LEITOR()

                 ENDIF

 

                 xAutoriza := Autoriza("13","S",25, oDbfVendedor)

 

                 IF VAL(XULS) > 0

                    ABRE_LEITOR()

                 ENDIF

 

                 IF xAutoriza="NAO".OR. LEN(ALLTRIM(XAUTORIZA)) <= 0

                    Return( .F. )

                 ENDIF

 

              Else

 

                 xAutoriza:=left(xcodvend,2)

 

              Endif

              */

 

              //nRet := Reducaoz( lAppend, oDbfPedf, oDbfEstoque, "", "" )

 

              //sysrefresh()

 

             //nRet := Leituraxb( lAppend, oDbfPedf, oDbfEstoque, "", "" )

 

          Endif

 

       Endif

 

       //sysrefresh()

 

       FLAG := ""

 

    ENDIF

 

    IF XMODELOECF = "3".AND. VAL(XPORTADOECF) > 0

 

       IF !FILE( "BEMAFI32.DLL" )

          MsgAlert( "O Arquivo " + "BEMAFI32.DLL "     +        ;

                    "NÃ£o Foi Encontrado"               + CRLF + ;

                   "Entre em Contato Com o Suporte"   + CRLF + ;

                    "Pelos Fones: (11) 3106-2832 / 8243-5632",  ;

                    "Componente Ausente, Verifique!" )

          RETURN NIL

       ENDIF

 

       // Abre a DLL da Bematech

       xDll_BemaTech := LoadLibrary( "BEMAFI32.DLL" )

 

       CURSORWAIT() //-> verifica se a impressora esta ligada

 

       m->Int_Retorno := BmPrintLig()

 

       IF m->Int_Retorno = 1

          //-> Impressora Ligada, Nada a Fazer

       ELSE

          MsgInfo( OemToAnsi( "Impressora BEMATECH Desligada, Verifique!" ), ;

                   OemToAnsi( "Impressora BEMATECH Desligada, Verifique!" ) )

 

          CURSORARROW()

       // DBCLOSEALL()  //-Ã¿ ligar depois

       // RETURN NIL

       ENDIF

 

    ENDIF

 

    IF XMODELOECF = "4" .AND. VAL(XPORTADOECF) > 0

       MsgStop ( ( "Voce Escolheu a Impressora Fiscal DATA REGIS, " ) +CRLF+ ;

                 ( "Para Esta Impressora, Ainda Esta em           " ) +CRLF+ ;

                 ( "Desenvolvimento.                              " ),       ;

                 ( "Tente Outra Impressora. Nao localizada.       " ) )

       RETURN NIL

    ENDIF

 

    IF XMODELOECF = "5" .AND. VAL(XPORTADOECF) > 0

       * Quattro - manda os comandos direto para a serial

    ENDIF

 

    IF XMODELOECF="6" .AND. VAL(XPORTADOECF) > 0

       *    ECF32M.dll

       IF !FILE( "ECFAFRAC.DLL" )

          MsgAlert( "O Arquivo " + "ECFAFRAC.DLL "     +        ;

                    "NÃ£o Foi Encontrado"               + CRLF + ;

                    "Entre em Contato Com o Suporte"   + CRLF + ;

                    "Pelos Fones: (11) 3106-2832 / 8243-5632 ", ;

                    "Componente Ausente, Verifique!" )

          RETURN NIL

       ENDIF

 

        // Abre a DLL da AFRAC Para Usar Com a ELGIN

       xDll_Afrac := LoadLibrary( "ECFAFRAC.DLL" )

 

       //-> Ligar depois

       //nRet := AFRAC_AbrirPorta("COM"+XPORTADOECF)

 

    ENDIF

 

    //-> Elgin - Ainda nao tenho a DLL e as declaracoes

    IF XMODELOECF = "7" .AND. VAL(XPORTADOECF) > 0

       MsgStop ( ( "Voce Escolheu a Impressora Fiscal ELGIN, " ) +CRLF+ ;

                 ( "Para Esta Impressora, Ainda Esta em      " ) +CRLF+ ;

                 ( "Desenvolvimento.                         " ),       ;

                 ( "Tente Outra Impressora. Nao localizada.  " ) )

       RETURN NIL

    ENDIF

 

    //-> Vem das Configuracoes do Sistema

    IF XMODELOECF = "8" .AND. VAL( XPORTADOECF ) > 0 //-> Porta Serial do ECF

 

       // DLL DA IMPRESSORA FISCAL EPSON TMT81

       IF .NOT. FILE( "INTERFAC.DLL" )

 

          MsgAlert( "O Arquivo " + "INTERFAC.DLL "      +        ;

                    "NÃ£o Foi Encontrado"                + CRLF + ;

                    "Componente da Impressora EPSON"    + CRLF + ;

                    "Entre em Contato Com o Suporte, "  + CRLF + ;

                    "Pelos Fones: (11) 3106-2832 / 8243-5632 ",  ;

                    "Componente Ausente, Verifique!" )

 

          RETURN NIL

 

       ENDIF

 

       // Abre a DLL DA IMPRESSORA FISCAL EPSON TMT81

       XDLL_EPSON := LoadLibrary( "INTERFAC.DLL" )

 

    ENDIF

 

RETURN( .T. )

 

//-> FECHA AS DLLS DAS IMPRESSORAS FISCAIS

 

FUNCTION FECHA_DLLS_FISCAIS()

 

    PUBLIC XMODELOECF, XPORTADOECF

 

    IF VAL( XMODELOECF ) > 0 .AND. VAL( XPORTADOECF ) > 0

 

       IF XMODELOECF = "1"

          //-> Pau com  a DLL da Borland desliguei

          FreeLibrary( XDLL_DARUMA )

       ENDIF

 

       IF XMODELOECF = "2"

          FreeLibrary( XDLL_SWEDA )

       ENDIF

 

       IF XMODELOECF = "3"

          FreeLibrary( XDLL_BEMATECH )

       ENDIF

 

       //-> 4  nao declarada ainda DATA REGIS

       IF XMODELOECF="4"

          FreeLibrary( XDLL_DATAREGIS )

       ENDIF

 

       //-> 5  nao declarada ainda QUATTRO

       IF XMODELOECF="5"

          FreeLibrary( XDLL_QUATTRO )

       ENDIF

 

       IF XMODELOECF="6"

          FreeLibrary( XDLL_AFRAC )

       ENDIF

 

       //-> 7 Elgin, nao declarada

       IF XMODELOECF = "7"

          FreeLibrary( XDLL_ELGIN )

       ENDIF

 

       IF XMODELOECF = "8"

          FreeLibrary( XDLL_EPSON )

       ENDIF

 

    ENDIF

 

RETURN NIL

 

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

 

//-> Declaraâ€¡Ã¤es das Funâ€¡Ã¤es de 32 Bits da DLL da Impressora Sweda.

//-> Necess rio Ter No DiretÂ¢rio de Trabalho, Esta DLL: SWECF.DLL

 

DLL32 FUNCTION ECFOpen(Numero AS LONG, Tempo AS LONG, Log AS LONG,            ;

               Mostra AS LONG) AS LONG PASCAL LIB XDLL_SWEDA

 

DLL32 FUNCTION ECFClose() AS LONG PASCAL LIB XDLL_SWEDA

 

DLL32 FUNCTION ECFWrite(Comando AS STRING) AS LONG PASCAL LIB XDLL_SWEDA

 

DLL32 FUNCTION ECFRead(Status AS STRING,Extensao AS LONG) AS LONG PASCAL      ;

               LIB XDLL_SWEDA

 

DLL32 FUNCTION LEIT_STAT( @Status As STRING, ;

Extensao As 7 ) as BYTE pascal from "ECFRead" LIB XDLL_SWEDA

 

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

 

               /* Declaracao da Dll Integradora Daruma32.dll */               

 

// MÃ©todos do Cupom Fiscal

 

// Abre cupom fiscal

DLL32 FUNCTION Daruma_FI_AbreCupom( CPF_ou_CNPJ AS LPSTR ) AS LONG PASCAL;

      FROM "Daruma_FI_AbreCupom" LIB XDLL_DARUMA

 

//Vende Ãtem

DLL32 FUNCTION Daruma_FI_VendeItem( Codigo    AS STRING,; 

                                    Descricao AS STRING,;

                                    Aliquota  AS STRING,;

                                    Tipo_de_Quantidade AS STRING,;

                                    Quantidade AS STRING,; 

                                    Casas_Decimais AS _INT,; 

                                    Valor_Unitario AS STRING,;

                                    Tipo_de_Desconto  AS STRING,;

                                    Valor_do_Desconto AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VendeItem" LIB XDLL_DARUMA

 

 

DLL32 FUNCTION Daruma_FI_VendeItemDepartamento( Codigo AS STRING,;

                                                Descricao AS STRING,;

                                                Aliquota  AS STRING,;

                                                Valor_Unitario AS STRING,;

                                                Quantidade AS STRING    ,;

                                                Valor_do_Desconto AS STRING,;

                                                Valor_do_Acrescimo AS STRING,;

                                                Indice_Departamento AS STRING,;

                                                Unidade_Medida AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VendeItemDepartamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VendeItemTresDecimais( Codigo AS STRING,;

                                                Descricao AS STRING,;

                                                Aliquota  AS STRING,;

                                                Quantidade AS STRING,;

                                                Valor_Unitario AS STRING,;

                                                Acrescimo_ou_Desconto AS STRING,;

                                                Percentual_Acrescimo_ou_Desconto AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VendeItemTresDecimais" LIB XDLL_DARUMA

 

// Fecha Cupom Resumido

DLL32 FUNCTION Daruma_FI_FechaCupomResumido( Descricao_da_Forma_de_Pagamento AS STRING,;

                                         Mensagem_Promocional AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_FechaCupomResumido" LIB XDLL_DARUMA

 

// Inicia Fechamento de Cupom Fiscal

DLL32 FUNCTION Daruma_FI_IniciaFechamentoCupom( Acrescimo_ou_Desconto AS STRING,;

                                                Tipo_do_Acrescimo_ou_Desconto AS STRING,;

                                                Valor_do_Acrescimo_ou_Desconto AS STRING )AS LONG PASCAL;

      FROM "Daruma_FI_IniciaFechamentoCupom" LIB XDLL_DARUMA

 

// Efetua Forma de Pagamento

DLL32 FUNCTION Daruma_FI_EfetuaFormaPagamento( Descricao_da_Forma_Pagamento AS STRING,;

                                               Valor_da_Forma_Pagamento AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_EfetuaFormaPagamento" LIB XDLL_DARUMA

 

// Efetua Forma de Pagamento com DescriÃ§Ã£o da Forma e valor de pagamento

DLL32 FUNCTION Daruma_FI_EfetuaFormaPagamentoDescricaoForma( Descricao_da_Forma_Pagamento AS STRING,;

                                                             Valor_da_Forma_Pagamento AS STRING,;

                                                             Texto_Livre AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_EfetuaFormaPagamentoDescricaoForma" LIB XDLL_DARUMA

 

// Manda dados do cliente

DLL32 FUNCTION Daruma_FI_IdentificaConsumidor( Nome_do_Consumidor AS STRING,;

                                               Endereco           AS STRING,;

                                               CPF_ou_CNPJ        AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_IdentificaConsumidor" LIB XDLL_DARUMA

 

//Termina Fechamento do Cupom

DLL32 FUNCTION Daruma_FI_TerminaFechamentoCupom( Mensagem_Promocional AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_TerminaFechamentoCupom" LIB XDLL_DARUMA

 

// Fecha cupom

DLL32 FUNCTION Daruma_FI_FechaCupom( Forma_de_Pagamento AS STRING,;

                                     Acrescimo_ou_Desconto AS STRING,;

                                     Tipo_Acrescimo_ou_Desconto AS STRING,;

                                     Valor_Acrescimo_ou_Desconto AS STRING,;

                                     Valor_Pag AS STRING,;

                                     Mensagem_Promocional AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_FechaCupom" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CancelaItemAnterior() AS LONG PASCAL;

      FROM "Daruma_FI_CancelaItemAnterior" LIB XDLL_DARUMA

 

// Cancela Ãtem GenÃ©rico do cupom

DLL32 FUNCTION Daruma_FI_CancelaItemGenerico( Numero_Item AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CancelaItemGenerico" LIB XDLL_DARUMA

 

// Cancela cupom fiscal

DLL32 FUNCTION Daruma_FI_CancelaCupom( ) AS LONG PASCAL;

      FROM "Daruma_FI_CancelaCupom" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_AumentaDescricaoItem( Descricao_Extendida AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_AumentaDescricaoItem" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_UsaUnidadeMedida( Unidade_Medida AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_UsaUnidadeMedida" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_EmitirCupomAdicional() AS LONG PASCAL;

      FROM "Daruma_FI_EmitirCupomAdicional" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_EstornoFormasPagamento( Forma_de_Origem AS STRING,;

                                                 Nova_Forma AS STRING,;

                                                 Valor_Total_Pago AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_EstornoFormasPagamento" LIB XDLL_DARUMA

 

// MÃ©todos para Recebimentos e RelatÃ³rios

 

// Abre cupom adicional nÃ£o fiscal vinculado

DLL32 FUNCTION Daruma_FI_AbreComprovanteNaoFiscalVinculado( Forma_de_Pagamento AS STRING,;

                                                            Valor_Pag AS STRING,;

                                                            Numero_do_Cupom AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_AbreComprovanteNaoFiscalVinculado" LIB XDLL_DARUMA

 

// Imprime cupom nÃ£o fiscal vinculado

DLL32 FUNCTION Daruma_FI_UsaComprovanteNaoFiscalVinculado( Texto_Livre AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_UsaComprovanteNaoFiscalVinculado" LIB XDLL_DARUMA

 

//Fecha cupom nÃ£o fiscal

DLL32 FUNCTION Daruma_FI_FechaComprovanteNaoFiscalVinculado( ) AS LONG PASCAL ;

      FROM "Daruma_FI_FechaComprovanteNaoFiscalVinculado" LIB XDLL_DARUMA

 

// Emite cupom gerencial

DLL32 FUNCTION Daruma_FI_RelatorioGerencial( Texto_Livre AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RelatorioGerencial" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_AbreRelatorioGerencial() AS LONG PASCAL;

      FROM "Daruma_FI_AbreRelatorioGerencial" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_EnviarTextoCNF( Texto_Livre AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_EnviarTextoCNF" LIB XDLL_DARUMA

 

// Fecha cupom gerencial

DLL32 FUNCTION Daruma_FI_FechaRelatorioGerencial( ) AS LONG PASCAL;

      FROM "Daruma_FI_FechaRelatorioGerencial" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_AbreRecebimentoNaoFiscal( Indice_do_Totalizador AS STRING,;

                                                   Acrescimo_ou_Desconto AS STRING,;

                                                   Tipo_Acrescimo_ou_Desconto AS STRING,;

                                                   Valor_Acrescimo_ou_Desconto AS STRING,;

                                                   Valor_do_Recebimento AS STRING,;

                                                   Texto_Livre AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_AbreRecebimentoNaoFiscal" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RecebimentoNaoFiscal( Indice_do_Totalizador AS STRING,;

                                               Valor_do_Recebimento AS STRING,;

                                               Forma_de_Pagamento AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RecebimentoNaoFiscal" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_EfetuaFormaPagamentoNaoFiscal( Forma_de_Pagamento AS STRING,;

                                                        Valor_da_Forma_Pagamento AS STRING,;

                                                        Texto_Livre AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_EfetuaFormaPagamentoNaoFiscal" LIB XDLL_DARUMA

 

// Sangria

DLL32 FUNCTION Daruma_FI_Sangria( Valor_da_Sangria AS LPSTR ) AS LONG PASCAL;

      FROM "Daruma_FI_Sangria" LIB XDLL_DARUMA

 

// Suprimento de Caixa

DLL32 FUNCTION Daruma_FI_Suprimento( Valor_do_Suprimento AS LPSTR,;

                                     Forma_de_Pagamento  AS LPSTR ) AS LONG PASCAL;

      FROM "Daruma_FI_Suprimento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_FundoCaixa( Valor_do_Fundo_Caixa AS STRING,;

                                     Forma_de_Pagamento AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_FundoCaixa" LIB XDLL_DARUMA

 

// Emite leitura X

DLL32 FUNCTION Daruma_FI_LeituraX( ) AS LONG PASCAL FROM "Daruma_FI_LeituraX" LIB XDLL_DARUMA

 

// Emite reduÃ§Ã£o Z

DLL32 FUNCTION Daruma_FI_ReducaoZ( Dt AS LPSTR, Hs AS LPSTR ) AS LONG PASCAL ; 

      FROM "Daruma_FI_ReducaoZ" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ReducaoZAjustaDataHora( Data AS STRING,;

                                                 Hora AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ReducaoZAjustaDataHora" LIB XDLL_DARUMA

 

// Emite leitura da memÃ³ria fiscal por data

DLL32 FUNCTION Daruma_FI_LeituraMemoriaFiscalData( Data_Inicial AS LPSTR,;

                                                   Data_Final   AS LPSTR ) AS LONG PASCAL;

      FROM "Daruma_FI_LeituraMemoriaFiscalData" LIB XDLL_DARUMA

 

// Emite leitura da memÃ³ria fiscal por ReduÃ§Ã£o

DLL32 FUNCTION Daruma_FI_LeituraMemoriaFiscalReducao( Reducao_Inicial AS LPSTR,;

                                                      Reducao_Final   AS LPSTR ) AS LONG PASCAL;

      FROM "Daruma_FI_LeituraMemoriaFiscalReducao" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_LeituraMemoriaFiscalSerialData( Data_Inicial AS STRING,;

                                                         Data_Final AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_LeituraMemoriaFiscalSerialData" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_LeituraMemoriaFiscalSerialReducao( Reducao_Inicial AS STRING,;

                                                            Reducao_Final AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_LeituraMemoriaFiscalSerialReducao" LIB XDLL_DARUMA

 

// MÃ©todos Gaveta, Autentica e Outras

 

DLL32 FUNCTION Daruma_FI_VerificaDocAutenticacao() AS LONG PASCAL;

      FROM "Daruma_FI_VerificaDocAutenticacao" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_Autenticacao() AS LONG PASCAL;

      FROM "Daruma_FI_Autenticacao" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_AutenticacaoStr( Autenticacao_Str AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_AutenticacaoStr" LIB XDLL_DARUMA

 

// Verifica status da gaveta

DLL32 FUNCTION Daruma_FI_VerificaEstadoGaveta( @Estado_Gaveta AS PTR ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaEstadoGaveta" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaEstadoGavetaStr( Estado_Gaveta AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaEstadoGavetaStr" LIB XDLL_DARUMA

 

// Abre a gaveta

DLL32 FUNCTION Daruma_FI_AcionaGaveta( ) AS LONG PASCAL;

      FROM "Daruma_FI_AcionaGaveta" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_AbrePortaSerial() AS LONG PASCAL;

      FROM "Daruma_FI_AbrePortaSerial" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_FechaPortaSerial() AS LONG PASCAL;

      FROM "Daruma_FI_FechaPortaSerial" LIB XDLL_DARUMA

 

// Faz abertura do dia

DLL32 FUNCTION Daruma_FI_AberturaDoDia( Valor_do_Suprimento AS LPSTR,;

                                        Forma_de_Pagamento  AS LPSTR ) AS LONG PASCAL;

      FROM "Daruma_FI_AberturaDoDia" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_FechamentoDoDia() AS LONG PASCAL;

      FROM "Daruma_FI_FechamentoDoDia" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ImprimeConfiguracoesImpressora() AS LONG PASCAL;

      FROM "Daruma_FI_ImprimeConfiguracoesImpressora" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RegistraNumeroSerie() AS LONG PASCAL;

      FROM "Daruma_FI_RegistraNumeroSerie" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaNumeroSerie() AS LONG PASCAL;

      FROM "Daruma_FI_VerificaNumeroSerie" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaSerialCriptografado( SerialCriptografado AS STRING,;

      NumeroSerial AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaSerialCriptografado" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ConfiguraHorarioVerao( DataEntrada AS STRING, DataSaida AS STRING,;

      controle AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ConfiguraHorarioVerao" LIB XDLL_DARUMA

 

// MÃ©todos Prog e Config

 

DLL32 FUNCTION Daruma_FI_ProgramaAliquota( Valor_Aliquota AS STRING, Tipo_Aliquota AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ProgramaAliquota" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_NomeiaTotalizadorNaoSujeitoIcms( Indice_do_Totalizador AS _INT,;

      Nome_do_Totalizador AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_NomeiaTotalizadorNaoSujeitoIcms" LIB XDLL_DARUMA

 

//Programa Forma de Pagamento

DLL32 FUNCTION Daruma_FI_ProgramaFormasPagamento( Descricao_das_Formas_Pagamento AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ProgramaFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ProgramaOperador( Nome_do_Operador AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ProgramaOperador" LIB XDLL_DARUMA

 

// Ativa arredondamento

DLL32 FUNCTION Daruma_FI_ProgramaArredondamento( ) AS LONG PASCAL;

      FROM "Daruma_FI_ProgramaArredondamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ProgramaTruncamento() AS LONG PASCAL;

      FROM "Daruma_FI_ProgramaTruncamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_LinhasEntreCupons( Linhas_Entre_Cupons AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_LinhasEntreCupons" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_EspacoEntreLinhas( Espaco_Entre_Linhas AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_EspacoEntreLinhas" LIB XDLL_DARUMA

 

// Programa Horario de Verao

DLL32 FUNCTION Daruma_FI_ProgramaHorarioVerao( ) AS LONG PASCAL;

      FROM "Daruma_FI_ProgramaHorarioVerao" LIB XDLL_DARUMA

 

 

DLL32 FUNCTION Daruma_FI_EqualizaFormasPgto( ) AS LONG PASCAL;

      FROM "Daruma_FI_EqualizaFormasPgto" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ProgramaVinculados( Vinculado AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ProgramaVinculados" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ProgFormasPagtoSemVincular( Descricao_da_Forma_Pagamento AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ProgFormasPagtoSemVincular" LIB XDLL_DARUMA

 

// MÃ©todos de ConfiguraÃ§Ã£o e Registry

 

DLL32 FUNCTION Daruma_FI_CfgFechaAutomaticoCupom( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgFechaAutomaticoCupom" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CfgRedZAutomatico( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgRedZAutomatico" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CfgImpEstGavVendas( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgImpEstGavVendas" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CfgLeituraXAuto( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgLeituraXAuto" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CfgCalcArredondamento( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgCalcArredondamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CfgHorarioVerao( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgHorarioVerao" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CfgSensorAut( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgSensorAut" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CfgCupomAdicional( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgCupomAdicional" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CfgPermMensPromCNF( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgPermMensPromCNF" LIB XDLL_DARUMA

 

//Configura espaÃ§amento entre documentos

DLL32 FUNCTION Daruma_FI_CfgEspacamentoCupons( DistanciaCupons AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgEspacamentoCupons" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CfgHoraMinReducaoZ( Hora_Min_para_ReducaoZ AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgHoraMinReducaoZ" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CfgLimiarNearEnd( NumeroLinhas AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CfgLimiarNearEnd" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_AlteraRegistry( Chave AS STRING, ValorChave AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_AlteraRegistry" LIB XDLL_DARUMA

 

//Porta de ComunicaÃ§Ã£o

DLL32 FUNCTION Daruma_Registry_Porta( Porta AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_Porta" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_Path( Path AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_Path" LIB XDLL_DARUMA

 

//Controle do Status

DLL32 FUNCTION Daruma_Registry_Status( Status AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_Status" LIB XDLL_DARUMA

 

//Controle do Status da FunÃ§Ã£o

DLL32 FUNCTION Daruma_Registry_StatusFuncao( StatusFuncao AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_StatusFuncao" LIB XDLL_DARUMA

 

//Controle do Retorno

DLL32 FUNCTION Daruma_Registry_Retorno( Retorno AS STRING ) AS LONG PASCAL ;

      FROM "Daruma_Registry_Retorno" LIB XDLL_DARUMA

 

//Controle da Porta

DLL32 FUNCTION Daruma_Registry_ControlePorta( ControlePorta AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_ControlePorta" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_ModoGaveta( ModoGaveta AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_ModoGaveta" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_Log( _Log AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_Log" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_NomeLog( NomeLog AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_NomeLog" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_Separador( Separador AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_Separador" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_SeparaMsgPromo( SeparaMsgPromo AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_SeparaMsgPromo" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_ZAutomatica( ZAutomatica AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_ZAutomatica" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_XAutomatica( XAutomatica AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_XAutomatica" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_VendeItemUmaLinha( VendeItemUmaLinha AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_VendeItemUmaLinha" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_Default() AS LONG PASCAL;

FROM "Daruma_Registry_Default" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_RetornaValor( Produto AS STRING, Chave AS STRING, Valor AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_RetornaValor" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_TerminalServer( TerminalServer AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_TerminalServer" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_ErroExtendidoOk( ValorErro AS STRING ) AS LONG PASCAL;

FROM "Daruma_Registry_ErroExtendidoOk" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_AbrirDiaFiscal( AbrirDiaFiscal AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_AbrirDiaFiscal" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_VendaAutomatica( VendaAutomatica AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_VendaAutomatica" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_IgnorarPoucoPapel( IgnorarPoucoPapel AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_IgnorarPoucoPapel" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_ImprimeRegistry( Produto AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_ImprimeRegistry" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_TEF_NumeroLinhasImpressao( NumeroLinhasImpressao AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_TEF_NumeroLinhasImpressao" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_AplMensagem1( Str_AplMensagem_1 AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_AplMensagem1" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_AplMensagem2( Str_AplMensagem_2 AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_AplMensagem2" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_Velocidade( VelocidadeDaPortaSerial AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_Velocidade" LIB XDLL_DARUMA

 

// MÃ©todos de InformaÃ§Ãµes e Status

 

// Verifica Status do Cupom Fiscal

DLL32 FUNCTION Daruma_FI_StatusCupomFiscal( StatusCupomFiscal AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_StatusCupomFiscal" LIB XDLL_DARUMA

 

// Verifica Status do Relatorio Gerencial

DLL32 FUNCTION Daruma_FI_StatusRelatorioGerencial( StatusRelGerencial AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_StatusRelatorioGerencial" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_StatusComprovanteNaoFiscalVinculado( StatusCNFV AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_StatusComprovanteNaoFiscalVinculado" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_StatusComprovanteNaoFiscalNaoVinculado( StatusCNFNV AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_StatusComprovanteNaoFiscalNaoVinculado" LIB XDLL_DARUMA

 

// Verifica se tem impressora ligada

DLL32 FUNCTION Daruma_FI_VerificaImpressoraLigada( ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaImpressoraLigada" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaTotalizadoresParciais( Totalizadores AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaTotalizadoresParciais" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaModoOperacao( Modo AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaModoOperacao" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaTotalizadoresNaoFiscais( Totalizadores AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaTotalizadoresNaoFiscais" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaTotalizadoresNaoFiscaisEx( Totalizadores AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaTotalizadoresNaoFiscaisEx" LIB XDLL_DARUMA

 

// Ler configuraÃ§Ã£o arredondamento/truncamento

DLL32 FUNCTION Daruma_FI_VerificaTruncamento( Flag AS LPSTR ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaTruncamento" LIB XDLL_DARUMA

 

//Ler status de vinculo ao ISS

DLL32 FUNCTION Daruma_FI_VerificaAliquotasIss( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaAliquotasIss" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaIndiceAliquotasIss( Flag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaAliquotasIss" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaRecebimentoNaoFiscal( Recebimentos AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaRecebimentoNaoFiscal" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaTipoImpressora( @TipoImpressora AS _INT /*AS LPSTR*/ ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaTipoImpressora" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaStatusCheque( StatusCheque AS LPSTR ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaStatusCheque" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaModeloECF() AS LONG PASCAL;

      FROM "Daruma_FI_VerificaModeloECF" LIB XDLL_DARUMA

 

//Ler Status das Formas de Pagamento

DLL32 FUNCTION Daruma_FI_VerificaDescricaoFormasPagamento( Descricao AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaXPendente( XPendente AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaXPendente" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaZPendente( ZPendente AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaZPendente" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaDiaAberto( DiaAberto AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaDiaAberto" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaHorarioVerao( HoraioVerao AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaHorarioVerao" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaFormasPagamento( cFormas AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaFormasPagamentoEx( FormasEx AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaFormasPagamentoEx" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaEpromConectada( cFlag AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaEpromConectada" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VerificaEstadoImpressora( @ACK  AS _INT,;

                                                   @ST1  AS _INT,;

                                                   @ST2  AS _INT ) AS LONG PASCAL;

      FROM "Daruma_FI_VerificaEstadoImpressora" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ClicheProprietario( Cliche AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ClicheProprietario" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ClicheProprietarioEx( ClicheEx AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ClicheProprietarioEx" LIB XDLL_DARUMA

 

// Ler nÃºmero do caixa

DLL32 FUNCTION Daruma_FI_NumeroCaixa( NumeroCaixa AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_NumeroCaixa" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_NumeroLoja( NumeroLoja AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_NumeroLoja" LIB XDLL_DARUMA

 

// Ler nÃºmero de SÃ©rie da Impressora

DLL32 FUNCTION Daruma_FI_NumeroSerie( NumeroSerie AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_NumeroSerie" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VersaoFirmware( VersaoFirmware AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VersaoFirmware" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_CGC_IE( CGC AS STRING, IE AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_CGC_IE" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_LerAliquotasComIndice( AliquotasComIndice AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_LerAliquotasComIndice" LIB XDLL_DARUMA

 

// Ler nÃºmero do cupom

DLL32 FUNCTION Daruma_FI_NumeroCupom( NumeroCupom AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_NumeroCupom" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_COO(Inicial AS STRING, Final AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_COO" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_MinutosImprimindo( Minutos AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_MinutosImprimindo" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_MinutosLigada( Minutos AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_MinutosLigada" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_NumeroSubstituicoesProprietario( NumeroSubstituicoes AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_NumeroSubstituicoesProprietario" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_NumeroIntervencoes( NumeroIntervencoes AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_NumeroIntervencoes" LIB XDLL_DARUMA

 

// Ler nÃºmero de ReduÃ§Ãµes da Impressora

DLL32 FUNCTION Daruma_FI_NumeroReducoes( NumeroReducoes AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_NumeroReducoes" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_NumeroCuponsCancelados( NumeroCancelamentos AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_NumeroCuponsCancelados" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_NumeroOperacoesNaoFiscais( NumeroOperacoes AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_NumeroOperacoesNaoFiscais" LIB XDLL_DARUMA

 

// Ler data e hora da impressora

DLL32 FUNCTION Daruma_FI_DataHoraImpressora( Data AS STRING, Hora AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_DataHoraImpressora" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_DataHoraReducao( Data AS STRING, String AS STRING, Hora AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_DataHoraReducao" LIB XDLL_DARUMA

 

// Ler data do movimento

DLL32 FUNCTION Daruma_FI_DataMovimento( Data AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_DataMovimento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ContadoresTotalizadoresNaoFiscais( Contadores AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ContadoresTotalizadoresNaoFiscais" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_VendaBruta( VendaBruta AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_VendaBruta" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_GrandeTotal( GrandeTotal AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_GrandeTotal" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_Descontos( ValorDescontos AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_Descontos" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_Acrescimos( ValorAcrescimos AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_Acrescimos" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_Cancelamentos( ValorCancelamentos AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_Cancelamentos" LIB XDLL_DARUMA

 

// Dados da Ultima ReduÃ§Ã£o

DLL32 FUNCTION Daruma_FI_DadosUltimaReducao( DadosReducao AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_DadosUltimaReducao" LIB XDLL_DARUMA

 

// Ler total do cupom

DLL32 FUNCTION Daruma_FI_SubTotal( SubTotal AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_SubTotal" LIB XDLL_DARUMA

 

//Ler status das Aliquotas de ICMS

DLL32 FUNCTION Daruma_FI_RetornoAliquotas( Aliquotas AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornoAliquotas" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ValorPagoUltimoCupom( ValorCupom AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ValorPagoUltimoCupom" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ValorFormaPagamento( FormaPagamento AS STRING, Valor AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ValorFormaPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_ValorTotalizadorNaoFiscal( Totalizador AS STRING, Valor AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_ValorTotalizadorNaoFiscal" LIB XDLL_DARUMA

 

// Ler Ultimo Item vendido

DLL32 FUNCTION Daruma_FI_UltimoItemVendido( NumeroItem AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_UltimoItemVendido" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_UltimaFormaPagamento( Descricao_da_Forma AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_UltimaFormaPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_TipoUltimoDocumento( TipoUltimoDoc AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_TipoUltimoDocumento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_MapaResumo() AS LONG PASCAL;

      FROM "Daruma_FI_MapaResumo" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RelatorioTipo60Analitico() AS LONG PASCAL;

      FROM "Daruma_FI_RelatorioTipo60Analitico" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RelatorioTipo60Mestre() AS LONG PASCAL;

      FROM "Daruma_FI_RelatorioTipo60Mestre" LIB XDLL_DARUMA

 

// Ler flag fiscal da impressora

DLL32 FUNCTION Daruma_FI_FlagsFiscais( @Flag AS PTR ) AS LONG PASCAL;

      FROM "Daruma_FI_FlagsFiscais" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_PalavraStatus( PalavraStatus AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_PalavraStatus" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_PalavraStatusBinario( PalavraStatusBinario AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_PalavraStatusBinario" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_SimboloMoeda( SimboloMoeda AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_SimboloMoeda" LIB XDLL_DARUMA

 

// Retorno da Impressora

DLL32 FUNCTION Daruma_FI_RetornoImpressora( @ACK AS _INT,; //AS PTR,;

                                            @ST1 AS _INT,; //AS PTR,;

                                            @ST2 AS _INT /*AS PTR*/ ) AS LONG PASCAL; 

      FROM "Daruma_FI_RetornoImpressora" LIB XDLL_DARUMA

 

// Retorno Erro Extendido

DLL32 FUNCTION Daruma_FI_RetornaErroExtendido( Str_ErroExtendido AS STRING ) AS LONG PASCAL; 

      FROM "Daruma_FI_RetornaErroExtendido" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaAcrescimoNF( AcrescimoNF AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaAcrescimoNF" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaCFCancelados( CFCancelados AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaCFCancelados" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaCNFCancelados( CNFCancelados AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaCNFCancelados" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaCLX( CLX AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaCLX" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaCNFNV( CNFNV AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaCNFNV" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaCNFV( CNFV AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaCNFV" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaCRO( CRO AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaCRO" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaCRZ(CRZ  AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaCRZ" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaCRZRestante( CRZRestante AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaCRZRestante" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaCancelamentoNF( CancelamentoNF AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaCancelamentoNF" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaDescontoNF( DescontoNF AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaDescontoNF" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaGNF( GNF AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaGNF" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaTempoImprimindo( TempoImprimindo AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaTempoImprimindo" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaTempoLigado( TempoLigado AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaTempoLigado" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaTotalPagamentos( TotalPagamentos AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaTotalPagamentos" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaTroco( Troco AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaTroco" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaZeros( Zeros AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaZeros" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaValorComprovanteNaoFiscal( Indice_CNF AS STRING, Informacao AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaValorComprovanteNaoFiscal" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaIndiceComprovanteNaoFiscal( DescricaoRegistrCNF AS STRING, RefIndice AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaIndiceComprovanteNaoFiscal" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaRegistradoresNaoFiscais( RegistrNaoFiscais AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaRegistradoresNaoFiscais" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI_RetornaRegistradoresFiscais( RegistrFiscais AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI_RetornaRegistradoresFiscais" LIB XDLL_DARUMA

 

// MÃ©todos para TEF

 

// Funcao Para Aguardar Arquivo TEF

DLL32 FUNCTION Daruma_TEF_EsperarArquivo( Path_Resp_TEF AS STRING,;

                                          Tempo_Espera  AS STRING,;

                                          Travar        AS STRING ) AS LONG PASCAL;

      FROM "Daruma_TEF_EsperarArquivo" LIB XDLL_DARUMA

 

// Funcao Para Imprimir Arquivo de Resposta TEF

DLL32 FUNCTION Daruma_TEF_ImprimirResposta( Path_Arquivo_Resp_TEF AS STRING,;

                                            Forma_de_Pagamento    AS STRING,;

                                            Travar_Teclado        AS STRING ) AS LONG PASCAL;

      FROM "Daruma_TEF_ImprimirResposta" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_TEF_ImprimirRespostaCartao( Path_Arquivo_Resp_TEF AS STRING,;

                                                  Forma_de_Pagamento AS STRING,;

                                                  Travar_Teclado AS STRING,;

                                                  Valor_da_Forma_Pagamento AS STRING ) AS LONG PASCAL;

      FROM "Daruma_TEF_ImprimirRespostaCartao" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_TEF_FechaRelatorio() AS LONG PASCAL;

      FROM "Daruma_TEF_FechaRelatorio" LIB XDLL_DARUMA

 

// Funcao Para Dar Foco a Janela

DLL32 FUNCTION Daruma_TEF_SetFocus( TituloJanela AS STRING ) AS LONG PASCAL;

      FROM "Daruma_TEF_SetFocus" LIB XDLL_DARUMA

 

// Funcao Travar o teclado

DLL32 FUNCTION Daruma_TEF_TravarTeclado( Travar AS STRING ) AS LONG PASCAL;

      FROM "Daruma_TEF_TravarTeclado" LIB XDLL_DARUMA

 

// MÃ©todos para FS2000

 

/*

DLL32 FUNCTION Daruma_Registry_FS2000_CupomAdicional( CupomAdicional: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_FS2000_TempoEsperaCheque( TempodeEspera: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_DescontoSobreItemVendido( NumeroItem: String; TipoDesconto: String; ValorDesconto: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_AcrescimosICMSISS( AcrescICMS: String; AcrescISS: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_CancelamentosICMSISS( CancelICMS: String; CancelISS: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_DescontosICMSISS( DescICMS: String; DescISS: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_LeituraInformacaoUltimosCNF( UltimosCNF: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_LeituraInformacaoUltimoDoc( TipoUltimoDoc: String; ValorUltimoDoc: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_VerificaRelatorioGerencial( Gerencial: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_CriaRelatorioGerencial( NomeGerencial: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_AbreRelatorioGerencial( Indice: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_CancelamentoCNFV( COO_CNFV: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_SegundaViaCNFVinculado: Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_StatusCheque( StatusCheque: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_ImprimirCheque( Banco: String; Cidade: String; Data: String; Favorecido: String; Valor: String; PosicaoCheque: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_ImprimirVersoCheque( VersoCheque: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_LiberarCheque: Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_LeituraCodigoMICR( CodigoMICR: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_CancelarCheque: Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_LeituraTabelaCheque( TabelaCheque: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FI2000_CarregarCheque( NumeroBanco: String ): Integer; StdCall; External XDLL_DARUMA;

      FROM "Daruma_FI_VerificaDescricaoFormasPagamento" LIB XDLL_DARUMA

*/

DLL32 FUNCTION Daruma_FI2000_CorrigirGeometriaCheque( NumeroBanco AS STRING,;

                                                      GeometriaCheque AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FI2000_CorrigirGeometriaCheque" LIB XDLL_DARUMA

 

// Metodos exclusivos para MFD

DLL32 FUNCTION Daruma_FIMFD_ImprimeCodigoBarras( Tipo AS STRING,;

                                                 Codigo AS STRING,;

                                                 Largura AS STRING,;

                                                 Altura AS STRING,;

                                                 Posicao AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FIMFD_ImprimeCodigoBarras" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FIMFD_RetornaInformacao( Indice AS STRING, Valor AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FIMFD_RetornaInformacao" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FIMFD_DownloadDaMFD( CoInicial AS STRING, CoFinal AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FIMFD_DownloadDaMFD" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FIMFD_CasasDecimaisProgramada( Quantidade AS STRING, Valor AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FIMFD_CasasDecimaisProgramada" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FIMFD_IndicePrimeiroVinculado( Indice AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FIMFD_IndicePrimeiroVinculado" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FIMFD_TerminaFechamentoCupomCodigoBarras( Mensagem AS STRING,;

                                                                Tipo     AS STRING,;

                                                                Codigo   AS STRING,;

                                                                Largura  AS STRING,;

                                                                Altura   AS STRING,;

                                                                Posicao  AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FIMFD_TerminaFechamentoCupomCodigoBarras" LIB XDLL_DARUMA

 

//Metodos FIB

 

DLL32 FUNCTION Daruma_FIB_AbreBilhetePassagem( Origem AS STRING,;

                                               Destino AS STRING,;

                                               UF AS STRING,;

                                               Percurso AS STRING,;

                                               Prestadora AS STRING,;

                                               Plataforma AS STRING,;

                                               Poltrona AS STRING,;

                                               Modalidade AS STRING,;

                                               Categoria AS STRING,;

                                               DataEmbarque AS STRING,;

                                               PassRg AS STRING,;

                                               PassNome AS STRING,;

                                               PassEndereco AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FIB_AbreBilhetePassagem" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_FIB_VendeItem( Descricao AS STRING,;

                                     St AS STRING,;

                                     Valor AS STRING,;

                                     DescontoAcrescimo AS STRING,;

                                     TipoDesconto AS STRING,;

                                     ValorDesconto AS STRING ) AS LONG PASCAL;

      FROM "Daruma_FIB_VendeItem" LIB XDLL_DARUMA

 

// Metodos Para Impressora DUAL

 

DLL32 FUNCTION Daruma_DUAL_ImprimirTexto( TextoLivre AS STRING, TamanhoTexto AS _INT ) AS LONG PASCAL;

      FROM "Daruma_DUAL_ImprimirTexto" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_DUAL_AcionaGaveta() AS LONG PASCAL;

      FROM "Daruma_DUAL_AcionaGaveta" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_DUAL_VerificaDocumento() AS LONG PASCAL;

      FROM "Daruma_DUAL_VerificaDocumento" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_DUAL_Enter( Enter AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_DUAL_Enter" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_DUAL_Espera( Espera AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_DUAL_Espera" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_DUAL_ModoEscrita( Modo_Escrita AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_DUAL_ModoEscrita" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_DUAL_Porta( Porta AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_DUAL_Porta" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Registry_DUAL_Tabulacao( Tabulacao AS STRING ) AS LONG PASCAL;

      FROM "Daruma_Registry_DUAL_Tabulacao" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_DUAL_ImprimirArquivo( Str_Path AS STRING ) AS LONG PASCAL;

      FROM "Daruma_DUAL_ImprimirArquivo" LIB XDLL_DARUMA

 

DLL32 FUNCTION Daruma_Dual_VerificaStatus() AS LONG PASCAL;

      FROM "Daruma_Dual_VerificaStatus" LIB XDLL_DARUMA

 

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

 

// 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 XDLL_BEMATECH

 

//Ler nÃºmero d0o caixa

DLL32 FUNCTION BmNumeroCx( NumeroCaixa AS LPSTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_NumeroCaixa" LIB XDLL_BEMATECH

 

//Ler configuraÃ§Ã£o arredondamento/truncamento

DLL32 FUNCTION BmVerArred( Arredonda AS LPSTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_VerificaTruncamento" LIB XDLL_BEMATECH

 

//Ativa arredondamento

DLL32 FUNCTION BmLigArred( ) AS LONG PASCAL ;

      FROM "Bematech_FI_ProgramaArredondamento" LIB XDLL_BEMATECH

 

//Ler data do movimento

DLL32 FUNCTION BmDtMovto ( DtMovto AS LPSTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_DataMovimento" LIB XDLL_BEMATECH

 

//Ler flag fiscal da impressora

DLL32 FUNCTION BmFlagFiscal( @FlagFiscal AS PTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_FlagsFiscais" LIB XDLL_BEMATECH

 

//Emite leitura X

DLL32 FUNCTION BmLeituraX( ) AS LONG PASCAL ;

      FROM "Bematech_FI_LeituraX" LIB XDLL_BEMATECH

 

//Emite reduÃ§Ã£o Z

DLL32 FUNCTION BmReducaoZ( Dt AS LPSTR, Hs AS LPSTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_ReducaoZ" LIB XDLL_BEMATECH

 

//Ler data e hora da impressora

DLL32 FUNCTION BmDtHora ( Dt AS LPSTR, Hs AS LPSTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_DataHoraImpressora" LIB XDLL_BEMATECH

 

//Faz abertura do dia

DLL32 FUNCTION BmAbreDia ( Vl AS LPSTR, Fr AS LPSTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_AberturaDoDia" LIB XDLL_BEMATECH

 

//Abre cupom fiscal

DLL32 FUNCTION BmAbreCup ( Cgc AS LPSTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_AbreCupom" LIB XDLL_BEMATECH

 

//Verifica se tem papel

DLL32 FUNCTION BmVerPapel( @Linhas AS PTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_MonitoramentoPapel" LIB XDLL_BEMATECH

 

//Verifica se tem impressora ligada

DLL32 FUNCTION BmPrintLig( ) AS LONG PASCAL ;

      FROM "Bematech_FI_VerificaImpressoraLigada" LIB XDLL_BEMATECH

 

//Cancela cupom fiscal

DLL32 FUNCTION BmCanCupom( ) AS LONG PASCAL ;

      FROM "Bematech_FI_CancelaCupom" LIB XDLL_BEMATECH

 

//Cancela Ãºltimo Ãtem do cupom

DLL32 FUNCTION BmCancItem( ) AS LONG PASCAL ;

      FROM "Bematech_FI_CancelaItemAnterior" LIB XDLL_BEMATECH

 

//Abre a gaveta

DLL32 FUNCTION BmAbreGav ( ) AS LONG PASCAL ;

      FROM "Bematech_FI_AcionaGaveta" LIB XDLL_BEMATECH

 

//Ler nÃºmero do cupom

DLL32 FUNCTION BmNumCupom( Cupom AS LPSTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_NumeroCupom" LIB XDLL_BEMATECH

 

//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 XDLL_BEMATECH

 

//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 XDLL_BEMATECH

 

//Emite cupom gerencial 618 CARACTERES NO MAXIMO POR COMANDO

DLL32 FUNCTION BmCpGerAbr( Texto AS STRING ) AS LONG PASCAL ;

      FROM "Bematech_FI_RelatorioGerencial" LIB XDLL_BEMATECH

 

//Fecha cupom gerencial

DLL32 FUNCTION BmCpGerFec( ) AS LONG PASCAL ;

      FROM "Bematech_FI_FechaRelatorioGerencial" LIB XDLL_BEMATECH

 

//Verifica status da gaveta

DLL32 FUNCTION BmStGaveta( @nStatus AS PTR ) AS LONG PASCAL ;

      FROM "Bematech_FI_VerificaEstadoGaveta" LIB XDLL_BEMATECH

 

//Abre cupom adicional

DLL32 FUNCTION BmCupAdAbr( FormaPgto AS STRING,;

      Valor AS STRING,;

      Cupom AS STRING ) AS LONG PASCAL ;

      FROM "Bematech_FI_AbreComprovanteNaoFiscalVinculado" LIB XDLL_BEMATECH

 

//Imprime cupom nÃ£o fiscal vinculado

DLL32 FUNCTION BmCupAdUsa( Texto AS STRING ) AS LONG PASCAL ;

      FROM "Bematech_FI_UsaComprovanteNaoFiscalVinculado" LIB XDLL_BEMATECH

 

//Fecha cupom nÃ£o fiscal

DLL32 FUNCTION BmCupAdFec( ) AS LONG PASCAL ;

      FROM "Bematech_FI_FechaComprovanteNaoFiscalVinculado" LIB XDLL_BEMATECH

 

//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 XDLL_BEMATECH

 

 

//Efetua Formas de Pagamento

DLL32 FUNCTION BmFormasPag( FormaPgto AS STRING,;

      ValorPago AS STRING ) AS LONG PASCAL ;

      FROM "Bematech_FI_EfetuaFormaPagamento" LIB XDLL_BEMATECH

 

//Inicia Fechamento cupom

DLL32 FUNCTION BmIniFecCup( Acrescimo AS STRING,;

      TipoAcresc AS STRING,;

      ValorAcresc AS STRING ) AS LONG PASCAL ;

      FROM "Bematech_FI_IniciaFechamentoCupom" LIB XDLL_BEMATECH

 

//Termina Fechamento cupom 

DLL32 FUNCTION BmTerFecCup( Mensagem AS STRING ) AS LONG PASCAL ;

      FROM "Bematech_FI_TerminaFechamentoCupom" LIB XDLL_BEMATECH

 

//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 XDLL_BEMATECH

 

//Verifica status do gerenciador padrÃ£o

DLL32 FUNCTION BmTfStatus( Operacao AS LPSTR ) AS LONG PASCAL ;

      FROM "Bematech_FITEF_Status" LIB XDLL_BEMATECH

 

DLL32 FUNCTION BmFormaPg( cNomeDocto   AS STRING ,;

                          cValorDocto  AS STRING ) AS LONG PASCAL;

      FROM "Bematech_FI_EfetuaFormaPagamento" LIB XDLL_BEMATECH

 

DLL32 FUNCTION BmIniciaFecha( cAcreDesc     AS STRING ,;

                              cTipoAcreDes  AS STRING ,;

                              cValorParc    AS STRING ) AS LONG PASCAL ;

      FROM "Bematech_FI_IniciaFechamentoCupom" LIB XDLL_BEMATECH

 

DLL32 FUNCTION BmCancGen( NumeroItem AS LPSTR       ) AS LONG PASCAL ;

      FROM "Bematech_FI_CancelaItemGenerico"      LIB XDLL_BEMATECH

 

//-> FIM DO PROGRAMA

MARSAN · June 21, 2013

obrigado pela atencao kapiaba....... vc teria exemplo desta programacao? aqui tem muita coisa pra daruma e bematech mas Ã© raro material para sewda em fivewin

//-> Declaraâ€¡Ã¤es das Funâ€¡Ã¤es de 32 Bits da DLL da Impressora Sweda.
//-> Necess rio Ter No DiretÂ¢rio de Trabalho, Esta DLL: SWECF.DLL

DLL32 FUNCTION ECFOpen(Numero AS LONG, Tempo AS LONG, Log AS LONG, ;
Mostra AS LONG) AS LONG PASCAL LIB XDLL_SWEDA

DLL32 FUNCTION ECFClose() AS LONG PASCAL LIB XDLL_SWEDA

DLL32 FUNCTION ECFWrite(Comando AS STRING) AS LONG PASCAL LIB XDLL_SWEDA

DLL32 FUNCTION ECFRead(Status AS STRING,Extensao AS LONG) AS LONG PASCAL ;
LIB XDLL_SWEDA

DLL32 FUNCTION LEIT_STAT( @Status As STRING, ;
Extensao As 7 ) as BYTE pascal from "ECFRead" LIB XDLL_SWEDA

kapiaba · June 21, 2013



Olha eu uma vez usei uma impressora sweda e o prog de teste era esse:

 

#include "FiveWin.ch"

 

STATIC Abertura

 

Func TESTE()

Local ret:=0,cBuffer

MSGSTOP("VOU")

Abertura:=LoadLib32("SWECF.DLL")

MSGSTOP(ABERTURA)

ret = ECFOpen(1, 4, 0, 0)  &&& porta:=1,2

MSGSTOP(RET)

if ret=0

   cBuffer=chr(27)+".13N}"    &&& Leitura X

   ret = ECFWrite(cBuffer)

   if ret=0

      cBuffer = Space(512)

      ret = ECFRead(cBuffer, 512)

      MSGSTOP(RET)

      MSGSTOP(cBUFFER)

      *** Tratamento do erro (cBuffer)

   ELSE

      MSGSTOP("OK")

   endif

   *

   MSGSTOP("ABRE CUPOM")

   cBuffer=chr(27)+".17}"    &&& ABRE CUPOM

   ret = ECFWrite(cBuffer)

   if ret=0

      cBuffer = Space(512)

      ret = ECFRead(cBuffer, 512)

      MSGSTOP(RET)

      MSGSTOP(cBUFFER)

      *** Tratamento do erro (cBuffer)

   ELSE

      MSGSTOP("OK")

   endif

   *

   MSGSTOP("VENDE ITEM")

   cBuffer := chr(27)+".01"+"7894900010015"+"0001000"+"000000100"+"000000000100"+"REFRI COCA-COLA 350ML   "+"F  "+"}"    &&& VENDE ITEM

   ret = ECFWrite(cBuffer)

   if ret=0

      cBuffer = Space(512)

      ret = ECFRead(cBuffer, 512)

      MSGSTOP(RET)

      MSGSTOP(cBUFFER)

      *** Tratamento do erro (cBuffer)

   ELSE

      MSGSTOP("OK")

   endif

   *

   MSGSTOP("VENDE ITEM")

   cBuffer := chr(27)+".01"+"7894900010015"+"0001000"+"000000100"+"000000000100"+"REFRI COCA-COLA 350ML   "+"F  "+"}"    &&& VENDE ITEM

   ret = ECFWrite(cBuffer)

   if ret=0

      cBuffer = Space(512)

      ret = ECFRead(cBuffer, 512)

      MSGSTOP(RET)

      MSGSTOP(cBUFFER)

      *** Tratamento do erro (cBuffer)

   ELSE

      MSGSTOP("OK")

   endif

   *

   MSGSTOP("CANCELA ITEM")

   cBuffer := chr(27)+".04"+"002"+"}"    &&& CANCELA ITEM 002

   ret = ECFWrite(cBuffer)

   if ret=0

      cBuffer = Space(512)

      ret = ECFRead(cBuffer, 512)

      MSGSTOP(RET)

      MSGSTOP(cBUFFER)

      *** Tratamento do erro (cBuffer)

   ELSE

      MSGSTOP("OK")

   endif

   *

   MSGSTOP("TOTALIZA")

   cBuffer := chr(27)+".10"+"01"+"000000000100"+"}"    &&& TOTALIZA CUPOM E PAGA

   ret = ECFWrite(cBuffer)

   if ret=0

      cBuffer = Space(512)

      ret = ECFRead(cBuffer, 512)

      MSGSTOP(RET)

      MSGSTOP(cBUFFER)

      *** Tratamento do erro (cBuffer)

   ELSE

      MSGSTOP("OK")

   endif

   *

   MSGSTOP("FECHA CUPOM")

   cBuffer := chr(27)+".12"+"N"+"N"+"0"+REPL("-",40)+"0"+REPL("+",40)+"0"+REPL("-",40)+"0"+REPL("+",40)+"0"+REPL("-",40)+"0"+REPL("+",40)+"0"+REPL("-",40)+"0"+REPL("+",40)+"}"    &&& FECHA VENDA

   ret = ECFWrite(cBuffer)

   if ret=0

      cBuffer = Space(512)

      ret = ECFRead(cBuffer, 512)

      MSGSTOP(RET)

      MSGSTOP(cBUFFER)

      *** Tratamento do erro (cBuffer)

   ELSE

      MSGSTOP("OK")

   endif

   *

   MSGSTOP("CANCELA")

   cBuffer := chr(27)+".05"+"}"    &&& CANCELA CUPOM ANTERIOR

   ret = ECFWrite(cBuffer)

   if ret=0

      cBuffer = Space(512)

      ret = ECFRead(cBuffer, 512)

      MSGSTOP(RET)

      MSGSTOP(cBUFFER)

      *** Tratamento do erro (cBuffer)

   ELSE

      MSGSTOP("OK")

   endif

   MSGSTOP("ABRE GAVETA")

   cBuffer := chr(27)+".21"+"}"    &&& ABRE GAVETA

   ret = ECFWrite(cBuffer)

   if ret=0

      cBuffer = Space(512)

      ret = ECFRead(cBuffer, 512)

      MSGSTOP(RET)

      MSGSTOP(cBUFFER)

      *** Tratamento do erro (cBuffer)

   ELSE

      MSGSTOP("OK")

   endif

   MSGSTOP("STATUS DA GAVETA")

   cBuffer := chr(27)+".22"+"}"    &&& STATUS DA GAVETA

   ret = ECFWrite(cBuffer)

   if ret=0

      cBuffer = Space(512)

      ret = ECFRead(cBuffer, 512)

      MSGSTOP(RET)

      MSGSTOP(cBUFFER)

      *** Tratamento do erro (cBuffer)

   ELSE

      MSGSTOP("OK")

   endif

   MSGSTOP("FECHA PORTA")

   ECFClose()

endif

MSGSTOP("FUI")

return nil

 

 

DLL32 FUNCTION ECFOpen(Numero AS LONG, Tempo AS LONG, Log AS LONG, Mostra AS LONG) AS LONG PASCAL LIB Abertura

DLL32 FUNCTION ECFClose() AS LONG PASCAL LIB Abertura

DLL32 FUNCTION ECFWrite(Comando AS STRING) AS LONG PASCAL LIB Abertura

DLL32 FUNCTION ECFRead(Status AS STRING,Extensao AS LONG) AS LONG PASCAL LIB Abertura

 

e funcionava bem.

 

Alexandre Zilves

kapiaba · June 21, 2013



//Abre porta serial da impressora

DLL32 FUNCTION Sweda_AbrePortaSerial() AS _INT PASCAL;

      FROM "ECF_AbrePortaSerial" LIB DLLFiscal

 

//Fecha porta serial da impresora

DLL32 FUNCTION Sweda_FechaPortaSerial() AS _INT PASCAL;

      FROM "ECF_FechaPortaSerial" LIB DLLFiscal

 

//Verifica se tem impressora ligada

DLL32 FUNCTION Sweda_VerificaImpressoraLigada() AS _INT PASCAL;

      FROM "ECF_VerificaImpressoraLigada" LIB DLLFiscal

 

// Sangria

DLL32 FUNCTION Sweda_Sangria( Valor AS STRING ) AS _INT PASCAL;

      FROM "ECF_Sangria" LIB DLLFiscal

 

// Suprimento

DLL32 FUNCTION Sweda_Suprimento( Valor AS STRING, FormaPagamento AS STRING ) AS _INT PASCAL;

      FROM "ECF_Suprimento" LIB DLLFiscal

 

//Ler nÃºmero do caixa

DLL32 FUNCTION Sweda_NumeroCaixa( NumeroCaixa AS STRING ) AS _INT PASCAL ;

      FROM "ECF_NumeroCaixa" LIB DLLFiscal

 

//Abre cupom fiscal

DLL32 FUNCTION Sweda_AbreCupom( Cgc AS STRING ) AS _INT PASCAL;

      FROM "ECF_AbreCupom" LIB DLLFiscal

 

//Vende Ãtem

DLL32 FUNCTION Sweda_VendeItem( 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 _INT PASCAL ;

      FROM "ECF_VendeItem" LIB DLLFiscal

 

//Inicia Fechamento Cupom fiscal

DLL32 FUNCTION Sweda_IniciaFechamentoCupom( AcrescimoDesconto      AS STRING,;

                                            TipoAcrescimoDesconto  AS STRING,;

                                            ValorAcrescimoDesconto AS STRING ) AS _INT PASCAL;

      FROM "ECF_IniciaFechamentoCupom" LIB DLLFiscal

 

//Efetua Forma Pagamento

DLL32 FUNCTION Sweda_EfetuaFormaPagamento( cFormaPgto          AS STRING,;

                                           ValorFormaPagamento AS STRING ) AS _INT PASCAL;

      FROM "ECF_EfetuaFormaPagamento" LIB DLLFiscal

 

// Termina Fechamento do cupom com mensagem promocional

DLL32 FUNCTION Sweda_TerminaFechamentoCupom( Mensagem AS STRING ) AS _INT PASCAL;

      FROM "ECF_TerminaFechamentoCupom" LIB DLLFiscal

 

//Fecha cupom

DLL32 FUNCTION Sweda_FechaCupom( FormaPgto   AS STRING,; 

                                 Acrescimo   AS STRING,; 

                                 TipoAcresc  AS STRING,;

                                 ValorAcresc AS STRING,;

                                 ValorPago   AS STRING,;

                                 Mensagem    AS STRING   ) AS _INT PASCAL ;

       FROM "ECF_FechaCupom"    LIB DLLFiscal

 

//Verifica status da gaveta

DLL32 FUNCTION Sweda_VerificaEstadoGaveta( @nStatus AS _INT ) AS _INT PASCAL;

      FROM "ECF_VerificaEstadoGaveta" LIB DLLFiscal

 

// Aciona Gaveta

DLL32 FUNCTION Sweda_AcionaGaveta() AS LONG PASCAL;

      FROM "ECF_AcionaGaveta"             LIB DLLFiscal

 

//Emite leitura X

DLL32 FUNCTION Sweda_LeituraX() AS _INT PASCAL ;

      FROM "ECF_LeituraX" LIB DLLFiscal

 

//Emite reduÃ§Ã£o Z

DLL32 FUNCTION Sweda_ReducaoZ( Dt AS STRING, Hs AS STRING) AS _INT PASCAL ; 

      FROM "ECF_ReducaoZ" LIB DLLFiscal

 

//Verifica se tem papel

DLL32 FUNCTION Sweda_MonitoramentoPapel( @Linhas AS STRING ) AS _INT PASCAL ;

      FROM "ECF_MonitoramentoPapel"       LIB DLLFiscal

 

//Cancela cupom fiscal

DLL32 FUNCTION Sweda_CancelaCupom() AS _INT PASCAL ;

      FROM "ECF_CancelaCupom"             LIB DLLFiscal

 

//Cancela Ãºltimo Ãtem do cupom

DLL32 FUNCTION Sweda_CancelaItemAnterior() AS _INT PASCAL ;

      FROM "ECF_CancelaItemAnterior"      LIB DLLFiscal

 

//Ler nÃºmero do cupom

DLL32 FUNCTION Sweda_NumeroCupom( Cupom AS STRING ) AS _INT PASCAL;

      FROM "ECF_NumeroCupom" LIB DLLFiscal

 

//Emite cupom gerencial

DLL32 FUNCTION Sweda_RelatorioGerencial( Texto AS STRING ) AS _INT PASCAL ;

      FROM "ECF_RelatorioGerencial" LIB DLLFiscal

 

//Fecha cupom gerencial

DLL32 FUNCTION Sweda_FechaRelatorioGerencial() AS _INT PASCAL ;

      FROM "ECF_FechaRelatorioGerencial"  LIB DLLFiscal

 

//Abre cupom adicional

DLL32 FUNCTION Sweda_AbreComprovanteNaoFiscalVinculado( FormaPgto   AS STRING,; 

                                                        Valor       AS STRING,; 

                                                        Cupom       AS STRING ) AS _INT PASCAL;

      FROM "ECF_AbreComprovanteNaoFiscalVinculado" LIB DLLFiscal

 

//Imprime cupom nÃ£o fiscal vinculado

DLL32 FUNCTION Sweda_UsaComprovanteNaoFiscalVinculado( Texto AS STRING ) AS _INT PASCAL;

      FROM "ECF_UsaComprovanteNaoFiscalVinculado"  LIB DLLFiscal

 

//Fecha cupom nÃ£o fiscal

DLL32 FUNCTION Sweda_FechaComprovanteNaoFiscalVinculado() AS _INT PASCAL ;

      FROM "ECF_FechaComprovanteNaoFiscalVinculado" LIB DLLFiscal

 

//Cancela item generico do cupom

DLL32 FUNCTION Sweda_CancelaItemGenerico( NumeroItem AS STRING ) AS _INT PASCAL ;

      FROM "ECF_CancelaItemGenerico" LIB DLLFiscal 

 

DLL32 FUNCTION Sweda_RetornoImpressora( @ACK AS STRING, @ST1 AS STRING, @ST2 AS STRING ) AS _INT PASCAL ;

      FROM "ECF_RetornoImpressora" LIB DLLFiscal 

 

DLL32 FUNCTION Sweda_RetornoImpressoraMFD( @ACK AS _INT, @ST1 AS _INT, @ST2 AS _INT, @ST3 AS _INT) AS _INT PASCAL ;

      FROM "ECF_RetornoImpressoraMFD" LIB DLLFiscal 

 

DLL32 FUNCTION Sweda_LigaDesligaJanelas( Impressora AS STRING, Outros AS STRING ) AS _INT PASCAL ;

      FROM "ECF_LigaDesligaJanelas" LIB DLLFiscal 

 

DLL32 FUNCTION Sweda_Registry() AS _INT PASCAL ;

      FROM "ECF_Registry" LIB DLLFiscal 

 

DLL32 FUNCTION Sweda_CfgRedZAutomatico( Flag AS STRING ) AS _INT PASCAL ;

      FROM "ECF_CfgRedZAutomatico" LIB DLLFiscal 

 

// Chrystian Toigo

tiaoFW · June 22, 2013

Boa noite.

Abaixo vai as declaraÃ§Ãµes para SWEDA usando a DLL CONNECT/C, que Ã© a DLL da SWEDA mais facil e compativel de ser implementada.

Recomendo que teste numa impressora real.

AbraÃ§os.

*** SWEDA MATRICIAL E MFD // 19/10/2007

//Ler total do cupom
DLL32 FUNCTION ecfSubTotal( SubTotal    AS LPSTR     ) AS LONG PASCAL ;
FROM "ECF_SubTotal" LIB xDll

//Ler nÃºmero do caixa
DLL32 FUNCTION ecfNumeroCx( NumeroCaixa AS LPSTR     ) AS LONG PASCAL ;
FROM "ECF_NumeroCaixa" LIB xDll

//Ler configuraÃ§Ã£o arredondamento/truncamento
DLL32 FUNCTION ecfVerArred( Arredonda   AS LPSTR     ) AS LONG PASCAL ;
FROM "ECF_VerificaTruncamento" LIB xDll

//Ativa arredondamento
DLL32 FUNCTION ecfLigArred(                          ) AS LONG PASCAL ;
FROM "ECF_ProgramaArredondamento" LIB xDll

//Ler data do movimento
DLL32 FUNCTION ecfDtMovto ( DtMovto     AS LPSTR     ) AS LONG PASCAL ;
FROM "ECF_DataMovimento" LIB xDll

//Ler flag fiscal da impressora
DLL32 FUNCTION ecfFlagFisc( @FlagFiscal AS PTR       ) AS LONG PASCAL ;
FROM "ECF_FlagsFiscais" LIB xDll

//Emite leitura X
DLL32 FUNCTION ecfLeituraX(                          ) AS LONG PASCAL ;
FROM "ECF_LeituraX" LIB xDll

//Emite reduÃ§Ã£o Z
DLL32 FUNCTION ecfReducaoZ( Dt AS LPSTR, Hs AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_ReducaoZ" LIB xDll

//Ler data e hora da impressora
DLL32 FUNCTION ecfDtHora( Dt AS LPSTR, Hs AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_DataHoraImpressora" LIB xDll

//Faz abertura do dia
DLL32 FUNCTION ecfAbreDia ( Vl AS LPSTR, Fr AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_AberturaDoDia" LIB xDll

//Abre cupom fiscal
DLL32 FUNCTION ecfAbreCup ( Cgc         AS LPSTR     ) AS LONG PASCAL ;
FROM "ECF_AbreCupom" LIB xDll

//Verifica se tem papel
DLL32 FUNCTION ecfVerPapel( @Linhas     AS PTR       ) AS LONG PASCAL ;
FROM "ECF_MonitoramentoPapel"       LIB xDll

//Verifica se tem impressora ligada
DLL32 FUNCTION ecfPrintLig(                          ) AS LONG PASCAL ;
FROM "ECF_VerificaImpressoraLigada" LIB xDll

DLL32 FUNCTION ecfHoraVerao(                          ) AS LONG PASCAL ;
FROM "ECF_ProgramaHorarioVerao" LIB xDll

//Cancela cupom fiscal
DLL32 FUNCTION ecfCanCupom(                          ) AS LONG PASCAL ;
FROM "ECF_CancelaCupom"             LIB xDll

//Suprimento de Caixa
DLL32 FUNCTION ecfSupri(vrsupri AS LPSTR, fpagam AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_Suprimento"      LIB xDll

//Suprimento de Caixa
DLL32 FUNCTION ecfSangria(vrsangria AS LPSTR       ) AS LONG PASCAL ;
FROM "ECF_Sangria"      LIB xDll

//Cancela Ãtem GenÃ©rico do cupom
DLL32 FUNCTION ecfCancItem(item      AS LPSTR      ) AS LONG PASCAL ;
FROM "ECF_CancelaItemGenerico"      LIB xDll

//Abre a gaveta
DLL32 FUNCTION ecfAbreGav (                          ) AS LONG PASCAL ;
FROM "ECF_AcionaGaveta"             LIB xDll

//Ler nÃºmero do cupom
DLL32 FUNCTION ecfNumCupom( Cupom       AS LPSTR     ) AS LONG PASCAL ;
FROM "ECF_NumeroCupom"              LIB xDll

//Emite leitura da memÃ³ria fiscal por data
DLL32 FUNCTION ecfMemData ( In AS LPSTR, Fi AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_LeituraMemoriaFiscalData" LIB xDll

//Emite leitura da memÃ³ria fiscal por ReduÃ§Ã£o
DLL32 FUNCTION ecfMemRedu ( In AS LPSTR, Fi AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_LeituraMemoriaFiscalReducao" LIB xDll

//Emite leitura da memÃ³ria fiscal por data em arquivo TXT
DLL32 FUNCTION ecfMemDataTxt ( In AS LPSTR, Fi AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_LeituraMemoriaFiscalSerialData" LIB xDll

//Emite leitura da memÃ³ria fiscal por ReduÃ§Ã£o em arquivo TXT
DLL32 FUNCTION ecfMemReduTxt ( In AS LPSTR, Fi AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_LeituraMemoriaFiscalSerialReducao" LIB xDll

//Emite leitura da memÃ³ria fiscal por data (MFD)
DLL32 FUNCTION ecfMemDataMFD ( In AS LPSTR, Fi AS LPSTR, ctipo AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_LeituraMemoriaFiscalDataMFD" LIB xDll

//Emite leitura da memÃ³ria fiscal por ReduÃ§Ã£o (MFD)
DLL32 FUNCTION ecfMemReduMFD ( In AS LPSTR, Fi AS LPSTR, ctipo AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_LeituraMemoriaFiscalReducaoMFD" LIB xDll

//Emite leitura da memÃ³ria fiscal por data em arquivo TXT (MFD)
DLL32 FUNCTION ecfMemDataTxtMFD ( In AS LPSTR, Fi AS LPSTR, ctipo AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_LeituraMemoriaFiscalSerialDataMFD" LIB xDll

//Emite leitura da memÃ³ria fiscal por ReduÃ§Ã£o em arquivo TXT (MFD)
DLL32 FUNCTION ecfMemReduTxtMFD ( In AS LPSTR, Fi AS LPSTR, ctipo AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_LeituraMemoriaFiscalSerialReducaoMFD" LIB xDll

//Verifica Relatorios Gerenciais Programados
DLL32 FUNCTION ecfVerGer( Texto AS STRING  ) AS LONG PASCAL ;
FROM "ECF_VerificaRelatorioGerencialProgMFD"       LIB xDll

//Nomeia Relatorio Gerencial
DLL32 FUNCTION ecfNomGer( cIndice AS STRING, cTexto AS STRING  ) AS LONG PASCAL ;
FROM "ECF_NomeiaRelatorioGerencialMFD"       LIB xDll

//Abre Relatorio Gerencial Programado
DLL32 FUNCTION ecfAbreGer( cIndice AS STRING  ) AS LONG PASCAL ;
FROM "ECF_AbreRelatorioGerencialMFD"       LIB xDll

//Emite cupom gerencial
DLL32 FUNCTION ecfCpGerAbr( Texto AS STRING          ) AS LONG PASCAL ;
FROM "ECF_RelatorioGerencial"       LIB xDll

//Fecha cupom gerencial
DLL32 FUNCTION ecfCpGerFec(                          ) AS LONG PASCAL ;
FROM "ECF_FechaRelatorioGerencial"  LIB xDll

//Verifica Status Gerencial
DLL32 FUNCTION ecfCpGerSta( cTexto AS STRING ) AS LONG PASCAL ;
FROM "ECF_StatusRelatorioGerencial"  LIB xDll

//Verifica status da gaveta
DLL32 FUNCTION ecfStGaveta( @nStatus    AS PTR       ) AS LONG PASCAL ;
FROM "ECF_VerificaEstadoGaveta"     LIB xDll

// Verifica se ha reduÃ§Ã£o Z pendente
DLL32 FUNCTION ecfZpendente( Zpend AS STRING         ) AS LONG PASCAL ; // Acrescentado em 07/04/2006 por tiao
FROM "ECF_VerificaZPendente" LIB xDll

// Verifica Status comprovante nÃ£o fiscal vinculado
DLL32 FUNCTION ecfStatNaoFis( @nStatus    AS PTR      ) AS LONG PASCAL ; // Acrescentado em 16/05/2006 por tiao
FROM "ECF_StatusComprovanteNaoFiscalVinculado" LIB xDll

//Abre cupom adicional nÃ£o fiscal vinculado
DLL32 FUNCTION ecfCupAdAbr( FormaPgto   AS STRING,;
Valor       AS STRING,;
Cupom       AS STRING    ) AS LONG PASCAL ;
FROM "ECF_AbreComprovanteNaoFiscalVinculado" LIB xDll

//Imprime cupom nÃ£o fiscal vinculado
DLL32 FUNCTION ecfCupAdUsa( Texto       AS STRING    ) AS LONG PASCAL ;
FROM "ECF_UsaComprovanteNaoFiscalVinculado"  LIB xDll

// Dados da Ultima ReduÃ§Ã£o
DLL32 FUNCTION ecfDadult( dados       AS STRING    ) AS LONG PASCAL ;
FROM "ECF_DadosUltimaReducao"  LIB xDll

// Dados da Ultima ReduÃ§Ã£o MFD
DLL32 FUNCTION ecfDadultMFD( dados       AS STRING    ) AS LONG PASCAL ;
FROM "ECF_DadosUltimaReducaoMFD"  LIB xDll

// Retorno da Impressora
DLL32 FUNCTION ecfRetorno( @varack AS PTR, @varst1 AS PTR, @varst2 AS PTR) AS LONG PASCAL ;
FROM "ECF_RetornoImpressora"  LIB xDll

// Status da Impressora
DLL32 FUNCTION ecfEstadoImp( @varack AS PTR, @varst1 AS PTR, @varst2 AS PTR) AS LONG PASCAL ;
FROM "ECF_VerificaEstadoImpressora"  LIB xDll

//Ler nÃºmero de SÃ©rie da Impressora
DLL32 FUNCTION ecfNumSerie( serie       AS LPSTR     ) AS LONG PASCAL ;
FROM "ECF_NumeroSerie"              LIB xDll

//Ler nÃºmero de SÃ©rie da Impressora MFD
DLL32 FUNCTION ecfNumSerieMFD( serie       AS LPSTR     ) AS LONG PASCAL ;
FROM "ECF_NumeroSerieMFD"              LIB xDll

//Ler Ultimo Item vendido
DLL32 FUNCTION ecfUltItem( uitem       AS LPSTR     ) AS LONG PASCAL ;
FROM "ECF_UltimoItemVendido"              LIB xDll

//Ler nÃºmero de ReduÃ§Ãµes da Impressora
DLL32 FUNCTION ecfNumRedu( nredu       AS LPSTR     ) AS LONG PASCAL ;
FROM "ECF_NumeroReducoes"              LIB xDll

//Ler status de vinculo ao ISS
DLL32 FUNCTION ecfVerIss( cvinciss     AS STRING    ) AS LONG PASCAL ;
FROM "ECF_VerificaAliquotasIss"              LIB xDll

//Configura espaÃ§amento entre documentos
DLL32 FUNCTION ecfSpace( cspace     AS STRING    ) AS LONG PASCAL ;
FROM "ECF_CfgEspacamentoCupons"              LIB xDll

//Ler status das Aliquotas de ICMS
DLL32 FUNCTION ecfAliquotas( caliquotas  AS STRING    ) AS LONG PASCAL ;
FROM "ECF_RetornoAliquotas"              LIB xDll

//Ler Status das Formas de Pagamento
DLL32 FUNCTION ecfformas( cforma  AS STRING    ) AS LONG PASCAL ;
FROM "ECF_VerificaDescricaoFormasPagamento"              LIB xDll

//Fecha cupom nÃ£o fiscal
DLL32 FUNCTION ecfCupAdFec(                          ) AS LONG PASCAL ;
FROM "ECF_FechaComprovanteNaoFiscalVinculado" LIB xDll

//Vende Ãtem
DLL32 FUNCTION ecfVendItem( 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 "ECF_VendeItem"    LIB xDll

/*DLL32 FUNCTION ecfVendItem( Codigo      AS STRING,;  // vende item departamento
Descricao   AS STRING,;
Aliquota    AS STRING,;
ValUnit     AS STRING,;
Quantid     AS STRING,;
ValDesc     AS STRING,;
ValAcresc   AS STRING,;
IndDepto    AS STRING,;
UnidMedo    AS STRING    ) AS LONG PASCAL ;
FROM "ECF_VendeItemDepartamento"    LIB xDll

/* 1. CÃ³digo: STRING atÃ© 49 caracteres com o cÃ³digo do produto.
 2. DescriÃ§Ã£o: STRING atÃ© 201 caracteres com a descriÃ§Ã£o do produto.
 3. AlÃquota: STRING com o valor ou o Ãndice da alÃquota tributÃ¡ria. Se for o valor deve ser informado com o tamanho de 4 caracteres ou 5 com a vÃrgula. Se for o Ãndice da alÃquota deve ser 2 caracteres. Ex. (18,00 para o valor ou 05 para o Ãndice)
 4. Valor UnitÃ¡rio: STRING com atÃ© 9 dÃgitos para o valor (tres casas decimais).
 5. Quantidade: STRING com atÃ© 7 dÃgitos para a quantidade. Na venda com departamento a quantidade Ã© fracionÃ¡ria e sÃ£o 3 casas decimais.
 6. Desconto: STRING com o desconto por valor com atÃ© 10 dÃgitos (2 casas decimais).
 7. AcrÃ©scimo: STRING com o acrÃ©scimo por valor com atÃ© 10 dÃgitos (2 casas decimais).
 8. IndÃce Departamento: STRING com o Ãndice do departamento com 2 dÃgitos.
 9. Unidade Medida: STRING com no mÃ¡ximo 2 caracteres para a unidade de medida. Caso nÃ£o seja passado nenhum caracter a unidade nÃ£o Ã© impressa.
*/

//Inicia Fechamento do Cupom
DLL32 FUNCTION ecfIniFechamento(Acrescimo   AS STRING,;
TipoAcresc  AS STRING,;
ValorAcresc AS STRING ) AS LONG PASCAL ;
FROM "ECF_IniciaFechamentoCupom"    LIB xDll

//Forma de Pagamento
DLL32 FUNCTION ecfFormaPagto( FormaPgto   AS STRING,;
ValorPago   AS STRING ) AS LONG PASCAL ;
FROM "ECF_EfetuaFormaPagamento"    LIB xDll

//Termina Fechamento
DLL32 FUNCTION ecfTerminaFechamento(Mensagem AS STRING ) AS LONG PASCAL ;
FROM "ECF_TerminaFechamentoCupom"    LIB xDll

//Fecha cupom
DLL32 FUNCTION ecfFechaCup( FormaPgto   AS STRING,;
Acrescimo   AS STRING,;
TipoAcresc  AS STRING,;
ValorAcresc AS STRING,;
ValorPago   AS STRING,;
Mensagem    AS STRING   ) AS LONG PASCAL ;
FROM "ECF_FechaCupom"    LIB xDll

//Programa Forma de Pagamento
DLL32 FUNCTION ecfProgFormas( Forma AS STRING, OperaTef AS STRING ) AS LONG PASCAL ;
FROM "ECF_ProgramaFormaPagamentoMFD"    LIB xDll

//Porta de ComunicaÃ§Ã£o
DLL32 FUNCTION ecfPorta( cporta  AS STRING ) AS LONG PASCAL ;
FROM "ECF_Registry_Porta"    LIB xDll

//Controle do Status
DLL32 FUNCTION ecfStatus( cstatus  AS STRING ) AS LONG PASCAL ;
FROM "ECF_Registry_Status"    LIB xDll

//Controle do Status da FunÃ§Ã£o
DLL32 FUNCTION ecfStatusFuncao( cstatus  AS STRING ) AS LONG PASCAL ;
FROM "ECF_Registry_StatusFuncao"    LIB xDll

//Controle do Retorno
DLL32 FUNCTION ecfRetorno_reg( cretorno  AS STRING ) AS LONG PASCAL ;
FROM "ECF_Registry_Retorno"    LIB xDll

//Controle da Porta
DLL32 FUNCTION ecfControle( ccontrole AS STRING ) AS LONG PASCAL ;
FROM "ECF_Registry_ControlePorta"    LIB xDll

// Nomeia Totalizador nÃ£o fiscal
DLL32 FUNCTION ecfNomTot( Indice AS LONG, Nome AS STRING) AS LONG PASCAL ;
FROM "ECF_NomeiaTotalizadorNaoSujeitoIcms"  LIB xDll

DLL32 FUNCTION ecfVerRecNf( Recebimento AS STRING ) AS LONG PASCAL ;
FROM "ECF_VerificaRecebimentoNaoFiscal"  LIB xDll

DLL32 FUNCTION ecfModECF( ModeloECF AS LONG ) AS LONG PASCAL ;
FROM "ECF_VerificaModeloECF"  LIB xDll

DLL32 FUNCTION ecfUnidMed( Unidade AS STRING ) AS LONG PASCAL ;
FROM "ECF_UsaUnidadeMedida"  LIB xDll

DLL32 FUNCTION ecfProgAli( Aliquota AS STRING, Vinculo AS LONG ) AS LONG PASCAL ;
FROM "ECF_ProgramaAliquota"  LIB xDll

//Ler Status das Formas de Pagamento
DLL32 FUNCTION ecfjanelas( cpapel AS STRING, cjanela  AS STRING    ) AS LONG PASCAL ;
FROM "ECF_LigaDesligaJanelas"              LIB xDll

DLL32 FUNCTION ecfRegistry() AS LONG PASCAL ;
FROM "ECF_Registry"       LIB xDll

DLL32 FUNCTION ecfRegistryVerao( VeraoSN AS STRING ) AS LONG PASCAL ;
FROM "ECF_Registry_Verao"       LIB xDll

DLL32 FUNCTION ecfAbrePorta(           ) AS LONG PASCAL ;
FROM "ECF_AbrePortaSerial"             LIB xDll

DLL32 FUNCTION ecfFechaPorta(           ) AS LONG PASCAL ;
FROM "ECF_FechaPortaSerial"             LIB xDll

DLL32 FUNCTION ecfAplicativo( cpapel AS STRING  ) AS LONG PASCAL ;
FROM "ECF_Registry_AplMensagem1"              LIB xDll

DLL32 FUNCTION ecfAplicativo2( cpapel AS STRING  ) AS LONG PASCAL ;
FROM "ECF_Registry_AplMensagem2"              LIB xDll

DLL32 FUNCTION ecfCRO( ccro AS STRING  ) AS LONG PASCAL ;
FROM "ECF_NumeroIntervencoes"              LIB xDll

DLL32 FUNCTION ecfPath( cpath AS STRING  ) AS LONG PASCAL ;
FROM "ECF_Registry_Path"              LIB xDll

//Retorna Modelo de Impressora
DLL32 FUNCTION ecfModImp(                          ) AS LONG PASCAL ;
FROM "ECF_VerificaModeloEcf"  LIB xDll

//Retorna Venda Bruta Diaria
DLL32 FUNCTION ecfVendaBruta( cVendaBt AS STRING ) AS LONG PASCAL ;
FROM "ECF_VendaBruta"  LIB xDll

//Retorna Grande Total
DLL32 FUNCTION ecfGrandeTotal( cGt AS STRING ) AS LONG PASCAL ;
FROM "ECF_GrandeTotal"  LIB xDll

//Retorna Grande Total Inicial e Final Ultima ReduÃ§Ã£o
DLL32 FUNCTION ecfGTIniFimMFD( cGtini AS STRING, cGtfim AS STRING ) AS LONG PASCAL ;
FROM "ECF_InicioFimGTsMFD"  LIB xDll

//Retorna Data e Hora e MF adicional do Software Basico da Impressora
DLL32 FUNCTION ecfdthrSbMf( cdt AS STRING, chora AS STRING, cMfadi AS STRING ) AS LONG PASCAL ;
FROM "ECF_DataHoraGravacaoUsuarioSWBasicoMFAdicional"  LIB xDll

//Retorna Marca, modelo e tipo da Impressora
DLL32 FUNCTION ecfMarcaModTipo( cmarca AS STRING, cmodelo AS STRING, ctipo AS STRING ) AS LONG PASCAL ;
FROM "ECF_MarcaModeloTipoImpressoraMFD"  LIB xDll

//Retorna VersÃ£o Software basicao da Impressora
DLL32 FUNCTION ecfVersaoSB( cversao AS STRING ) AS LONG PASCAL ;
FROM "ECF_VersaoFirmwareMFD"  LIB xDll

//Retorna CNPJ do usuario da Impressora
DLL32 FUNCTION ecfCNPJMFD( cCNPJ AS STRING ) AS LONG PASCAL ;
FROM "ECF_CNPJMFD"  LIB xDll

//Retorna Inscricao estadual do usuario da Impressora
DLL32 FUNCTION ecfInscEstMFD( cInscEst AS STRING ) AS LONG PASCAL ;
FROM "ECF_InscricaoEstadualMFD"  LIB xDll

// Retorna Flags Fiscais diversos da Impressora MFD (ISSQN)
DLL32 FUNCTION ecfFlagFis3MFD( @varack AS PTR ) AS LONG PASCAL ;
FROM "ECF_FlagsFiscais3MFD"  LIB xDll

//Retorna Numero de substituicoes usuario impressora
DLL32 FUNCTION ecfNumSubProp( cNumUsu AS STRING ) AS LONG PASCAL ;
FROM "ECF_NumeroSubstituicoesProprietario"  LIB xDll

//Retorna COO impressora
DLL32 FUNCTION ecfCOO( cCoo AS STRING ) AS LONG PASCAL ;
FROM "ECF_RetornaCOO"  LIB xDll

//Retorna Data e Hora Reducao
DLL32 FUNCTION ecfDtHrRed( cdtred AS STRING, chrred AS STRING ) AS LONG PASCAL ;
FROM "ECF_DataHoraReducao"  LIB xDll

//Retorna Aliquotas com Indice
DLL32 FUNCTION ecfLerAliqComInd( cAliqInd AS STRING ) AS LONG PASCAL ;
FROM "ECF_LerAliquotasComIndice"  LIB xDll

//Retorna o Contador de Cupons Fiscais (MFD)
DLL32 FUNCTION ecfCCF( cCcf AS STRING ) AS LONG PASCAL ;
FROM "ECF_ContadorCupomFiscalMFD"  LIB xDll

//Retorna a Data e Hora do Ultimo documento emitido (MFD)
DLL32 FUNCTION ecfDtHrCupMFD( cdthr AS STRING ) AS LONG PASCAL ;
FROM "ECF_DataHoraUltimoDocumentoMFD"  LIB xDll

//Retorna COO inicial e final ultima reducao (MFD)
DLL32 FUNCTION ecfCOOIF( cCOOINI AS STRING, cCOOFIM AS STRING ) AS LONG PASCAL ;
FROM "ECF_InicioFimCOOsMFD"  LIB xDll

//Retorna Valor pago ultimo cupom
DLL32 FUNCTION ecfPagoCup( cVrpago AS STRING ) AS LONG PASCAL ;
FROM "ECF_ValorPagoUltimoCupom"  LIB xDll

DLL32 FUNCTION ecfCDC( cCDC AS STRING ) AS LONG PASCAL ;
FROM "ECF_ContadorComprovantesCreditoMFD" LIB xDll

DLL32 FUNCTION ecfGRG( cGRG AS STRING ) AS LONG PASCAL ;
FROM "ECF_ContadorRelatoriosGerenciaisMFD" LIB xDll

DLL32 FUNCTION ecfGNF ( cGRG AS STRING ) AS LONG PASCAL ;
FROM "ECF_NumeroOperacoesNaoFiscais" LIB xDll

DLL32 FUNCTION ecfMemESPTxt ( carquivo AS STRING, Ctipo AS STRING, In AS STRING, Fi AS STRING, cusuario AS STRING  ) AS LONG PASCAL ;
FROM "ECF_DownloadMFD" LIB xDll

DLL32 FUNCTION ecfArqMFD( cTipo AS LPSTR, FxaIni AS LPSTR, FxaFim AS LPSTR, PatTxt AS LPSTR, PatBin AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_ReproduzirMemoriaFiscalMFD" LIB xDll

DLL32 FUNCTION ecfZauto( cZauto AS STRING ) AS LONG PASCAL ;
FROM "ECF_CfgRedZAutomatico" LIB xDll

DLL32 FUNCTION ecfEstCCD( cCGC AS STRING, cNome AS STRING, cEndereco AS STRING ) AS LONG PASCAL ;
FROM "ECF_EstornoNaoFiscalVinculadoMFD" LIB xDll

DLL32 FUNCTION ecfDecProg( cDecPreco AS STRING, cDecQtde AS STRING ) AS LONG PASCAL ;
FROM "ECF_CasasDecimaisProgramada" LIB xDll

DLL32 FUNCTION ecfIdCliente( cNome AS STRING, cEndereco AS STRING, cCGC_CPF AS STRING ) AS LONG PASCAL ;
FROM "ECF_IdentificaConsumidor" LIB xDll

DLL32 FUNCTION ecfACDS( cItem AS LPSTR, cAcreDesc AS LPSTR, cTipAcrDesc AS LPSTR, cValAcDs AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_AcrescimoDescontoItemMFD" LIB xDll

DLL32 FUNCTION ecfCorte( cTipoCorte AS LONG ) AS LONG PASCAL ;
FROM "ECF_AtivaDesativaCorteProximoMFD"  LIB xDll

DLL32 FUNCTION ecfAbreOPNF( cNome AS STRING, cEndereco AS STRING, cCGC_CPF AS STRING ) AS LONG PASCAL ;
FROM "ECF_AbreRecebimentoNaoFiscalMFD" LIB xDll

DLL32 FUNCTION ecfVerOPNF( sRecebimento AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_VerificaRecebimentoNaoFiscalMFD" LIB xDll

DLL32 FUNCTION ecfEfetuaOPNF( cIndiceTotal AS STRING, cValorReceb AS STRING) AS LONG PASCAL ;
FROM "ECF_EfetuaRecebimentoNaoFiscalMFD" LIB xDll

DLL32 FUNCTION ecfACDS_OPNF( cAcreDesc AS LPSTR, cTipAcrDesc AS LPSTR, cValAcDs AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_AcrescimoDescontoSubtotalRecebimentoMFD" LIB xDll

DLL32 FUNCTION ecfPgto_OPNF( cForma AS LPSTR, cValor AS LPSTR, cDescricao AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_EfetuaFormaPagamentoNaoFiscal" LIB xDll

DLL32 FUNCTION ecfFecha_OPNF( cMensagem AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_FechaRecebimentoNaoFiscalMFD" LIB xDll

DLL32 FUNCTION ecfCancelaOPNF( cNome AS LPSTR, cEndereco AS LPSTR, cCGC_CPF AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_CancelaRecebimentoNaoFiscalMFD" LIB xDll

DLL32 FUNCTION ecfTotOPNF(  ) AS LONG PASCAL ;
FROM "ECF_TotalizaRecebimentoMFD" LIB xDll

DLL32 FUNCTION ecfVerifIMP( @iAck AS PTR, @iSt1 AS PTR, @iSt2 AS PTR, @iSt3 AS PTR ) AS LONG PASCAL ;
FROM "ECF_VerificaEstadoImpressoraMFD" LIB xDll

DLL32 FUNCTION ecfTemOPNF( cOPNF AS LPSTR ) AS LONG PASCAL ;
FROM "ECF_StatusComprovanteNaoFiscalNaoVinculado" LIB xDll

DLL32 FUNCTION ecfTextoRapido( cTextoR AS STRING ) AS LONG PASCAL ;
FROM "ECF_Registry_TextoRapido"       LIB xDll

DLL32 FUNCTION ecf115200( cVelo AS STRING ) AS LONG PASCAL ;
FROM "ECF_Registry_Veloc115200"       LIB xDll




//FIM SWEDA

MARSAN · June 27, 2013

Vc teria um programa exemplo igual ao do kapiaba so para eu me basear no uso desta dll, sou inexperiente um pouco ao trabalhar com dll.....

agradeco a atencao

Sign In

SWEDA DLL32

Recommended Posts

MARSAN

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

MARSAN

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

tiaoFW

Link to comment

Share on other sites

MARSAN

Link to comment

Share on other sites

Join the conversation

Browse

Activity