adilsonpazzini

Muito Obrigado a ajuda Italo , Bom . ta assim . qndo envio o lote , CompNFSe.EnviarSincrono(strtoint(FormatFloat('#0000', iif(aUtilizar_lote, NotasFiscais.NumeroLote ,StrToInt(QNFSECab.fieldbyname('NUMNF').asstring)) )),false) To tendo que fazer esse procedimento abaixo pra carregar o xml da nfe . se nao fica zerado as inforamacoes abaixo .... if compNFSe.Configuracoes.WebServices.Provedor = pro4R then begin aCaminhoNFFe := compNFSe.NotasFiscais.Items[0].NomeArq; compNFSe.NotasFiscais.Clear; compNFSe.NotasFiscais.LoadFromFile(aCaminhoNFFe); end; aTEXTO := iif(compNFSe.Configuracoes.WebServices.Provedor = pro4R,compNFSe.WebServices.EnviarSincrono.Msg,compNFSe.WebServices.Enviar.Msg)+sLineBreak+ '[sTATUS]'+sLineBreak+ 'Arquivo='+compNFSe.NotasFiscais.Items[0].NomeArq+sLineBreak+ 'DtRetorno='+iif(compNFSe.WebServices.enviar.DataRecebimento = 0,'',DateTimeToStr(compNFSe.WebServices.enviar.DataRecebimento))+sLineBreak+ 'Protocolo='+compNFSe.WebServices.ConsLote.Protocolo+sLineBreak+ 'Situacao='+compNFSe.WebServices.ConsSitLote.Situacao+sLineBreak+ 'CodVerificacao='+compNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao+sLineBreak+ 'Numero='+compNFSe.NotasFiscais.Items[0].NFSe.numero+sLineBreak; Se nao tenho que fazer a consulta da NFSe por RPS , ai retorna esse xml abaixo , nao ficando completa as informacoes pra impressao da DANFE . <ConsultarNfseRpsResposta xmlns="http://www.abrasf.org.br/nfse.xsd"> <CompNfse> <Nfse versao="2.0"> <InfNfse Id=""> <Numero>6</Numero> <CodigoVerificacao>SFNKSS-000006/2013</CodigoVerificacao> <DataEmissao>2013-06-14T00:00:00</DataEmissao> <NfseSubstituida>0</NfseSubstituida> <OutrasInformacoes>adsr |SERV | 100,00| 1,00;;COND.PAGTO:00-A VISTAORIGEM:01 OS/PED:043470 VENDEDOR:V00003</OutrasInformacoes> <ValoresNfse> <BaseCalculo>100.00</BaseCalculo> <Aliquota>3.00</Aliquota> <ValorIss>3.00</ValorIss> <ValorLiquidoNfse>100.00</ValorLiquidoNfse> </ValoresNfse> <ValorCredito>0.00</ValorCredito> <EnderecoPrestadorServico> <Endereco>AVENIDA ANGELO POLES</Endereco> <Numero>558</Numero> <Complemento /> <Bairro>JARDIM TOKIO</Bairro> <CodigoMunicipio>3554003</CodigoMunicipio> <Uf>SP</Uf> <CodigoPais>0</CodigoPais> <Cep>18279586</Cep> </EnderecoPrestadorServico> <OrgaoGerador> <CodigoMunicipio>3127701</CodigoMunicipio> <Uf>SP</Uf> </OrgaoGerador> </InfNfse> <Signature xmlns="http://www.w3.org/2000/09/xmldsig#" Id=""> <SignedInfo Id=""> <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"> </CanonicalizationMethod> <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"> <HMACOutputLength>0</HMACOutputLength> </SignatureMethod> <Reference Id="" URI="#61" Type=""> <Transforms> <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"> </Transform> <Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"> </Transform> </Transforms> <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"> </DigestMethod> <DigestValue>bCbRRQ8o4F/ExNN2Jwk49b5ZBFs=</DigestValue> </Reference> </SignedInfo> <SignatureValue Id=""> </SignatureValue> <KeyInfo Id=""> <X509Data> <X509Certificate xmlns="http://www.w3.org/2000/09/xmldsig#">MIIIQTCCBimgAwIBAgIQC+GnoXnvm554BP7OAjAgWTANBgkqhkiG9w0BAQsFADB4MQswCQYDVQQGEwJCUjETMBEGA1UEChMKSUNQLUJyYXNpbDE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRwwGgYDVQQDExNBQyBDZXJ0aXNpZ24gUkZCIEc0MB4XDTEyMDgwMzAwMDAwMFoXDTEzMDgwMjIzNTk1OVowgegxCzAJBgNVBAYTAkJSMRMwEQYDVQQKFApJQ1AtQnJhc2lsMQswCQYDVQQIEwJTUDEVMBMGA1UEBxQMSVRBUEVUSU5JTkdBMTYwNAYDVQQLFC1TZWNyZXRhcmlhIGRhIFJlY2VpdGEgRmVkZXJhbCBkbyBCcmFzaWwgLSBSRkIxFjAUBgNVBAsUDVJGQiBlLUNOUEogQTExIjAgBgNVBAsUGUF1dGVudGljYWRvIHBvciBBUiBGQUNFU1AxLDAqBgNVBAMTI0lUQVVUTyBWRUlDVUxPUyBMVERBOjcyODgzMDUxMDAwMTEwMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAmRI4M/CoIURJH7KFnJVbMjFFgBykDIn62QVQPOBMfWGUbTfgAQ+fZUMXB2reOUoeaZaADfCZi4DP66OirE8od8f35AjuTQfPU5g4SNAvI856YiFoAn5sERSJtYwFVw417DBuCmBfnA6UdH6tlGlQ0KVYWlrFCONebwB3DL1LxjNInOSXQwbuSEHlZjjzVexfkTJVCpdks2xxEk41s3juh1xzCc4ffYhSDJLEZA3Mbdc8vodFAMVf6XUhqtBrhY+uuIqEr2Vwcww8XjGreagwu19bWDMMJ+8csVClMrzPAEgDgOKFBK6Db3DMs4MbNkhMFFgPoZYaGfUQ1y7hMMpDdQIDAQABo4IDVDCCA1AwgbkGA1UdEQSBsTCBrqA4BgVgTAEDBKAvBC0wODAyMTk0ODk0NDY1OTE2ODY4MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDCgIQYFYEwBAwKgGAQWTUFOVUVMIEJFUk5BUkRPIEFGT05TT6AZBgVgTAEDA6AQBA43Mjg4MzA1MTAwMDExMKAXBgVgTAEDB6AOBAwwMDAwMDAwMDAwMDCBG2FkbWluaXN0cmFjYW9AaXRhdXRvLmNvbS5icjAJBgNVHRMEAjAAMB8GA1UdIwQYMBaAFC6R6tZt5bJZgtw4hSl2NBZWPNA+MA4GA1UdDwEB/wQEAwIF4DB/BgNVHSAEeDB2MHQGBmBMAQIBDDBqMGgGCCsGAQUFBwIBFlxodHRwOi8vaWNwLWJyYXNpbC5jZXJ0aXNpZ24uY29tLmJyL3JlcG9zaXRvcmlvL2RwYy9BQ19DZXJ0aXNpZ25fUkZCL0RQQ19BQ19DZXJ0aXNpZ25fUkZCLnBkZjCCARYGA1UdHwSCAQ0wggEJMFegVaBThlFodHRwOi8vaWNwLWJyYXNpbC5jZXJ0aXNpZ24uY29tLmJyL3JlcG9zaXRvcmlvL2xjci9BQ0NlcnRpc2lnblJGQkc0L0xhdGVzdENSTC5jcmwwVqBUoFKGUGh0dHA6Ly9pY3AtYnJhc2lsLm91dHJhbGNyLmNvbS5ici9yZXBvc2l0b3Jpby9sY3IvQUNDZXJ0aXNpZ25SRkJHNC9MYXRlc3RDUkwuY3JsMFagVKBShlBodHRwOi8vcmVwb3NpdG9yaW8uaWNwYnJhc2lsLmdvdi5ici9sY3IvQ2VydGlzaWduL0FDQ2VydGlzaWduUkZCRzQvTGF0ZXN0Q1JMLmNybDAdBgNVHSUEFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwgZsGCCsGAQUFBwEBBIGOMIGLMF8GCCsGAQUFBzAChlNodHRwOi8vaWNwLWJyYXNpbC5jZXJ0aXNpZ24uY29tLmJyL3JlcG9zaXRvcmlvL2NlcnRpZmljYWRvcy9BQ19DZXJ0aXNpZ25fUkZCX0c0LnA3YzAoBggrBgEFBQcwAYYcaHR0cDovL29jc3AuY2VydGlzaWduLmNvbS5icjANBgkqhkiG9w0BAQsFAAOCAgEAbLUYu2rb2kPV3rebqVlSuJ80TFxwcJ1mWw/NGOE/HJuDycfR3B0sEzsj3zMXp7RiG639wrSvRKenIBQAZqlBuV42e8/rGG3dpRYhh73Alw+8t2bdC9NqbXSWiVkROoEJrrSxe09W32ZzKmUGIDUhAH49vairYduo2J2ULSnNhTaJvDh5TIvyEmluz5q/c9hnaE7USQ3nwPilystUOKZikYwkBOemKfkTLzxrmib/H3UO10UfyZGwCj5s7cksQH59NGCthxrUEAkQ9D8RodCx0yZj9pukgOH0hlt0zCIawA7m/ntzDh+ZbEzODA8BRPX5i7r2mIHUBX+DvliYiI2RfZGCEnw9ql/kFqtRiKirK+iv6TCvnQBtuzH9gHQ87beB3N9cSBEKUXLRHa5zdURoQFEhG3ROTeAy0LfUXnFhAODt+7kA2qMICWCAYmPuiLtmR3qKeDyjWudUYfBZfIzZqD3foDXSaO8j07no2x9rbVY9yoXPO08DU3XEZisFPyTrjOkU7wm4GkVyiHxVHSCRNbqdDsHw58bUKJV2yHjymvA+ctXb8ZYbcl6MpJVu9uNMmeYepAIDU6xBOARAqYhMtG9m12z8jytpKi/52a5HDoRltf1tv+XhctR6SRT2GDC8DYD0ejXh2I/nOeBdHA/huI1YyfmF0kIv8JEi1Mej6Xg=</X509Certificate> </X509Data> </KeyInfo> </Signature> </Nfse> </CompNfse> <ListaMensagemRetorno> </ListaMensagemRetorno> </ConsultarNfseRpsResposta> Não sei se to fazendo algo errado . é que antes que era ginfez funcionava . Agradeço Adilson Pazzini

