jbinfo Posted May 28, 2015 Report Share Posted May 28, 2015 Galera, Estou com problema de desconto no final da venda com impressoras epson. Tentei vairias rotinas mas não funciona, alguem tem um exemplo de declaração da rotina e uma emissão do cupom? Obrigado Leandro JBI Ronaldbuch and Daryabite 2 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 28, 2015 Report Share Posted May 28, 2015 /*****************************************************************************/ /* Declaração de funções da DLL 32 Bits para cupom fiscal TMT81 */ /*****************************************************************************/ // Abre porta de comunicacao DLL32 FUNCTION EpAbrPorCo(Veloc AS PTR,; Port AS PTR) AS LONG PASCAL; FROM "EPSON_Serial_Abrir_Porta" LIB XDLL_EPSON // Fecha porta de comunicacao DLL32 FUNCTION EpFecPorCo( ) AS LONG PASCAL; FROM "EPSON_Serial_Fechar_Porta" LIB XDLL_EPSON // EFetua recebimento nao fiscal MFD DLL32 FUNCTION EpEfRcNFMFD( vNroOp AS LPSTR,; vVlrOp AS LPSTR,; nCasDec AS PTR ) AS LONG PASCAL; FROM "EPSON_NaoFiscal_Vender_Item" LIB XDLL_EPSON // Fecha Comprovante nao Fiscal DLL32 FUNCTION EpFcRecNfMF( OpCortaPapel AS BOOL ) AS LONG PASCAL ; FROM "EPSON_NaoFiscal_Fechar_Comprovante" LIB XDLL_EPSON // Verifica Corte Gilhotina DLL32 FUNCTION EpVerCorGui( @ST1 AS BOOL ) AS LONG PASCAL; FROM "EPSON_Obter_Estado_Corte_Papel" LIB XDLL_EPSON // Ativa Corte Gilhotina DLL32 FUNCTION EpAtvCrtCup( lOpCorPap AS BOOL ) AS LONG PASCAL; FROM "EPSON_Config_Corte_Papel" LIB XDLL_EPSON // cancelamento recebimento DLL32 FUNCTION EpCanRecNFs( ) AS LONG PASCAL; FROM "EPSON_NaoFiscal_Cancelar_Comprovante" LIB XDLL_EPSON // Programa um caracter gráfico para autenticação DLL32 FUNCTION EpPrgCrAut( vDadLog AS LPSTR,; nTamCam AS PTR,; nLinha1 AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Config_Logotipo" LIB XDLL_EPSON // Cancela impressão de cheque DLL32 FUNCTION EpCanImChq( ) AS LONG PASCAL ; FROM "EPSON_Cheque_Cancelar_Impressao" LIB XDLL_EPSON // Nomeia Totalizadores Nao fiscais DLL32 FUNCTION EpNomToNSI( vDesTot AS LPSTR,; @nIdTot AS PTR) AS LONG PASCAL ; FROM "EPSON_Config_Totalizador_NaoFiscal" LIB XDLL_EPSON // Retorna os dados da impressora no momento da última Redução Z DLL32 FUNCTION EpDadUlRed( vUltRed AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Obter_Dados_Ultima_RZ" LIB XDLL_EPSON // Programa os espacamentos de linhas entre os cupons DLL32 FUNCTION EpVerLECup( EspCup AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Config_Espaco_Entre_Documentos" LIB XDLL_EPSON // Programa os espacamento entre as linhas no cupom DLL32 FUNCTION EpVerEsLin( vEspLin AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Config_Espaco_Entre_Linhas" LIB XDLL_EPSON //Programa o nome da moeda no singular e no plural para a expresão em cheque DLL32 FUNCTION EpPrgMoSin( vSing AS LPSTR,; vPlural AS LPSTR) AS LONG PASCAL ; FROM "EPSON_Cheque_Configurar_Moeda" LIB XDLL_EPSON //Programa Aliquota ECF DLL32 FUNCTION EpProAlEcf( Valor AS LPSTR,; IssIcms AS BOOL ) AS LONG PASCAL; FROM "EPSON_Config_Aliquota" LIB XDLL_EPSON //Recebe os dados da Leitura X pela serial e grava em arquivo texto DLL32 FUNCTION EpLeiLXSer( vDiretorio AS LPSTR ) AS LONG PASCAL; FROM "EPSON_RelatorioFiscal_Salvar_LeituraX" LIB XDLL_EPSON //Numero de Interverções Fiscais DLL32 FUNCTION EpNumInFis( Intervencoes AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Contadores" LIB XDLL_EPSON //Imprimi Cheque DLL32 FUNCTION EpImChqEcf( vNroReg AS LPSTR,; vValor AS LPSTR,; nCasDec AS PTR,; vNominal AS LPSTR,; vCidade AS LPSTR,; vData AS LPSTR,; vTextoAd AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Cheque_Imprimir" LIB XDLL_EPSON //Programa horario de verao DLL32 FUNCTION EpPrgHrVer( ) AS LONG PASCAL; FROM "EPSON_Config_Horario_Verao" LIB XDLL_EPSON //Obtem horario de verao DLL32 FUNCTION EpEstHorVer( @lEstHrVer AS PTR ) AS LONG PASCAL; FROM "EPSON_Obter_Estado_Horario_Verao" LIB XDLL_EPSON //Autentica Documentos DLL32 FUNCTION EpAutDcEcf( vTexto AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Autenticar_Imprimir" LIB XDLL_EPSON //Retorna Moeda Corrente DLL32 FUNCTION EpSimMoCur( vMoeda AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Obter_Simbolo_Moeda" LIB XDLL_EPSON // Verifica Qtd Casas Decimais DLL32 FUNCTION EpVerCasD( vCasDec AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Casas_Decimais" LIB XDLL_EPSON //Retorna CGC e Inscricao Estadual do Cliente DLL32 FUNCTION EpCgcIECli( vDadosCli AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Dados_Usuario" LIB XDLL_EPSON // Identificação do Consumidor DLL32 FUNCTION EpIdeCoCup( vCNPJ AS LPSTR,; vNome AS LPSTR,; vEnd1 AS LPSTR,; vEnd2 AS LPSTR,; nOpImp AS PTR ) AS LONG PASCAL; FROM "EPSON_Fiscal_Dados_Usuario" LIB XDLL_EPSON //Cancela item generico DLL32 FUNCTION EpCanItGen( NroIte AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Fiscal_Cancelar_Item" LIB XDLL_EPSON //Vende ítem DLL32 FUNCTION EpVendItem( Codigo AS LPSTR,; Descricao AS LPSTR,; Quantid AS LPSTR,; CasDecQtd AS PTR,; Unidade AS LPSTR,; ValUnit AS LPSTR,; CasDecVlr AS PTR,; Aliquota AS LPSTR,; QtdLinha AS PTR ) AS LONG PASCAL; FROM "EPSON_Fiscal_Vender_Item" LIB XDLL_EPSON //Efetua Forma de Pagamento com ID da Forma DLL32 FUNCTION EpEfeFrPgd( IdPgt AS LPSTR,; VlrPgt AS LPSTR,; NroCas AS PTR,; Linha1 AS LPSTR,; Linha2 AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Fiscal_Pagamento" LIB XDLL_EPSON //Verifica ultimo item vendido DLL32 FUNCTION EpUltItVen( vRet1 AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Numero_Ultimo_Item" LIB XDLL_EPSON // Programa Forma de Pagamento DLL32 FUNCTION EpProgFpgt( VincNvinc AS BOOL,; IdFrmPgt AS LPSTR,; DescFrmPgto AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Config_Forma_Pagamento" LIB XDLL_EPSON //Verifica a retorno aliquotas DLL32 FUNCTION EpVerReAlq( Aliquotas AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Tabela_Aliquotas" LIB XDLL_EPSON //Verifica a versão do firmware DLL32 FUNCTION EpVerFiWar( vRet1 AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Dados_Impressora" LIB XDLL_EPSON //Verifica o numero de serie da ecf e MFD DLL32 FUNCTION EpVerNuSer( ST1 AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Dados_Impressora" LIB XDLL_EPSON //Recebimento não fiscal MFD DLL32 FUNCTION EpEfeRnfMf( vCNPJ AS LPSTR,; vRazao AS LPSTR,; vEnd1 AS LPSTR,; vEnd2 AS LPSTR,; nOpCab AS PTR ) AS LONG PASCAL; FROM "EPSON_NaoFiscal_Abrir_Comprovante" LIB XDLL_EPSON //Verifica o status da impressora DLL32 FUNCTION EpVerStImp( Resposta AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Estado_Impressora" LIB XDLL_EPSON //Verifica o status do ultimo comando DLL32 FUNCTION EpStUltCmd( CodErr AS LPSTR,; RespErr AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Mensagem_Erro" LIB XDLL_EPSON //Ler total do cupom DLL32 FUNCTION EpSubTotal( SubTotal AS STRING ) AS LONG PASCAL ; FROM "EPSON_Fiscal_Obter_SubTotal" LIB XDLL_EPSON //Ler número do caixa DLL32 FUNCTION EpNumeroCx( NumeroCaixa AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Numero_ECF_Loja" LIB XDLL_EPSON //Ler data do movimento DLL32 FUNCTION EpDtMovto(DtHrMovto AS LPSTR) AS LONG PASCAL ; FROM "EPSON_Obter_Data_Hora_Jornada" LIB XDLL_EPSON //Ler data e hora da impressora DLL32 FUNCTION EpDtHora( DtHs AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Obter_Hora_Relogio" LIB XDLL_EPSON //Ler Status do Movimento DLL32 FUNCTION EpObEstImp( Status AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Obter_Dados_Jornada" LIB XDLL_EPSON //Inicia Dia DLL32 FUNCTION EpAbrDiaFi( ) AS LONG PASCAL ; FROM "EPSON_RelatorioFiscal_Abrir_Dia" LIB XDLL_EPSON //Ler flag fiscal da impressora e de documentos não fiscal DLL32 FUNCTION EpFlagFisc( @FlagFiscal AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Estado_Cupom" LIB XDLL_EPSON //Emite leitura X DLL32 FUNCTION EpLeituraX( ) AS LONG PASCAL; FROM "EPSON_RelatorioFiscal_LeituraX" LIB XDLL_EPSON //Emite redução Z DLL32 FUNCTION EpReducaoZ( vData AS LPSTR,; vHoras AS LPSTR,; nOpHorVer AS PTR,; vCRZ AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_RelatorioFiscal_RZ" LIB XDLL_EPSON //Abre cupom fiscal DLL32 FUNCTION EpAbreCup ( CNPJ AS LPSTR,; Razao AS LPSTR,; End1 AS LPSTR,; End2 AS LPSTR,; OpImpCli AS PTR ) AS LONG PASCAL ; FROM "EPSON_Fiscal_Abrir_Cupom" LIB XDLL_EPSON //Verifica se tem impressora ligada DLL32 FUNCTION EpPrintLig( ) AS LONG PASCAL; FROM "EPSON_Serial_Obter_Estado_Com" LIB XDLL_EPSON //Cancela cupom fiscal DLL32 FUNCTION EpCanCupom( ) AS LONG PASCAL; FROM "EPSON_Fiscal_Cancelar_Cupom" LIB XDLL_EPSON //Cancela Comprovante de Credito Debito (Cupom Vinculado) DLL32 FUNCTION EpCanCcdNf( vIdFrmPgt AS LPSTR,; vVllrPgt AS LPSTR,; nCasDec AS PTR,; vNroParc AS LPSTR,; vNroCup AS LPSTR ) AS LONG PASCAL; FROM "EPSON_NaoFiscal_Cancelar_CCD" LIB XDLL_EPSON //Retorna Informação sobre ultimo documento DLL32 FUNCTION EpInfUtDoc( vUltDoc AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Obter_Informacao_Ultimo_Documento" LIB XDLL_EPSON //Cancela último ítem do cupom DLL32 FUNCTION EpCancItem( ) AS LONG PASCAL; FROM "EPSON_NaoFiscal_Cancelar_Ultimo_Item" LIB XDLL_EPSON //Ler número do cupom DLL32 FUNCTION EpNumCupom( Cupom AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Contadores" LIB XDLL_EPSON //Emite cupom gerencial DLL32 FUNCTION EpCpGerAbr( Texto AS LPSTR ) AS LONG PASCAL; FROM "EPSON_NaoFiscal_Abrir_Relatorio_Gerencial" LIB XDLL_EPSON //Fecha cupom gerencial DLL32 FUNCTION EpCpGerFec( OpCortar AS BOOL ) AS LONG PASCAL; FROM "EPSON_NaoFiscal_Fechar_CCD" LIB XDLL_EPSON //Abre a gaveta DLL32 FUNCTION EpAbreGav ( ) AS LONG PASCAL ; FROM "EPSON_Impressora_Abrir_Gaveta" LIB XDLL_EPSON //Abre cupom adicional DLL32 FUNCTION EpCupAdAbr( vIdFormaPgto AS LPSTR,; vValor AS LPSTR,; nNroCas AS PTR,; vNroPar AS LPSTR ) AS LONG PASCAL; FROM "EPSON_NaoFiscal_Abrir_CCD" LIB XDLL_EPSON // Imprime cupom não fiscal vinculado DLL32 FUNCTION EpCupAdUsa( Texto AS LPSTR ) AS LONG PASCAL; FROM "EPSON_NaoFiscal_Imprimir_LinhaEX" LIB XDLL_EPSON // Fecha Comprovante de Credito Debito DLL32 FUNCTION EpCupAdFec( lOpCorPap AS BOOL ) AS LONG PASCAL; FROM "EPSON_NaoFiscal_Fechar_CCD" LIB XDLL_EPSON //Fecha Cupom DLL32 FUNCTION EpFechaCup( CortaPapel AS BOOL,; ImpCupAd AS BOOL ) AS LONG PASCAL ; FROM "EPSON_Fiscal_Fechar_Cupom" LIB XDLL_EPSON // Imprime Menssagem no fechamento cupom DLL32 FUNCTION EpTerFeCup( Linha1 AS LPSTR,; Linha2 AS LPSTR,; Linha3 AS LPSTR,; Linha4 AS LPSTR,; Linha5 AS LPSTR,; Linha6 AS LPSTR,; Linha7 AS LPSTR,; Linha8 AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Fiscal_Imprimir_Mensagem" LIB XDLL_EPSON // Imprime Menssagem de Aplicação DLL32 FUNCTION EpMsgApl( Linha1 AS LPSTR,; Linha2 AS LPSTR ) AS LONG PASCAL; FROM "EPSON_Fiscal_Mensagem_Aplicacao" LIB XDLL_EPSON // Efetua o Download de um cupom do Memoria Fiscal DLL32 FUNCTION EpDwnCuMfd( vCOO1 AS LPSTR,; vCOO2 AS LPSTR,; nOpEnt AS PTR,; nOpImp AS PTR,; nAtoCotep AS PTR,; nOPSintegra AS PTR,; vArqSaid AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_Dados_MF_MFD" LIB XDLL_EPSON // Acrescimo ou Desconto no item. DLL32 FUNCTION EpEfeAcDes( VlrDesAcr AS LPSTR,; CasDec AS PTR,; DesAcr AS BOOL,; PorVlr AS BOOL ) AS LONG PASCAL ; FROM "EPSON_Fiscal_Desconto_Acrescimo_Item" LIB XDLL_EPSON // Acrescimo ou Desconto no Cupom DLL32 FUNCTION EpEfeAcDesCup(VlrDesAcr AS LPSTR,; CasDec AS PTR,; DesAcr AS BOOL,; PorVlr AS BOOL ) AS LONG PASCAL; FROM "EPSON_Fiscal_Desconto_Acrescimo_Subtotal" LIB XDLL_EPSON // Efetua Forma de Pagamento Não Fiscal DLL32 FUNCTION EpEfFPgNf( vIDPgt AS LPSTR,; vValor AS LPSTR,; nCasDec AS PTR,; vLinha1 AS LPSTR,; vLinha2 AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_NaoFiscal_Pagamento" LIB XDLL_EPSON //Leitura da memoria fiscal serial por DATA Serial MFD Ou Por Reduçoes DLL32 FUNCTION EpLeiMfdDt( vData1 AS LPSTR,; vData2 AS LPSTR,; nTipImp AS PTR,; vRetorno AS LPSTR,; vNomArq AS LPSTR,; nNroByt AS PTR,; nBuffer AS PTR ) AS LONG PASCAL ; FROM "EPSON_RelatorioFiscal_Leitura_MF" LIB XDLL_EPSON //Retornar o Totalizador Geral DLL32 FUNCTION EpRetGraTo( vRetTotal AS LPSTR ) AS LONG PASCAL ; FROM "EPSON_Obter_GT" LIB XDLL_EPSON /// Fim TMT81 Quote Link to comment Share on other sites More sharing options...
FoPl Posted August 12, 2015 Report Share Posted August 12, 2015 Íà÷àë ðàáîòàòü èíòåðåñíûé ñåêñ ñàéò, åñëè âû æåëàåòå ñìîòðåòü ñåêñ áåñïëàòíî òî ìû âñåãäà ðàäû íîâûì ïîñåòèòåëÿì. Òåìàòèêà ãåè áåñïëàòíî ñêîðåå âñåãî áóäåò çàíèìàòåëüíà òåì êîìó ñèìïàòèçèðóåò íåòðàäèöèîííûé ïîðíî, òàê æå áóäóò çàìàí÷èâû òàêèå êàòåãîðèè êàê ñåêñ àíàë îíëàéí , äëÿ çíàþùèõ òîëê áäñì îíëàéí òàê æå ìíîãî ëþáèòåëüñêîãî ñåêñ. Ñëàáîé ïîëîâèíå ÷åëîâå÷åñòâà ïîíðàâÿòñÿ êàòåãîðèÿ ñàéòà ëåñáè ïîðíî, ïîìèìî ýòîãî åñòü ÷òî îöåíèòü è ìóæ÷èíàì òàêèå ðàçíîâèäíîñòè âèäåî êàê ìèíåò áåñïëàòíî, äëÿ ëþáèòåëåé àçèàòñêîãî ïîðíî ó íàñ àðõèâ êèíî íà ïîðíî òåìó àçèàòêè. Ìíîãèì íàâåðíÿêà íðàâèòñÿ ãëÿäåòü íà ãðóïïîâóõà , î÷åíü ìíîãî êòî ëþáèò òàêóþ ðàçíîâèäíîñòü âèäåî êàê âèäåî äîìàøíåãî ïîðíî. Äëÿ ïîêëîííèêîâ ÷èòàòü ÷èòàòü ïîðíî ðàññêàçû îíëàéí íà íàøåì ñàéòå äëÿ âçðîñëûõ òîæå ïðèñóòñòâóåò áîëüøîå êîëè÷åñòâî ÷åãî ïîëåçíîãî è çàõâàòûâàþùåãî. Òàê æå âû ëåãêî îòòûùèòå â íàëè÷èè ôëåø èãðû ïî ñâîåìó èíòåðåñó, äîáàâëåíèå âèäåî ìàòåðèàëà âñåãî ïîÿâëÿåòñÿ íåñêîëüêî ðàç â äåíü! ÍÀ ÝÐÎÒÈ×ÅÑÊÎÌ ÑÀÉÒÅ ÂÑÅ ÀÁÑÎËÞÒÍÎ ÁÅÑÏËÀÒÍÎ, òàê æå ÍÅÒ ÂÈÐÓÑÎÂ È ÍÀÄÎÅÄËÈÂÎÉ ÐÅÊËÀÌÛ !!! Ñàéò: http://pornosex-video.com/ . Quote Link to comment Share on other sites More sharing options...
evertonlb Posted August 14, 2015 Report Share Posted August 14, 2015 Uai.. acho que nesse link ai não tem nada de "desconto na impressora Epson" Quote Link to comment Share on other sites More sharing options...
rochinha Posted August 18, 2015 Report Share Posted August 18, 2015 Amiguinhos, evertonnlb, qual link você está falando? o do Kapiaba ou o do FoPI? O Kapiaba apenas postou as declarações para que você pudesse verificar se estavam iguais as suas, mas você não foi mais profundo apresentando o seu problema, como, qual biblioteca está usando, se está usando monitor ACBr ou qual o trecho de seu programa não está trazendo o resultado. Mostre-nos e seremos mais contundentes. Vale lembrar que as sequencias de comandos são: nRetorno := AbreCupom() nRetorno := VendeItem( cCodigo, cDescricao, cAliquotaICMS, nQtdes, nValorUnitario ) //, nValorDesconto, cUnidade, cTipoDesconto ) * Retorno := SubtotalizaCupom( Desconto, Obs ) ; nRetorno := SubTotalizaCupom( 0, "" ) nRetorno := EfetuaPagamento( "1", 100, "DEVE VOLTAR TROCO DE 1,25" ) nRetorno := FechaCupom( "5Volution Fenix|http://www.5volution.com.br" ) E você deve usar: // Acrescimo ou Desconto no Cupom DLL32 FUNCTION EpEfeAcDesCup(VlrDesAcr AS LPSTR,; CasDec AS PTR,; DesAcr AS BOOL,; PorVlr AS BOOL ) AS LONG PASCAL; FROM "EPSON_Fiscal_Desconto_Acrescimo_Subtotal" LIB XDLL_EPSON Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.