5volution

Amiguinho, José M. S. Junior Entendi. Percebi que seria algo muito novo, apesar de relatos mais antigos sobre o problema. @braços.

Amiguinho, José M. S. Junior Estou usando o ACBrNFeMonitorPLUS1.2.0.41.exe e abri aba por aba mas não encontrei onde configurar a opção que me informou. Lembrando que eu não compilo. Não encontrei também no INI algo referente a esta forçagem. @braços.

Amigos, Estou gerando o meu XML na mão, não uso INI e meu bloco em questão fica assim: <ICMS> <ICMSSN500> <orig>0</orig> <CSOSN>500</CSOSN> <vBCSTRet>150.80</vBCSTRet> <pST>18.00</pST> <vICMSSubstituto>146.66</vICMSSubstituto> <vICMSSTRet>27.00</vICMSSTRet> </ICMSSN500> </ICMS> Mas tanto após o comando Assinatura e mesmo no momento do Envio percebi que o XML é modificado ficando assim: <ICMS> <ICMSSN500> <orig>0</orig> <CSOSN>500</CSOSN> <vBCSTRet>150.80</vBCSTRet> <pST>18.00</pST> <vICMSSTRet>27.00</vICMSSTRet> </ICMSSN500> </ICMS> A TAG vICMSSubstituto simplemente é eliminada e o envio retorna Rejeição 938 que exige as tags vBCSTRet, pST, vICMSSubstituto e vICMSSTRet. Quando sairá uma atualização que permita que o XML tenha as tags que eu defini. Quando digo EU quero dizer usuário. Obrigado.

Amiguinhos, Obrigado.

Amiguinhos, Ao usar o comando NFE.NFetoTXT com o ACBr MonitorPLUS Ver.0.3.08.1 ocorre o seguinte erro: NOTA FISCAL|1 A|3.10|NFe41180722602030000100550010000001421000001425 <?xml version="1.0" encoding="UTF-8"?>A|3.10|NFe41180722602030000100550010000001421000001425 B|41|00000142|6902-RETORNO DE MERCADORIA UTILIZADA NA INDUSTRIAL|0|55|1|142|2018-07-10T16:06:32-03:00|2018-07-10T16:06:32-03:00|1|2|4115457|2|1|5|1|1|0|9|0|FENIX 1.0.20|| C|M. R. ALUPP CONFECCOES ME||9072961649||3839|1412602|1 Aparece <?xml version="1.0" encoding="UTF-8"?>A|3.10|NFe41180722602030000100550010000001421000001425, repetindo a segunda linha e sendo incluso o trecho em XML. Atualizei para a versão ACBr MonitorPLUS Ver.1.1.0.54 e o mesmo continua acontecendo. Obrigado pela atenção.

Amiguinhos, Apenas complementando os pensamentos e dirimindo duvidas. O amigo Daniel Simões escreveu: Talvez na época desta resposta a tabela IBPT não contemplava os códigos da tabela de serviços. Que tenham relação, talvez não, mas a impressão do cupom segue a mesma linha Lei da Transparência para apresentação dos percentuais de impostos sendo impressos para o consumidor. Ainda na época do ECF já faziamos isto e o ECF também não tinha relação com a tabela do IBPT. O amigo LeandroLJM escreveu: Mas no .XML os itens que eram para ser serviços estão lançados como mercadorias. Sim porque para serem serviços a CFOP usada deveria ser 5.933 ou 5.949 e não deveria existir o grupo ICMS e sim o ISSQN. O SAT só aceita um ou outro. Ainda nas informações do amigo ao buscar na tabela IBPT o código 114059900 o valor de imposto deveria ser de 2.19%(AliqMun) por se tratar de um imposto municipal ao qual a prefeitura tem direito ao invés de 13,45%(AliqNac). Minha ´duvida pairou aqui porque estivemos emitindo cupons em um petshop usando 5933 que hora validava e ora não e então passei a usar CFOP 5.949 e CSOSN 900/400 para que o item não fosse tributado direto no SAT e sim no lançamento na página da prefeitura. O problema é não encontrarmos nada a respeito de qualquer convênio firmado entre prefeituras e estado, pelo menos em São Paulo e ainda pairar informações sobre SAT-ISS. 114059900