Seguinte . pnfsNFSeG.pas foi incluido a tag <CpfCnpj> para Cancelamento pro Provedor 4R . pnfsNFSeW.pas foi incluido a tag <CodigoTributacaoMunicipal> e eliminado a tag <ResponsavelRetencao> qndo valor da tag <IssRetido> for igual a "2-Não" . com essas opcoes eu consegui enviar o Lote com sucesso . ref ao cancelamento . inclui o CpfCnpj mais ainda ta indo o meio das tag´s sem valor , vou tentar descobrir aqui pra tentar ajustar. Desde ja agradeço . AdilsoN pAZZINI . pnfsNFSeG.pas pnfsNFSeW.pas

Italo . consegui achar aqui onde ajustar .. ja to arrumando .. jaja mando a correcao aqui . Obrigado ;

Atualizei aqui Italo . mais continua gerando sem . vou anexar os xml´s gerado pra analise . veja no que pode me ajudar . ate acompanhei pela unit pnfsNFSeW e realmente ela chega a passar o parametro la . mais no xml nao ta indo ... Agradeço Adilson 48-env-lotS.xml 48-lista-nfse.xml 65342-Rps.xml 48-env-lotS.xml 48-lista-nfse.xml 65342-Rps.xml

Ate assim meu componente ta atualizado . mais vou atualizar denovo , por via das duvidas , e testar . ai posto o xml gerado aqui . pra analise . Muito Obrigado pela força Adilson

