Flávio Nascimento

Bom dia Ítalo, Verificando aqui, na unit ACBrMDFe e as que são chamadas através dela estão como nos fontes do ACBr mesmo. Mas vou verificar a possibilidade de compartilhar nossas alterações. Quanto ao prolema, consegui resolver, estava informando incorretamente a tpComp e vComp e passei a informar: compCollectionItem := detEvento.infPag.Items[0].Comp.New; compCollectionItem.tpComp := StrToTComp(ok, 'valor'); compCollectionItem.vComp := valor; Obrigado

Boa noite Italo, A empresa já desenvolve dessa forma a um bom tempo pois ela faz algumas adaptações quando acha necessário. Eu só estou dando continuidade com essa nota técnica. Infelizmente não posso usar diretamente os componentes.

Delphi seattle.

Boa tarde Juliana, Não, só utilizamos os fontes mesmo e geramos a nossa própria DLL, por isso não temos esse log. Att, Flávio

Boa tarde Ítalo, A gente não usa o programa do ACBr, nós utilizamos nosso sistema chamando a DLL com os métodos. Os fontes foram atualizados hoje mas esse erro persiste. Imaginei que pudesse ser algo relacionado a chamada do método ou a forma como preencho o evento.

Boa tarde, Implementando o evento de pagamento de operação de transporte, estou tendo o seguinte erro no retorno: cStat=[9999] - Falha mensagem de retorno WebService -> Falha na validação dos dados do Evento: Element ''{http://www.portalfiscal.inf.br/mdfe}vContrato'' is unexpected according to content model of parent element ''{http://www.portalfiscal.inf.br/mdfe}infPag''. Expecting: {http://www.portalfiscal.inf.br/mdfe}Comp. Isso me parece estar relacionado com os schemas mas foram atualizados. Essa é a forma que estou usando o método: detEvento.descEvento := Evento; detEvento.infViagens.qtdViagens := cdsEvento.FieldByName('qt_viagens').AsInteger; detEvento.infViagens.nroViagem := cdsEvento.FieldByName('viagem').AsInteger; detEvento.descEvento := cdsEvento.FieldByName('evento').AsString; detEvento.infPag.New; detEvento.infPag.Items.xNome := cdsEvento.FieldByName('Nome').AsString detEvento.infPag.Items.CNPJCPF := cdsEvento.FieldByName('cnpj').AsString; detEvento.infPag.Items.vContrato := cdsEvento.FieldByName('vcontrato').AsFloat; detEvento.infPag.Items.indPag := StrToTIndPag(ok, cdsEvento.FieldByName('indpag').asString); detEvento.infPag.Items.vContrato := cdsEvento.FieldByName('vcontrato').AsFloat; detEvento.infPag.Items.infBanc.codBanco := cdsEvento.FieldByName('codBanco').asString; detEvento.infPag.Items.infBanc.codAgencia := cdsEvento.FieldByName('codAgencia').asString; detEvento.infPag.Items.infBanc.CNPJIPEF := cdsEvento.FieldByName('CNPJIPEF').asString; detEvento.infPag.Items.infPrazo.New; detEvento.infPag.Items.infPrazo[j].nParcela := cdsEvento.FieldByName('nParcela').AsInteger; detEvento.infPag.Items.infPrazo[j].vParcela := cdsEvento.FieldByName('vParcela').AsFloat; detEvento.infPag.Items.infPrazo[j].dVenc := cdsEvento.FieldByName('dVenc').AsDateTime; Result := MDFeEnviarEvento(AXML_mdfe, AIdLote, ANSeqEvento, ADt_Evento, tePagamentoOperacao, detEvento, AUF_empresa, ADirPadrao, AAmbiente, ACertificado, AContingencia, AVersaoMDFe, ConfigProtocolo); Alguém teve esse mesmo problema? xmdNotaTecnica.xml

Muito obrigado Ítalo

Boa tarde, Implementando produto predominante no MDFe me deparei com o erro "Erro: 12029 - Conexão com o Servidor falhou". Percebi que o problema ocorre até mesmo tentando conectar a aplicação com o webservice mas somente em homologação. Alterei as configurações SSL para TLS e alterei as configurações do Internet Explorar como vi em alguns fóruns mas o problema persiste. Alguém mais já passou por esse problema recentemente?

Bom dia, Um de nosso clientes tentou emitir uma NFe Complementar com csosn 0900, onde é destacado fundo de combate à pobreza com valores zerados mas foi retornado pelo webservice o erro: "1871 - Element '{http://www.portalfiscal.inf.br/nfe}vBCFCPST': This element is not expected. Expected is one of ( {http://www.portalfiscal.inf.br/nfe}modBC, {http://www.portalfiscal.inf.br/nfe}modBCST, {http://www.portalfiscal.inf.br/nfe}pCredSN )." Em simulação no emissor gratuito nas mesmas condições foi possível a emissão conforme anexo. Recebemos a informação de que mesmo que os valores dos referidos campos estejam zerados, devem ser enviados. Após alterar na unit pcnNFeW as linhas: if (nfe.Det.Imposto.ICMS.vBCFCPST > 0) if (nfe.Det.Imposto.ICMS.vBC > 0) if nfe.Det.Imposto.ICMS.pCredSN > 0 then por if (nfe.Det.Imposto.ICMS.vBCFCPST >= 0) if (nfe.Det.Imposto.ICMS.vBC >= 0) if nfe.Det.Imposto.ICMS.pCredSN >= 0 then Foi possível fazer a emissão via sistema (Danfe em anexo). Essa alteração deve seguir para o ACBr? DanfeAposAjustes.pdf gratuito.xml