Zottis

Bom dia, estou tentando ler o XML convertendo dados para os tipos esperados, usando as funções de conversão, porém, da erro: [dcc32 Error] uESocial.pas(791): E2033 Types of actual and formal var parameters must be identical evtInfoEmpregador.InfoEmpregador.InfoCadastro.IndConstr := eSStrToIndConstrutora(vLeitor.rCampo(tcStr, 'indConstr')); function eSStrToIndConstrutora(var ok: boolean; const s: string): TpIndConstr; begin result := TpIndConstr( StrToEnumerado2(ok , s, TGenericosString0_1 ) ); end; pesquisando na internet, só deu certo se tiro a palavra reservada "var" da function e passo o parâmetro "true" na chamada da função: function eSStrToIndConstrutora(ok: boolean; const s: string): TpIndConstr; begin result := TpIndConstr( StrToEnumerado2(ok , s, TGenericosString0_1 ) ); end; evtInfoEmpregador.InfoEmpregador.InfoCadastro.IndConstr := eSStrToIndConstrutora(True,vLeitor.rCampo(tcStr, 'indConstr')); alguém sabe como resolver sem mexer no código da classe ACBr?

Ok, Italo, concordo que deveria ter aberto o questionamento em outro Post, acho que é o Stresse do final de ano. Ta Todo mundo querendo as coisas que ficamos no modo automático. Mais uma vez, me desculpe. Quanto ao HTTP 500 é da Prefeitura de Fortaleza em ambiente de Homologação, acredito que não esteja liberado esse ambiente, mesmo tendo no site deles, a opção de pedir a liberação, porém, não funciona.

Valeu @Arce, ajudou muito.

Obrigado @Arce, sem querer abusar(já abusando), tem algum modelo ou exemplo? achei o ItensLoteEvento que tem o método carregarArquivo, porém, não sei se da certo.

Oi Italo, bom dia, desculpe pela falha. mas se reparar, mandei o XML em anexo, o que colei, foi o retorno, e também postei que o XML que me passaram(de envio) estava errado, por isso dava o problema relatado, agradeço a disponibilidade da ajuda. Valeu.

Boa tarde, aqui na empresa, eles querem manter o padrão do sistema criar os XMLs, porem, não encontro em nenhum lugar um LoadFromFile para poder carregar o componente via um xml já pronto(Igual a NFe). Alguém saberia como fazer? desde já agradeço.

Desculpem, a tag estava errada, peguei o xml errado. porém, agora da erro HTTP 500 em ambiente de Homologação.

Também, para o envio da cidade de Fortaleza, esta dando erro na validação da data de emissão. aqui, fazemos o XML por fora e faço um loadFromFile desse arquivo. mas quando ele entra na rotina de validar, analizando o debug, o campo dataEmissão, só fica com a tag inicial. o xml que envio esta em anexo e o que chega na validação é:(peguei via Debug) <?xml version="1.0" encoding="UTF-8"?><ns3:EnviarLoteRpsEnvio xmlns:ns3="http://www.ginfes.com.br/servico_enviar_lote_rps_envio_v03.xsd" xmlns:ns4="http://www.ginfes.com.br/tipos_v03.xsd"><ns3:LoteRps Id="1"><ns4:NumeroLote>1</ns4:NumeroLote><ns4:Cnpj>00212872000113</ns4:Cnpj><ns4:InscricaoMunicipal>586936-6</ns4:InscricaoMunicipal><ns4:QuantidadeRps>1</ns4:QuantidadeRps><ns4:ListaRps><ns4:Rps><ns4:InfRps Id="12017"><ns4:IdentificacaoRps><ns4:Numero>1</ns4:Numero><ns4:Serie>2017</ns4:Serie><ns4:Tipo>1</ns4:Tipo></ns4:IdentificacaoRps><ns4:DataEmissao/><ns4:NaturezaOperacao>1</ns4:NaturezaOperacao><ns4:OptanteSimplesNacional>1</ns4:OptanteSimplesNacional><ns4:IncentivadorCultural>1</ns4:IncentivadorCultural><ns4:Status>1</ns4:Status><ns4:Servico><ns4:Valores><ns4:ValorServicos>5418.58</ns4:ValorServicos><ns4:ValorDeducoes>0.00</ns4:ValorDeducoes><ns4:ValorPis>0.00</ns4:ValorPis><ns4:ValorCofins>0.00</ns4:ValorCofins><ns4:ValorInss>0.00</ns4:ValorInss><ns4:ValorIr>0.00</ns4:ValorIr><ns4:ValorCsll>0.00</ns4:ValorCsll><ns4:IssRetido>2</ns4:IssRetido><ns4:ValorIss>162.56</ns4:ValorIss><ns4:BaseCalculo>5418.58</ns4:BaseCalculo><ns4:ValorLiquidoNfse>5418.58</ns4:ValorLiquidoNfse></ns4:Valores><ns4:ItemListaServico>09.99</ns4:ItemListaServico><ns4:CodigoTributacaoMunicipio>999999999</ns4:CodigoTributacaoMunicipio><ns4:Discriminacao>texto</ns4:Discriminacao><ns4:CodigoMunicipio>2304400</ns4:CodigoMunicipio></ns4:Servico><ns4:Prestador><ns4:Cnpj>00212872000113</ns4:Cnpj><ns4:InscricaoMunicipal>999999</ns4:InscricaoMunicipal></ns4:Prestador><ns4:Tomador><ns4:RazaoSocial>RAZAO SOCIAL</ns4:RazaoSocial><ns4:Endereco><ns4:Endereco>AV PRESIDENTE CASTELO BRANCO</ns4:Endereco><ns4:Numero>999</ns4:Numero><ns4:Complemento>APARTAMENTO 302</ns4:Complemento><ns4:Bairro>MOURA BRASIL</ns4:Bairro><ns4:CodigoMunicipio>2304400</ns4:CodigoMunicipio><ns4:Uf>CE</ns4:Uf><ns4:Cep>60010000</ns4:Cep></ns4:Endereco></ns4:Tomador></ns4:InfRps></ns4:Rps></ns4:ListaRps></ns3:LoteRps><Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo>< 12017-rps.xml