Italo . to tentando aqui . mais nao to conseguindo . se tem como me ajudar , preciso saber qual é a Unit que pega as informacoes do componente e gera o xml , pra eu ver o que consigo fazer pra ajustar os campos com problemas ... tipo que nem o campo <CodigoTributacaoMunicipal> esta sendo preenchido pelo componente , porem o campo nao vai no xml pro webserver da 4r .. ai queria saber se da pra eu tentar ver onde ta o problema . Desde ja agradeço Adilson Pazzini .

Bom vamos la . a quem puder ajudar ... é o que ta faltando .. Estou com dois problemas pra finalizar aqui . ja ajustei direto no xml e consegui passar , mais pelo componente . nao to sabendo ajustar . Ref ao campo ResponsavelRetencao , pelo que vi no manual deles . deveria so ser informado se o campo IssRetido for igual a "1-Sim" no caso se for "2-Não" ele nao fala se deveria ser informado o que lancei direto foi o campo assim <ResponsavelRetencao></ResponsavelRetencao> sem nada entre as tags pelo site passou , mais ja pelo componente nao passou pela validacao do xml ... Outro problema é ref ao campo - <CodigoTributacaoMunicipal> , que qndo gerado o RPS essa tag nao se encontra la dentro . ai me retorna com erro da falta desse campo . <EnviarLoteRpsSincronoResposta xmlns="http://www.abrasf.org.br/nfse.xsd"> <NumeroLote>32</NumeroLote> <DataRecebimento>2013-06-13T00:00:00</DataRecebimento> <Protocolo>15747</Protocolo> <ListaMensagemRetorno> <MensagemRetorno> <Codigo>E202</Codigo> <Mensagem>Codigo de tributacao nao informado</Mensagem> <Correcao>Informe o codigo de tributacao referente aos servicos prestados</Correcao> </MensagemRetorno> <MensagemRetorno> <Codigo>E327</Codigo> <Mensagem>O regime de tributacao informado difere do registrado na Prefeitura.</Mensagem> <Correcao>Procure a Prefeitura para atualizar o regime de tributacao no cadastro do contribuinte.</Correcao> </MensagemRetorno> <MensagemRetorno> <Codigo>E282</Codigo> <Mensagem>Responsavel/Retentor informado indevido.</Mensagem> <Correcao>O campo Responsavel/Retentor somente devera ser preenchido quando o ISSQN for retido na fonte.</Correcao> </MensagemRetorno> </ListaMensagemRetorno> <ListaMensagemRetornoLote> </ListaMensagemRetornoLote> </EnviarLoteRpsSincronoResposta> Vou postar o xml que consegui passar , e o xml com problema para analise . Desde ja agradeço a quem possa ajudar . So falta isso pra resolver . Adilson Pazzini . XML_COM_CORRETO.txt XML_COM_ERRO.txt

