Ir para conteúdo
  • Cadastre-se

Castro Castro

Membros
  • Total de ítens

    38
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que Castro Castro postou

  1. Estou recebendo esse erro no ambiente de homologação da NFCe 4.00 quando tento enviar, em VB6, no monitor PLUS ver. 1.0.50 compilado com Lazarus 1.0.9, porem quando envio a NFCe 3.10 para o webservice 4.00 o monitor PLUS assina normal, será que tem haver de protocolo no monitor PLUS, alguém pode me dar uma luz? uma ideia ? respostas ? segue imagens para verificação. agradeço.
  2. boa tarde, senhores, gostaria de saber se existe uma forma de ordenar a pesquisa de tópicos de forma decrescente, começa do ano de 2015, tem uma de ser 2018, 2017, 2016 do ultimo post para o primeiro por data e hora? desde já agradeço
  3. bom dia colega, bem, depois de baixar o repositório pelo SVN, instalar o Lazarus pascal e passar algumas horas adicionando componentes, compilando, instalando e esperando o lazarus reiniciar a cada componente instalado, consegui carregar o projeto conforme imagem, porem quando tento executar, para na linha do Código do município, veriquei a pasta IBGE no projeto e consta uma lista de arquios texto com município, não entendo de delphi e pensei em colocar o Código do município diretamente onde fica o cursor. será q esta faltando algo? pretendo apenas executar e compilar com a intenção de manter o ACBrmonitorPLUS . desde já agradeço a colaboração.
  4. Boa noite, quero agradecer a todos que de alguma forma me ajudaram com esse post, já está resolvido e enviando a NFCe versao 3.10 para os webservice 4.0. (ainda sem aparecer o troco na nota) .
  5. agradeço a resposta, bem removi o comando de NFe.ValidarNFE(), gerei outra NFCe 4.0 estou enviando o log e o xml e o cupom pois continua sem aparecer o troco mais já inserir o mesmo de acordo com o codigo fonte '======== [PAGXXX] =========== Print #1, "[PAG001]" Print #1, "tpag=" & "01" Print #1, "vPag=" & Replace(Label4, ",", ".") Print #1, "vTroco=" & Replace(Label17, ",", ".") este é o LOG.TXT gerado pelo ACBrmonitor plus versão 1.0.27 26/02/2018 15:47:16 - ACBr MonitorPLUS Ver.1.1.0.27 26/02/2018 15:47:16 - Aguardando comandos ACBr 26/02/2018 15:47:16 - Monitorando Comandos TXT em: C:\ACBrMonitorPLUS\ENT.TXT 26/02/2018 15:47:16 - Respostas gravadas em: C:\ACBrMonitorPLUS\SAI.TXT 26/02/2018 15:47:16 - Log de comandos será gravado em: C:\ACBrMonitorPLUS\LOG.TXT 26/02/2018 15:47:16 - Log de mensagens da NFe/NFCe será gravado em: C:\ACBrMonitorPLUS\LOG_COMP.TXT 26/02/2018 15:48:42 - NFe.CriarNFe("c:\ACBrMonitorPLUS\NFe4.ini") 26/02/2018 15:48:43 - OK: C:\ACBrMonitorPLUS\ArqEnviados\13180212772694000164650020000000171876827417-nfe.xml 26/02/2018 15:48:43 - NFE.AssinarNFe("C:\ACBrMonitorPLUS\ArqEnviados\13180212772694000164650020000000171876827417-nfe.xml") 26/02/2018 15:48:43 - OK: C:\ACBrMonitorPLUS\ArqEnviados\13180212772694000164650020000000171876827417-nfe.xml 26/02/2018 15:48:43 - NFE.ImprimirDanfe("C:\ACBrMonitorPLUS\ArqEnviados\13180212772694000164650020000000171876827417-nfe.xml", , , , , ,1) 26/02/2018 15:51:30 - OK: Danfe Impresso com sucesso 26/02/2018 15:52:16 - EConvertError - "" is an invalid integer 26/02/2018 15:52:16 - "" is an invalid integer 26/02/2018 15:54:24 - ACBr MonitorPLUS Ver.1.1.0.27 26/02/2018 15:54:24 - Aguardando comandos ACBr 26/02/2018 15:54:24 - Monitorando Comandos TXT em: C:\ACBrMonitorPLUS\ENT.TXT 26/02/2018 15:54:24 - Respostas gravadas em: C:\ACBrMonitorPLUS\SAI.TXT 26/02/2018 15:54:24 - Log de comandos será gravado em: C:\ACBrMonitorPLUS\LOG.TXT 26/02/2018 15:54:24 - Log de mensagens da NFe/NFCe será gravado em: C:\ACBrMonitorPLUS\LOG_COMP.TXT bem, colega estou tentando enviar o xml pelo próprio monitor na opção teste.enviar xml (segue imagem abaixo) este é o xml gerado para analise e corresponde ao xml da imagem do cupom q estou enviando <NFe> <infNFe versao="4.00" Id="NFe13180212772694000164650020000000171876827417"> <ide> <cUF>13</cUF> <cNF>87682741</cNF> <natOp>Venda Dentro do Estado</natOp> <mod>65</mod> <serie>2</serie> <nNF>17</nNF> <dhEmi>2018-02-26T15:48:42-03:00</dhEmi> <tpNF>1</tpNF> <idDest>1</idDest> <cMunFG>1302603</cMunFG> <tpImp>4</tpImp> <tpEmis>1</tpEmis> <cDV>7</cDV> <tpAmb>2</tpAmb> <finNFe>1</finNFe> <indFinal>1</indFinal> <indPres>1</indPres> <procEmi>0</procEmi> <verProc>1.00</verProc> </ide> <emit> <CNPJ>12772694000164</CNPJ> <xNome>M J DE LIMA RABELO - ME</xNome> <enderEmit> <xLgr>Rua Raul Boop</xLgr> <nro>170</nro> <xBairro>Compensa</xBairro> <cMun>1302603</cMun> <xMun>MANAUS</xMun> <UF>AM</UF> <CEP>69030220</CEP> <cPais>1058</cPais> <xPais>BRASIL</xPais> <fone>9236281217</fone> </enderEmit> <IE>042303990</IE> <CRT>1</CRT> </emit> <autXML> <CNPJ>12772694000164</CNPJ> </autXML> <det nItem="1"> <prod> <cProd>7891149103041</cProd> <cEAN>7891149103041</cEAN> <xProd>NOTA FISCAL EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xProd> <NCM>22030000</NCM> <CFOP>5102</CFOP> <uCom>UN</uCom> <qCom>1.0000</qCom> <vUnCom>7.0000000000</vUnCom> <vProd>7.00</vProd> <cEANTrib/> <uTrib>UN</uTrib> <qTrib>1.0000</qTrib> <vUnTrib>7.0000000000</vUnTrib> <indTot>1</indTot> </prod> <imposto> <vTotTrib>3.30</vTotTrib> <ICMS> <ICMSSN102> <orig>0</orig> <CSOSN>102</CSOSN> </ICMSSN102> </ICMS> <PIS> <PISOutr> <CST>49</CST> <vBC>0.00</vBC> <pPIS>0.0000</pPIS> <vPIS>0.00</vPIS> </PISOutr> </PIS> <COFINS> <COFINSOutr> <CST>49</CST> <vBC>0.00</vBC> <pCOFINS>0.0000</pCOFINS> <vCOFINS>0.00</vCOFINS> </COFINSOutr> </COFINS> </imposto> </det> <det nItem="2"> <prod> <cProd>7891149103041</cProd> <cEAN>7891149103041</cEAN> <xProd>CERVEJA BRAHMA 1 LITRO</xProd> <NCM>22030000</NCM> <CFOP>5102</CFOP> <uCom>UN</uCom> <qCom>1.0000</qCom> <vUnCom>7.0000000000</vUnCom> <vProd>7.00</vProd> <cEANTrib/> <uTrib>UN</uTrib> <qTrib>1.0000</qTrib> <vUnTrib>7.0000000000</vUnTrib> <indTot>1</indTot> </prod> <imposto> <vTotTrib>3.30</vTotTrib> <ICMS> <ICMSSN102> <orig>0</orig> <CSOSN>102</CSOSN> </ICMSSN102> </ICMS> <PIS> <PISOutr> <CST>49</CST> <vBC>0.00</vBC> <pPIS>0.0000</pPIS> <vPIS>0.00</vPIS> </PISOutr> </PIS> <COFINS> <COFINSOutr> <CST>49</CST> <vBC>0.00</vBC> <pCOFINS>0.0000</pCOFINS> <vCOFINS>0.00</vCOFINS> </COFINSOutr> </COFINS> </imposto> </det> <det nItem="3"> <prod> <cProd>7896433800019</cProd> <cEAN>7896433800019</cEAN> <xProd>ACUCAR ITAMARATI CRISTAL 1KG</xProd> <NCM>17019900</NCM> <CFOP>5102</CFOP> <uCom>UN</uCom> <qCom>1.0000</qCom> <vUnCom>2.2500000000</vUnCom> <vProd>2.25</vProd> <cEANTrib/> <uTrib>UN</uTrib> <qTrib>1.0000</qTrib> <vUnTrib>2.2500000000</vUnTrib> <indTot>1</indTot> </prod> <imposto> <vTotTrib>0.50</vTotTrib> <ICMS> <ICMSSN102> <orig>0</orig> <CSOSN>102</CSOSN> </ICMSSN102> </ICMS> <PIS> <PISOutr> <CST>49</CST> <vBC>0.00</vBC> <pPIS>0.0000</pPIS> <vPIS>0.00</vPIS> </PISOutr> </PIS> <COFINS> <COFINSOutr> <CST>49</CST> <vBC>0.00</vBC> <pCOFINS>0.0000</pCOFINS> <vCOFINS>0.00</vCOFINS> </COFINSOutr> </COFINS> </imposto> </det> <total> <ICMSTot> <vBC>0.00</vBC> <vICMS>0.00</vICMS> <vICMSDeson>0.00</vICMSDeson> <vFCPUFDest>0.00</vFCPUFDest> <vFCP>0.00</vFCP> <vBCST>0.00</vBCST> <vST>0.00</vST> <vFCPST>0.00</vFCPST> <vFCPSTRet>0.00</vFCPSTRet> <vProd>16.25</vProd> <vFrete>0.00</vFrete> <vSeg>0.00</vSeg> <vDesc>0.00</vDesc> <vII>0.00</vII> <vIPI>0.00</vIPI> <vIPIDevol>0.00</vIPIDevol> <vPIS>0.00</vPIS> <vCOFINS>0.00</vCOFINS> <vOutro>0.00</vOutro> <vNF>16.25</vNF> <vTotTrib>7.10</vTotTrib> </ICMSTot> </total> <transp> <modFrete>9</modFrete> </transp> <pag> <detPag> <tPag>01</tPag> <vPag>20.00</vPag> </detPag> </pag> <infAdic> <infCpl>Emitido por ME, EPP ou MEI optante do Simples Nacional nao permite aproveitamento de credito fiscal de ICMS - Trib aprox R$:2,21 Fed, R$:4,89 Est e 0,00 Mun Fonte: IBPT 5oi7eW (Emitido por [email protected])</infCpl> </infAdic> </infNFe> <infNFeSupl> <qrCode>http://homnfce.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp?chNFe=13180212772694000164650020000000171876827417&nVersao=100&tpAmb=2&dhEmi=323031382D30322D32365431353A34383A34322D30333A3030&vNF=16.25&vICMS=0.00&digVal=2B2B436F36356261684C74385759554B563446753944436A4E72383D&cIdToken=000001&cHashQRCode=287B7303BC7C86FF7B64ED0908F6B6D7AC46CBE0</qrCode> <urlChave>http://homnfce.sefaz.am.gov.br/nfceweb/formConsulta.do</urlChave> </infNFeSupl> <Signature> <SignedInfo> <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/> <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/> <Reference URI="#NFe13180212772694000164650020000000171876827417"> <Transforms> <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/> <Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/> </Transforms> <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/> <DigestValue>++Co65bahLt8WYUKV4Fu9DCjNr8=</DigestValue> </Reference> </SignedInfo> <SignatureValue>cYtq0uBP37fwSjwffdXa6Gz4uRMpn5gLxrSbIo7e13WveWBPhytwlFtOAxd4VO5cshoXGtPW+ZrO2JnR0Nf9tl9C3/BGidU17HV+g0n53lctf+YB1HHov19E+McJgNaaV39SbVxVBh9J9MAh7sjgqfmu6wkm2qxg6IW0Dv3buKRZ2lOI2k/7typOPcMiWvcBALwrTifDLVTAfRxA+4l4DNjP14Q+8DSuN/2vMeLJR3rQ+sExtTItzRXD2dUf9+PXlp/hXxMhkk2fLwM0V8NYOV3bIOV3Y8fAz9mO0wg9A1Z6zeJvC6yP9GodzurEIFZHBUgLMY773GqijA5Yj9IOfA==</SignatureValue> <KeyInfo> <X509Data> <X509Certificate>MIIICjCCBfKgAwIBAgIITRlvI5+XsNkwDQYJKoZIhvcNAQELBQAwcTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEVMBMGA1UEAxMMQUMgVkFMSUQgUkZCMB4XDTE3MDQwODE2MzkzMloXDTE4MDQwODE2MzkzMlowgeMxCzAJBgNVBAYTAkJSMQswCQYDVQQIEwJBTTEPMA0GA1UEBxMGTUFOQVVTMRMwEQYDVQQKEwpJQ1AtQnJhc2lsMTYwNAYDVQQLEy1TZWNyZXRhcmlhIGRhIFJlY2VpdGEgRmVkZXJhbCBkbyBCcmFzaWwgLSBSRkIxFjAUBgNVBAsTDVJGQiBlLUNOUEogQTExIjAgBgNVBAsTGUFSIFNPTElNT0VTIENFUlRJRklDQURPUkExLTArBgNVBAMTJE0gSiBERSBMSU1BIFJBQkVMTyBNRToxMjc3MjY5NDAwMDE2NDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAJACfRrO6o2XZlkGt5iWc0p4v00hcl/5RpCgCU6rsCV5m5NDNb7pGocAZvV++vWjpuVrqBroVski4uwMSwVShUZuFPvrj555ya9Ntka3qE9T0TY/TBcwlETQjjpOz4UnJ2Yma8KbiKWvZgF3NYnJrFKhgAgZZpByNMiTXi1m2QxJ/IeNZol99pZWqm+zQhsKElFmx6Csofn0zaVwQgFR9Zq7i6DrWp9z4g1Len2d9ZBE7WXhgDJwQX6b1QWjyEQ2QKcMZyV5shdBj1ghHOxIt+Aij8GgSfYY6j1VZKLcWlTXgiSa1Wr8f8a8S4XuOL4mWbephuqf0ItJKdnluQFKIKkCAwEAAaOCAzEwggMtMIGaBggrBgEFBQcBAQSBjTCBijBVBggrBgEFBQcwAoZJaHR0cDovL2ljcC1icmFzaWwudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5ici9hYy12YWxpZHJmYi9hYy12YWxpZHJmYnYyLnA3YjAxBggrBgEFBQcwAYYlaHR0cDovL29jc3AudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5icjAJBgNVHRMEAjAAMB8GA1UdIwQYMBaAFEe5CFnYQvaS/Pd8FXwmgEpFkX6fMG4GA1UdIARnMGUwYwYGYEwBAgElMFkwVwYIKwYBBQUHAgEWS2h0dHA6Ly9pY3AtYnJhc2lsLnZhbGlkY2VydGlmaWNhZG9yYS5jb20uYnIvYWMtdmFsaWRyZmIvZHBjLWFjLXZhbGlkcmZiLnBkZjCCAQEGA1UdHwSB+TCB9jBToFGgT4ZNaHR0cDovL2ljcC1icmFzaWwudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5ici9hYy12YWxpZHJmYi9sY3ItYWMtdmFsaWRyZmJ2Mi5jcmwwVKBSoFCGTmh0dHA6Ly9pY3AtYnJhc2lsMi52YWxpZGNlcnRpZmljYWRvcmEuY29tLmJyL2FjLXZhbGlkcmZiL2xjci1hYy12YWxpZHJmYnYyLmNybDBJoEegRYZDaHR0cDovL3JlcG9zaXRvcmlvLmljcGJyYXNpbC5nb3YuYnIvbGNyL1ZBTElEL2xjci1hYy12YWxpZHJmYnYyLmNybDAOBgNVHQ8BAf8EBAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMIG9BgNVHREEgbUwgbKBHGNhc3Ryby5wcm9ncmFtYWRvckBnbWFpbC5jb22gOAYFYEwBAwSgLwQtMDkwODE5Njc0MDc1NzY2ODI5MTAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwoCQGBWBMAQMCoBsEGU1BUklBIEpPU0UgREUgTElNQSBSQUJFTE+gGQYFYEwBAwOgEAQOMTI3NzI2OTQwMDAxNjSgFwYFYEwBAwegDgQMMDAwMDAwMDAwMDAwMA0GCSqGSIb3DQEBCwUAA4ICAQCbqkF2l1KHL53u6y4hJSNjsqlMJ7LA8Jvx8v7/WtjGxciV9DoxlTzOnA6wWXKg7xlEnIDAWJqEO94BPDxQFylPqVDdipx31QoWk05VptaZYVipqnQgQtLGOaIUA+fnEdIwyBpGCLJS7xyXpW2bEREGNyEevx3PvrFJbA+jJMGU+8nVGNXcMh5YVZYcqirqM0sO3bcc+sOlu8vIK0j2yrZyEYeCO5w/Hzpx+2LM5bOF2BFS+X3X+qFFl0RUtMjQQgHG++IwyOEM1Edf+AVXclgznL2oOtU4fpWUwlM5/bIG1zZ34c+KNO3hsZ4bXfiXrzXm0eIwSuHkK6N/zPSrnXYehJPM9gZaYpuiG0LgA5fgCi8foIY9PCAidaBrh8S8Sdpdk09C7QgbV1o7DFYnUuYDyx2Bhthec6fjnTsJ+L2+KyXCxLhpGUOnz8vrkzgWtagQYxH6johI3Xr1b7PSI+AHnauTLgTj14x4lO8tK5xm8j6IMabCMkZmbVhOUbQvIFHZrfZdoPbdwnH9tjSrcBJeMtVOTpHHt7GG3k7Ppmnw+dEYgFc4sRlQ+/3QQ9e9yNaLHXOVn/CkI/AKo4Z2i+uxQrD7xCcXGMVg/17m8j8jXP7QET6PiC0TDvIu3faUpQSllC5hGADjufSnUv5c1a80fh/OVtdh4oxC8JXVwQ7uaA==</X509Certificate> </X509Data> </KeyInfo> </Signature> </NFe>
  6. não colega, mais estou revisando todos os campos e variável que dever se reapossadas com numérico na esperança de resolver, agradeço
  7. Bom dia, estou recebendo esse erro ao enviar um xml assinado e validado de uma nfce versão 4.0 em amb de homologação através da opção de (enviar XML) de teste do monitor plus 1.0.27 ------------ essa é a rotina em vb6 --------- Dim GetDate As String Dim vTribNFedRodape As Double Dim vTribNEstRodape As Double 'Open "c:\ACBrMonitorPLUS\CriarNFe.ini" For Output As #1 Open "c:\ACBrMonitorPLUS\NFe4.inI" For Output As #1 Print #1, "[infNFe]" Print #1, "versao=4.00" Print #1, "[Identificacao]" Print #1, "cUF=" & vcUF Print #1, "cNF=" & vcNF Print #1, "natOp=" & "Venda Dentro do Estado" Print #1, "ndPag=" & "0" Print #1, "mod=" & "65" Print #1, "serie=" & vserie Print #1, "nNF=" & vnNF Print #1, "dhEmi=" & GetDate = Format(Now, "yyyy-MM-ddThh:mm:ss.0000000-TZd") Print #1, "tpNF=" & "1" Print #1, "idDest=" & "1" Print #1, "cMunFG=" & vcMunFG Print #1, "tpImp=" & "4" Print #1, "tpEmis=" & "1" Print #1, "cDV=" & Calculo_DV11(vId) Print #1, "tpAmb=" & "1" Print #1, "finNFe=" & "1" Print #1, "indFinal=" & "1" Print #1, "indPres=" & "1" Print #1, "procEmi=" & "0" Print #1, "verProc=" & "1.00" '===================== EMITENTE ========================== Print #1, "[Emitente]" Print #1, "CNPJ=" & VARCNPJ Print #1, "xNome=" & VARRZSEMP Print #1, "xLgr=" & VARRUAEMP Print #1, "nro=" & VARNREMP Print #1, "xBairro=" & VARBAIRROEMP Print #1, "cMun=" & vcMunFG Print #1, "xMun=" & VARCIDEMP Print #1, "UF=" & Left(VARUFEMP, 2) Print #1, "CEP=" & VARCEPEMP Print #1, "cPais=" & "1058" Print #1, "fone=" & VARFNEMP Print #1, "fone=" & VARFNEMP Print #1, "IE=" & VARINSEST Print #1, "CRT=" & "1" 'REGIME SIMPLES NACIONAL '========= autXMLXXX =========================== Print #1, "[autXML001]" Print #1, "CNPJCPF=" & VARCNPJ '======== CPF na NOTA [Destinatario] ==================== Print #1, "[Destinatario]" Print #1, "CNPJCPF=" & vCPFNFc Print #1, "xNome=" & vxNomeCPFNFc Print #1, "indIEDest=" & 9 Print #1, "email=" & vEmailCPFNFc '========= ITNES VENDIDO [ProdutoXXX] ================= L = MSFlexGrid1.Rows - 1 For x = 1 To L - 1 vEANPesq = MSFlexGrid1.TextMatrix(x, 12) PesqProdFiscal Print #1, "[Produto" & Format(x, "000") & "]" Print #1, "cProd=" & vcProd Print #1, "cEAN=" & vcEAN Print #1, "xProd=" & vxProd Print #1, "NCM=" & vNCM Print #1, "CFOP=" & vCFOP Print #1, "uCom=" & vuCom Print #1, "qCom=" & Replace(CDbl(MSFlexGrid1.TextMatrix(x, 5)), ",", ".") Print #1, "vUnCom=" & Replace(CDbl(MSFlexGrid1.TextMatrix(x, 4)), ",", ".") Print #1, "vProd=" & Replace(CDbl(MSFlexGrid1.TextMatrix(x, 6)), ",", ".") Print #1, "cEANTrib=" & vEANTrib Print #1, "uTrib=" & vuTrib Print #1, "indTot=" & "1" vTotTribNFed = (CDbl(MSFlexGrid1.TextMatrix(x, 6)) * (vTribPorcNFed)) / 100 vTotTribNEst = (CDbl(MSFlexGrid1.TextMatrix(x, 6)) * (vTribPorcNEst)) / 100 '--------------------------------------------------- vTribNFedRodape = vTribNFedRodape + vTotTribNFed vTribNEstRodape = vTribNEstRodape + vTotTribNEst '-------------------------------------------------- vvTotTribProd = vTotTribNFed + vTotTribNEst vvTotTrib = vvTotTrib + vvTotTribProd Print #1, "vTotTrib=" & Replace(vvTotTribProd, ",", ".") '========= imposto [ICMSXXX) ================ Print #1, "[ICMS" & Format(x, "000") & "]" Print #1, "orig=" & 0 Print #1, "CSOSN=" & 102 '========= imposto [PISXXX] ================ Print #1, "[PIS" & Format(x, "000") & "]" Print #1, "CST=" & 49 Print #1, "vBC=" & "0.00" Print #1, "cPIS=" & "0.00" Print #1, "vPIS=" & "0.00" '========= imposto [COFINSXXX] ================ Print #1, "[COFINS" & Format(x, "000") & "]" Print #1, "CST=" & 49 Print #1, "vBC=" & "0.00" Print #1, "cCOFINS=" & "0.00" Print #1, "vCOFINS=" & "0.00" Next x '========= [TOTAL] ================ Print #1, "[Total]" Print #1, "vProd=" & Replace(Label13, ",", ".") Print #1, "vNF=" & Replace(Label13, ",", ".") Print #1, "vTotTrib=" & Replace(vvTotTrib, ",", ".") '========= [Transportador] ======== Print #1, "[Transportador]" Print #1, "modFrete=" & 9 '======== [PAGXXX] =========== Print #1, "[PAG001]" Print #1, "tpag=" & "01" Print #1, "vPag=" & Replace(Label4, ",", ".") Print #1, "vTroco=" & Replace(Label17, ",", ".") '======== [DadosAdicionais] =========== Print #1, "[DadosAdicionais]" Print #1, "infCpl=" & "Emitido por ME, EPP ou MEI optante do Simples Nacional não permite aproveitamento de credito fiscal de ICMS - Trib aprox R$:" & Format(vTribNFedRodape, "###,##0.00") & " Fed, R$:" & Format(vTribNEstRodape, "###,##0.00") & " Est e 0,00 Mun Fonte: IBPT 5oi7eW" & Space(7) & " (Emitido por [email protected])" Close #1 Open "c:\ACBrMonitorPLUS\ENT.TXT" For Output As #3 Print #3, "NFe.CriarNFe(" & Chr(34) & "c:\ACBrMonitorPLUS\NFe4.ini" & Chr(34) & ")" Close #3 - mais uma duvida, o campo vTRoco não aparece na prreview da nota conforme segue a imagem da NFCe 4.0 desde já, agradeço a atenção
  8. mt obrigado colega, para esclarecer duvidas: Lazarus (LCL) pode ser adicionado ao Delphi 10 Seattle XE10, através da opção GetIt Package Manager ? obs: Lazarus é o compilador (como era o clipper que gerava o arquivo.exe unindo todas as bibliotecas (dependência) e interpretando o codigo fonte) então compilando o projeto vou gerar o install (ACBrMonito-Instalador) ? desde já agradeço a atenção.
  9. agradeço o retorno e quero parabenizar o projeto.
  10. boa noite, colegas, depois de baixar o repositório SNV e compilar o projeto, aparece esse erro ao tentar carregar o modulo no delphi,, agradeço a atenção, segue algumas imagens do processo realizado.
  11. primeira duvida boa tarde, colega, gostaria de saber se o ACBrMonitorPLUS funciona com vb6, de forma que quando gerar um aquivo .TXT utilizando o VB6 com paramentos NFE.StatusServico, NFE.AssinarNFe, NFE.CriarNFe, NFE.ConsultarNFe( cChaveNFe ) e etc.. este exemplo é apenas demonstrativo para dar uma noção do que pretendo fazer no vb6 e gravar na pasta monitorada pelo ACBrMonitorPLUS-1.1.0.27 exemplo refente a uma consulta: NFE.ConsultarNFe( cChaveNFe ) Open vCaminho1 & "ENT.TXT" For Append As #1 Print #1, NFe13180112772694000164650010000003211949331784 Close #1 segunda divida para que eu possa manter o repositório do projeto atualizado por SVN UPDATE depois de instalar o Delphi XE10 Seattle instalar o TortoiseSVN-1.9.7.27907-win32-svn-1.9.7.msi criar a pasta para receber o projeto ACBr e excutar o update link usado para update e checkin : snv//svn.code.sf.net/p/acbr/code/trunck2 se tudo correr sem erros, minha pergunta é? posso usar o Delphi (opção de compilação) apenas para compilar as atualizações dos repositório e com isso continuar usando o ACBrMonitorPLUS sempre atualizado para a NFCe 4.0. agradeço desde já a atenção dos participantes do projeto
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.