Oi Italo, boa tarde, segue: <CancelarNfseResponse xmlns="http://www.issnetonline.com.br/webservice/nfd"> <CancelarNfseResult> <CancelarNfseResposta xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/servico_cancelar_nfse_resposta.xsd"> <ListaMensagemRetorno> <MensagemRetorno> <Codigo xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd">E079 </Codigo> <Mensagem xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd"> Essa NFS-e ja esta cancelada. </Mensagem> <Correcao xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd"> Confira e informe novamente os dados da NFS-e que deseja cancelar. </Correcao> </MensagemRetorno> </ListaMensagemRetorno> </CancelarNfseResposta> </CancelarNfseResult> </CancelarNfseResponse>

Boa tarde, estou implementando a NFSe da Cidade de Sidrolândia, mas na hora de cancelar, não retorna mensagem alguma, debugando, encontrei o problema na function: unit ACBrNFSeWebServices; function TNFSeCancelarNfse.TratarResposta: Boolean; onde retorna false, mesmo tendo um retorno. corrigi da seguinte forma: // Result := (FDataHora > 0) or (RetCancNFSe.InfCanc.Sucesso='S') or (UpperCase(RetCancNFSe.InfCanc.Sucesso)='TRUE');//Original Result := (FDataHora > 0) or (RetCancNFSe.InfCanc.Sucesso='S') or (UpperCase(RetCancNFSe.InfCanc.Sucesso)='TRUE') or(FaMsg <> '');//Zottis 14/12/2017 Essa correção seria a correta?

Consegui fazer funcionar, haviam me passado o CNPJ errado. ideTransmissor: xxxxxxxx0001xx cdStatus: 0 retornoEventos Evento Id: *ideContrib ideContrib: 1 NrInsc: 80109663 *dadosRecepcaoEvento dhProcessamento 21/11/2017 tipoEvento 1000 IdEvento ID1801096630000002017112109442900001 Hash RZozbgsWKwNR1nUpunGHYxv8ST+miS/5YCw0WAF26nM= *Status cdRetorno 0 descRetorno SUCESSO *dadosReciboEntrega numeroRecibo **Ocorrencias

Bom dia, o meu acredito que esta, mas estou recebendo a mensagem "Deve ser utilizado certificado digital do tipo e-CNPJ ou e-PJ cujo CNPJ base seja o mesmo do contribuinte responsável pela informação, ou do tipo e-CPF ou e-PF cujo CPF pertença ao representante legal do contribuinte ou qualquer certificado que pertença a um procurador devidamente habilitado no sistema de Procuração Eletrônica da RFB." e eu não entendi essa mensagem: o certificado é do CNPJ do ID <Reinf xmlns="http://www.reinf.esocial.gov.br/schemas/envioLoteEventos/v1_02_00"><loteEventos><evento id="ID1829820750001802017112109122300001"> <Reinf ..... no caso, esse certificado deve ser de quem? da pessoa responsável(cpfCtt)?

testei utilizando o Web Service do Paraná e também deu certo.

Já estou utilizando a 1.2, e esta comunicando. Qual estado? utilizei a UF de Santa Catarina.

Resolvi a questão acima, utilizando o comando FreeAndNil(FACBrReinf); Outra coisa, consegui comunicação com a versão 1.2 porém, retorna: "Deve ser utilizado certificado digital do tipo e-CNPJ ou e-PJ cujo CNPJ base seja o mesmo do contribuinte responsável pela informação, ou do tipo e-CPF ou e-PF cujo CPF pertença ao representante legal do contribuinte ou qualquer certificado que pertença a um procurador devidamente habilitado no sistema de Procuração Eletrônica da RFB. tipo: 1" Usei o certificado da empresa que usa nosso sistema para enviar e assinar, no cpfctt usei o meu cpf, o da empresa, do certificado, porém nada. Alguém sabe de quem seria o e-cpf ou e_cnpj que devo utilizar?