Pessoal por favor , se puderem atualizem o nfse e teste para o provedor 4R , aqui ja to conseguindo enviar o lote . como Sincrono ... por favor testem e se puder postem os problemas . pra gente tentar resolver . Obrigado .

Italo . ajustei uma configuracao pra envio em modo assincrono pro 4R q tava errado . da pra atualizar . aqui agora to conseguindo enviar o lote ... conforme for testando e achando mais algo posto aqui . ACBrProvedor4R.pas ACBrProvedor4R.pas

Segue anexado pra atualizacao . Adamantina 3500105 pnfsConversao.pas ACBrProvedor4R.pas pnfsConversao.pas ACBrProvedor4R.pas

se tem ai o nome da cidade que vai pra acesso no site? é adamantina mesmo ?

valeu Italo . Adilson

pnfsConversao.pas , Italo . queria agradescer a atualizacao feita . so o seguinte . acho que na hora que ajustei acabei errando nas virgulas , tem como vc reajustar por favor e atualizar novamente . De 3127701, // Governador Valadares/MG 3510203, // Capão Bonito/SP 3523503 // Itatinga/SP 3554003, // Tatui/SP : Provedor := '4R'; Para 3127701, // Governador Valadares/MG 3510203, // Capão Bonito/SP 3523503, // Itatinga/SP 3554003 // Tatui/SP : Provedor := '4R'; Agradeço . Adilson Pazzini

