[ERRO: Erro Interno: 0 Erro HTTP: 500 NFCe 4.00]

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.

[filtro de tópicos por data]

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

[ACBrmonitorPLUS não executa no lazarus pascal]

13 minutos atrás, Castro Castro disse:

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.

 

[ACBrmonitorPLUS não executa no lazarus pascal]

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.

[invalid integer vb6 com acbr monitor]

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)  .

 

[invalid integer vb6 com acbr monitor]

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>

[invalid integer vb6 com acbr monitor]

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 

[invalid integer vb6 com acbr monitor]

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

[Class TJvWinzard not found erro ao carregar]

Em 20/02/2018 at 07:42, Daniel Simoes disse:

Você deve instalar a Jedi VCL

Você precisa recompilar o instalador por algum motivo? Note que o .exe do mesmo está na raiz da pasta do Projeto..

obrigado

[ACBrNFe, ACBrMonitorPLUS com vb6]

1 hora atrás, Castro Castro disse:

1. agradeço o retorno e quero parabenizar o projeto.

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.

 

 

[ACBrNFe, ACBrMonitorPLUS com vb6]

1. agradeço o retorno e quero parabenizar o projeto.

[Class TJvWinzard not found erro ao carregar]

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.

[ACBrNFe, ACBrMonitorPLUS com vb6]

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