Bom dia, ainda estou fazendo testes para tentar ajudar no projeto, e encontrei uma situação: na primeira vez que envio, me retorna a mensagem conforme relatado acima "A estrutura do arquivo XML esta em desconformidade com o esquema XSD. O namespace http://www.reinf.esocial.gov.br/schemas/envioLoteEventos/v1_02_00 informado no documento XML não é um namespace reconhecido." Porém, na segunda vez que envio, da erro na parte: unit ACBrDFePoliCryp; function TDFeSSLXmlSignPoliCryp.Assinar .... XmlCryp := CoXmlCryp.Create; XmlAss := XmlCryp.AssinarXml(1, AXml, infElement, FpDFeSSL.NumeroSerie, FpDFeSSL.ArquivoPFX, FpDFeSSL.Senha); if ( XmlAss = '' ) then//Aqui Retorna Vazio Será que a DLL PoliCryp não esta ficando instanciada?

Através do debug, achei algumas inconsistências e caso ajude, são: na unit ACBrDFeWebService; na procedure TDFeWebService.EnviarDados; tem uma validação que sempre retorna false, pois os campos sempre estão vazios, troquei e deu certo. //Aqui sempre vazio TemCertificadoConfigurado := (FPConfiguracoes.Certificados.NumeroSerie <> '') or (FPConfiguracoes.Certificados.DadosPFX <> '') or (FPConfiguracoes.Certificados.ArquivoPFX <> ''); //Zottis 11/2017 //Aqui da certo TemCertificadoConfigurado := (FPDFeOwner.SSL.CertNumeroSerie <> '') or (FPDFeOwner.SSL.NumeroSerie <> '') or (FPDFeOwner.SSL.DadosPFX <> '') or (FPDFeOwner.SSL.ArquivoPFX <> ''); if TemCertificadoConfigurado then... na unit ACBrReinfEventosBase; na procedure TEventoReinf.SetSchema(ASchema: TReinfSchema); na parte: EhValido := SSL.Validar(string(AXML), Configuracoes.Arquivos.PathSchemas + AEvento + '.xsd', Erro);//sempre retorna false Forcei para true e da certo EhValido := true; Após apanhar um monte, consegui comunicação porém com a versão 1_01_01, deu erro dizendo que deveria usar a 1.02, mudei a constante REINF_VERSAO para 1_02_00, e da o seguinte erro: <status><cdStatus>1</cdStatus><descRetorno>ERRO</descRetorno><dadosRegistroOcorrenciaLote><ocorrencias><tipo>1</tipo><codigo>MS0030</codigo><descricao>A estrutura do arquivo XML esta em desconformidade com o esquema XSD. O namespace http://www.reinf.esocial.gov.br/schemas/envioLoteEventos/v1_02_00 informado no documento XML não é um namespace reconhecido.</descricao> Alguém sabe que fazer?

Bom dia. Consegui avançar um pouco, ele chega até a parte de validar o Evento: TEventoReinf.ValidarEventos(AEvento: String); e da o erro de Caracteres inválidos no caminho, mas não achei nada de anormal, alguém sabe o que acontece? O XML que ele valida esta em anexo. evtInfoContribuinte-v1_01_01_error_meu.xml

Obrigado Juliomar, aguardarei.

Boa tarde Pessoal, estou perdido na utilização do Reinf, Pelo que entendi, eu devo atualizar o ACBrDFe, mas não entendi se é pelo SVN ou pelo arquivo .rar e na hora de recompilar o ACBr_DFeComum, da esse erro: [dcc32 Fatal Error] PoliCryp_TLB.pas(45): F1026 File not found: 'D:\componentes_Instalados\ACBR2\Pacotes\Delphi\ACBrDFe\mscorlib_TLB.dcu'

Oi Renato, fiz conforme orientou, mas ainda esta dando o erro abaixo:

alguém teria um XML de exemplo?

Bom dia, estou testando também seu componente, porém me da a mensagem em anexo, a configuração deixei igual ao colega Juuninho (AACBreSocial.Configuracoes.Geral.SSLLib := libCustom;AACBreSocial.Configuracoes.Geral.SSLCryptLib := cryCapicom;AACBreSocial.Configuracoes.Geral.SSLHttpLib := httpWinINet;AACBreSocial.Configuracoes.Geral.SSLXmlSignLib := xsPoliCryp;) poderia me ajudar?

Obrigado Italo. Valeu

Bom dia, estou iniciando um projeto de emissão para a cidade de Fortaleza, o Provedor é ISSFortaleza, mas não encontrei os schemas na pasta, e no Demo tem a cidade de Fortaleza, alguém sabe quais usar? desde já agradeço