Amiguinhos, Fiz alguns testes usando a Activex e a DLL com Harbour e TOleAuto(). Rodou perfeitamente com o emulador Logger e Serial Virtual Ports. Exemplo utilizado, compilado usando Harbour tradicional .45 Flex. ///////////////////////////////////////////////////////////////////////////// // // ACBR - Funcoes Compativeis com ACBrECF // // Autor: Jose Carlos da Rocha // Data: 30/10/2012 // Email: irochinha@itelefonica.com.br // MSN: fivolution@hotmail.com // Linguagem: xBase / Fivewin // Plataformas: DOS, Windows // Requerimentos: Harbour/xHarbour // // Link Acbr32: http://www.multisistemasnet.com/acbr32/ACBr32.rar // Link Activex: http://www.multisistemasnet.com/acbr32/ACBr_ActiveX.rar // // ///////////////////////////////////////////////////////////////////////////// #include "fivewin.ch" #include "dll.ch" #define hDllECF "ACBr32.dll" function Main(cModelo) local fn := Array(5) default cModelo := "12" oACBrX := TOleAuto():New( "ACBr_ActiveX.ACBrECF" ) nModelo := val(cModelo) lCancela := .f. lVinculado := .f. //if oACBrX:AcharECF( .t., .t., 3 ) // Encontrou uma ECF //oACBrX:Device:Baud = 115200 oACBrX:Porta = 'COM1' //oACBrX:TimeOut = 3 oACBrX:Modelo = nModelo // 1 Emulador // 2 Bematech // 3 Sweda // 4 Daruma // 5 Schalter // 6 Mecaf // 7 Yanco // 8 DataRegis // 9 Urano // 10 ICash // 11 Quattro // 12 FiscNET // 13 Epson // 14 NCR // 15 SwedaSTX //?"oACBrX:Ativar()" cACBrAtivar := oACBrX:Ativar() if cACBrAtivar // empty( cACBrAtivar ) // Ativou ECF // oACBrX:Ativo() //?"oACBrX:ModeloStr", oACBrX:ModeloStr() //?"oACBrX:NumCupom", oACBrX:NumCupom() //?"oACBrX:NumCOO", oACBrX:NumCOO() //?"oACBrX:", oACBrX:() //?"oACBrX:IdentificaConsumidor", oACBrX:IdentificaConsumidor("11898853878","ROCHA","SEM ENDERECO") //? "TestaPodeAbrirCupom", oACBrX:TestaPodeAbrirCupom() //?"oACBrX:AbrirCupom()" nEstadoECF := oACBrX:Estado do case Case nEstadoECF = 1 Case nEstadoECF = 2 Case nEstadoECF = 3 Case nEstadoECF = 4 Case nEstadoECF = 5 Case nEstadoECF = 6 ? "Reducao Z do dia ja efetuada. ECF travado ate 00:00." oACBrX:Desativar() return nil Case nEstadoECF = 7 ? "O ECF precisa realizar REDUÇÃO Z." if MsgYesNo( "Deseja imprimir Reducao Z?" ) nRetorno := oACBrX:ReducaoZ() // dtoc(date()-1)+" "+time()) else oACBrX:Desativar() return nil endif Case nEstadoECF = 8 Case nEstadoECF = 9 endcase cACBrAbrirCupom := oACBrX:AbrirCupom("11898853878","ROCHA","SEM ENDERECO") if empty( cACBrAbrirCupom ) // AbreCupom("11898853878","ROCHA","SEM ENDERECO") // Se Abriu o cupom //?"oACBrX:VendeItemSimples" //lCancela := oACBrX:VendeItemSimples( "123", "Descricao", 10, 15.45 ) lCancela := oACBrX:VendeItem( "123", "Descricao", "T00", "10", "15,45", "0", "UN", "%", "D" ) // Vendeu um item //if ! lCancela; oACBrX:CancelaCupom(); endif //?"oACBrX:SubTotalizaCupom",; lCancela := oACBrX:SubTotalizaCupom( 0, "Sub Total" ) // Subtotalizou //if ! lCancela; oACBrX:CancelaCupom(); endif sNCupom := "100" sIndiceForma := "1" //?"oACBrX:EfetuaPagamento",; lCancela := oACBrX:EfetuaPagamento( sIndiceForma, 200, "DEVE VOLTAR TROCO", lVinculado ) // Subtotalizou //if ! lCancela; oACBrX:CancelaCupom(); endif //?"oACBrX:FechaCupom",; lCancela := oACBrX:FechaCupom( "5Volution Fenix|http://5volution.COM.BR" ) // Subtotalizou //if ! lCancela; oACBrX:CancelaCupom(); endif //? "oACBrX:MFD", oACBrX:MFD() ? "AliquotaStr" , oACBrX:AliquotaStr, ; "LerTotaisAliquota", oACBrX:LerTotaisAliquota,; "Estado" , oACBrX:Estado , ; "Modelo" , oACBrX:Modelo , ; "ModeloStr" , oACBrX:ModeloStr , ; "CNPJ" , oACBrX:CNPJ , ; "RFDID" , oACBrX:RFDID // "GetDadosUltimaReducaoZ", oACBrX:GetDadosUltimaReducaoZ,; ? "oACBrX:NumCupom", oACBrX:NumCupom() , ; "oACBrX:NumCOO" , oACBrX:NumCOO , ; "oACBrX:NumCRZ" , oACBrX:NumCRZ() , ; "oACBrX:SubTotal", ; sSubtotal := oACBrX:SubTotal if MsgYesNo( "Leitura Memoria Fiscal Simplificada?" ) nRetorno := oACBrX:LeituraMemoriaFiscalReducao( 1, 1, .t. ) endif if MsgYesNo( "Leitura Memoria Fiscal Simplificada em Arquivo?" ) nRetorno := oACBrX:LeituraMemoriaFiscalArquivoReducao( 1, 1, "c:\reducao.txt", .t. ) endif // nRetorno := oACBrX:CancelaItemVendido( Val(valor) ) if MsgYesNo( "Deseja cancelar este cupom?" ) nRetorno := oACBrX:CancelaCupom() // oACBrX: endif if MsgYesNo( "Deseja imprimir Leitura X?" ) nRetorno := oACBrX:LeituraX() endif //if MsgYesNo( "Deseja imprimir Reducao Z?" ) // nRetorno := oACBrX:ReducaoZ() // dtoc(date()-1)+" "+time()) //endif //nRetorno := oACBrX:RelatorioGerencial( "teste", 1, "100" ) //nRetorno := oACBrX:EspelhoMFD_DLLPorCOO("50", "150", "c:\temp\mfd.txt", .t.) if MsgYesNo( "Abre Cupom Vinculado?" ) // O processo do TEF é: // 1 - Cupom Fiscal, finalizado com uma Forma de Pagamento que permita Cupons Vinculados (no caso da Bematech somente a 01-Dinheiro nao permite) // 2 - Abra o Cupom NAO Fiscal Vinculado... // 3 - Imprima as 2 vias do comprovante // 4 - Feche o Cupom Nao Fiscal Vinculado // 5 - Se nao houver confirmação do Fechamento do Cupom NAO Fiscal Vinculado (queda de energia (simule desligando o ECF)) va ao passo 6 se tudo estiver OK ao passo 12 // 6 - Emitir msg ao usuário informando o ERRO ao imprimir. Tentar novamente ? // 7 - Se SIM, Fechar qq Cupom Fiscal Vinculado ou Relatorio Gerencial que esteja aberto // 8 - Abra um relatorio Gerencial // 9 - Imprima dentro do Relatorio Gerencial as 2 vias... // 10 - Feche o relatorio Gerencial // 11 - Se NAO confirmou a impressao, volte ao passo 6 // 12 - Se tudo OK, Confirmar a impressao correta enviando o CNF ao TEF Discado... nRetorno := oACBrX:AbreCupomVinculado( sNCupom, sIndiceForma, sSubtotal ) // Imprime o texto do TEF nRetorno := oACBrX:LinhaCupomVinculado( ' REDECARD' ) //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( 'TERMINAL No. RD000000' ) //LinhaCupomVinculado( 'ESTAB. No. 000000009999999' ) //LinhaCupomVinculado( '------------------------------') //LinhaCupomVinculado( 'MASTERCARD VENDA-CR' ) //LinhaCupomVinculado( '5390581381691605' ) //LinhaCupomVinculado( 'DATA/HORA VALIDADE' ) //LinhaCupomVinculado( '26/11/03 15:53:08 05/09' ) //LinhaCupomVinculado( 'AUTENT:' ) //LinhaCupomVinculado( '260007' ) //LinhaCupomVinculado( 'C.V.: AUTORIZ.' ) //LinhaCupomVinculado( '7 123456' ) //LinhaCupomVinculado( '------------------------------') //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( '### OPERACAO SIMULADA ###' ) //LinhaCupomVinculado( '### NENHUM VALOR SERA ###' ) //LinhaCupomVinculado( '### CREDITADO OU DEBITADO ###' ) //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( 'APROVADO' ) //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( 'VALOR: 1590' ) //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( 'ASSINATURA DO CLIENTE' ) //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( 'RECONHECO E PAGAREI A' ) //LinhaCupomVinculado( 'DIVIDA AQUI APRESENTADA' ) //LinhaCupomVinculado( '' ) //LinhaCupomVinculado( ' (SiTef)' ) //LinhaCupomVinculado( 'Transacao OK' ) // Fecha o Comprovante do TEF ? "FechaRelatorio", ; nRetorno := oACBrX:FechaRelatorio() endif else oACBrX:CancelaCupom() endif endif //?"FechaCupom" //nRetorno := oACBrX:FechaCupom( "5Volution Fenix|http://5volution.COM.BR" ) oACBrX:Desativar() //oACBrX:ACBr_Destroi() // Desativar() //endif return nil DLL32 FUNCTION CancelaCupom(HANDLE As _DOUBLE) AS _INT PASCAL FROM "ECF_CancelaCupom" LIB hDllECF #pragma BEGINDUMP #include #include typedef LONG ( * PDLLREGISTERSERVER ) ( void ); HB_FUNC( REGISTERSERVER ) { HMODULE hDll = LoadLibrary( hb_parc( 1 ) ); LONG lReturn = 0; if( hDll ) { FARPROC pRegisterServer = GetProcAddress( hDll, "DllRegisterServer" ); if( pRegisterServer ) lReturn = ( ( PDLLREGISTERSERVER ) pRegisterServer )(); FreeLibrary( hDll ); } hb_retnl( lReturn ); } #pragma ENDDUMP Function Random( nMaximo ) static nRandom local nTemporal nMaximo = if( nMaximo == NIL, 65535, nMaximo ) if nRandom == NIL nRandom = seconds() endif nTemporal = ( nRandom * seconds() ) % ( nMaximo + 1 ) nTemporal = if( nTemporal < 1, 1, nTemporal ) nRandom = nTemporal + seconds() RETURN int( nTemporal ) Function VRandom( nIMaximo, nDMaximo ) static nIRandom, nDRandom local nITemporal, nDTemporal nIMaximo = if( nIMaximo == NIL, 65535, nIMaximo ) nDMaximo = if( nDMaximo == NIL, 65535, nDMaximo ) nIRandom = if( nIRandom == NIL, seconds(), nIRandom ) nDRandom = if( nDRandom == NIL, seconds(), nDRandom ) nITemporal = ( nIRandom * seconds() ) % ( nIMaximo + 1 ) nDTemporal = ( nDRandom * seconds() ) % ( nDMaximo + 1 ) nIRandom = nITemporal + seconds() nDRandom = nDTemporal + seconds() RETURN int( nITemporal ) + ( int( nDTemporal ) / 100 )