Alguém usa: Bematech_FI_EfetuaFormaPagamentoNFCeEx

[wmsoft]

Boa tarde,

 

Alguém usa essa função Bematech_FI_EfetuaFormaPagamentoNFCeEx da Bemafi32.dll? caso sim como passou a declaração da mesma e como passa ela no fechamento das vendas.

Grato,

Washington

[Ariston Santos]

Veja se ajuda:

http://bematechpartners.com.br/wp01/helponline/index.html?efetuaformapagamentonfceex.htm

[wmsoft]

Ariston tentei mas não dá retorno, deixa eu colocar aqui a declaração e como passo o mesmo:

//Forma de Pagamento NFCe
DLL32 FUNCTION BmFormaPagtoNFCe( descBandeira AS STRING,;
valorForma   AS STRING,;
CNPJCrede  AS STRING,;
bandeira AS STRING,;
CodAuto AS STRING,;
CodIntegra AS STRING ) AS LONG PASCAL ;
FROM "Bematech_FI_EfetuaFormaPagamentoNFCeEx"    LIB xDll


             nRet      := BmFormaPagtoNFCe("Cartao Credito",;
                                                     "108,90",;
                                                     "",;
                                                    "01",;
                                                    "",;
                                                    "1")

Testes manuais e ele sempre retorna vazio como se não tivesse funcionado 

[kapiaba]

#Include "FiveWin.Ch"
	STATIC XDLL_BEMATECH
	//---------------------------------------------------------------------------//
	// 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

[kapiaba]

[Ariston Santos]

Eu não uso a DLL, apenas mostrei o "caminho das pedras" e teria declarado a função do mesmo jeito que você fez. Ao meu ver, está correta.

Se você estiver testando com o emulador, verifique se as dlls estão atualizadas e tente descobrir se o emulador aceita essa nova função da DLL.

Talvez precise baixar um emulador atualizado também.

[wmsoft]

Obrigado kapiaba e Ariston.