Italo enviei os arquivos anexo alterando o post anterior e anexando os mesmos ; Obrigado . Adilson

Bom dia pessoal , ref ao componente , tem como alterar o provedor da cidade de Tatui - SP Codigo IBGE-3554003 para o Provedor 4R , pois o mesmo não pertence mais a GINFES . abaixo segue anexo os dados do webserver para 4R , ref a tatui . http://www.4rsistemas.com.br/wpprodutosdetalhes.aspx?24 Outra coisa que vi tambem era ref a cidade governadorvaladares , parece que no site ta como valadares .... Desde ja agradeço . Adilson Pazzini pnfsConversao.pas ACBrProvedor4R.pas

pela lei quem vai multar o estabelecimentoé o PROCON , pois fere a lei do consumidor .

Agradeço a dica dos colegas mais . ref ao usuario , esta tudo certo , o problema é que nas funcoes do acbr pra pasta SCHEMAS tem a funcao PathDelimiter que força a criação do '\' caso nao exista , como linux , gera no inverso , entao nao ta dando certo por isso ... Adilson Pazzini ,

Galera , queria abradecer a todos , pois consegui agora com as dicas do pessoal , criar um exe que se autoatualiza , so que agora fiquei com duvidas ref a parte da Pasta Schemas , so pra saber como vc´s fazer , vc´s criam a pasta schemas pra todos os terminais , ou fica centralizado num servidor mesmo e seta pro servidor a pasta schemas ? Desde ja agradeço .

Testei da forma que vc me falou . mais nao deu certo nao , pois o componente inclui a barra '\' automaticamente no final , sendo que no caso onde fica a pasta schemas esta no linux q no caso a barra seria '/' , ai acabou nao dando certo ... Se alguem souber mais algo agradeço . Adilson

hum . legal , nunca tinha tentando dessa forma , mais so pra deixar registrado , ref a permissao , esta com total direito , vou tentar como vc colocou , o unico problema q meus schemas estao em armazenados em Linux , acho q ficaria assim 192.168.1.100:/programas/schemas/ , vou tentar e posto aqui .. Obrigado .. Adilson

no Gerar e enviar , na verdade como foi alterado . pra testes , qualquer um poderia ... , pois ai estou gerando o Lote , limpando o componente e enviando no modo Sincrono . mais que nem falei .nao deu certo . Adilson

Top , alguem ja passou por isso , o que tive que fazer pra funcionar , foi capiturar a pasta schemas em um drive , utilizando o comando net use m: \\server\schemas , pra poder ai sim setar o diretorio pro componente , se nao for dessa forma nao da certo , se seta-se \\server\schemas direto no componente ,que nem passei da o erro [Error: the schema itself is not valid .] Desde ja agradeço Adilson

Pode ser por utilizar o mesmo componente pra gerar e enviar a NFe , pois imagina se dois usuarios que estao tentando criar e enviar suas notas ao mesmo tempo , talvez um comando como por exemplo acbrnfe.notasfiscais.clear; , mata-se o carregamento do outro usuario , talvez se fosse criado a a classe da nfe em tempo de execução , mais tambem vejo que o TCP processa em fila , igual o arquivo , o que nunca testei foi ver se na hora da resposta cai pro IP que solicitou , mais tambem ja tive problemas de pegar resposta de outro IP ,,, vou tambem aqui fazer mais testes pra ver se consigo produzir esse mesmo problema .

Boa pessoal , alguem sabe me dizer porque qndo seto a pasta schemas como \\camihno\schemas\ o sistema devolve com o erro Error: the schema itself is not valid . So fuciona se eu setar com um caminho com driver , exemplo m:\schemas etc ... alguem sabe porque ? Desde ja agradeço . Adilson PAZZINI

Valeu velho , seguinte . se tem como passar mais ou menos qnto vc pagou pra uma licença , so pra ter uma base de valor .... vou dar um molhada nesse tambem . muito obrigado .