RodrigoPlenna
-
Total de ítens
3 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por RodrigoPlenna
-
-
Bom dia, eu mudo para 4.00 e dá este erro.
ERRO: Falha na validação dos dados da nota: 50
Element '{http://www.portalfiscal.inf.br/nfe}pag' cannot be empty according to the DTD/Schema.
Sr Italo, eu mudo no arquivo de geração e no acbr, só que da outro erro. Com isto ela nem gera.
Writeln(arq,'[infNFe]');
Writeln(arq,'versao=4.00');
Writeln(arq,'[Identificacao]');
Writeln(arq,'NaturezaOperacao='+dmNFE.cdsNFEAuxNFENATUREZAOP.Value);
Writeln(arq,'Modelo=55');
Writeln(arq,'Serie=1');
Writeln(arq,'Codigo=' + formatfloat('0',dmNFE.cdsNFEAuxCODIGONFE.Value));
Writeln(arq,'Numero=' + formatfloat('0',dmNFE.cdsNFEAuxCODIGONFE.Value));
Writeln(arq,'Emissao=' + FormatDateTime('dd/mm/yyyy',dmNFE.cdsNFEAuxDATA.Value));
Writeln(arq,'Saida=' + FormatDateTime('dd/mm/yyyy',dmNFE.cdsNFEAuxDATA.Value));
Writeln(arq,'Tipo='+ copy(dmNFE.cdsNFEAuxNFETIPODOC.Value,1,1));
Writeln(arq,'FormaPag=' + copy(dmNFE.cdsNFEAuxNFEFORMAPAG.Value,1,1));
Writeln(arq,'Finalidade='+ copy(dmNFE.cdsNFEAuxNFEFINALIDADE.Value,1,1));
Writeln(arq,'idDest='+ copy(dmNFE.cdsNFEAuxNFEDESTINOOP.Value,1,1));
Writeln(arq,'indFinal='+ copy(dmNFE.cdsNFEAuxNFECONSUMIDOR.Value,1,1));
Writeln(arq,'indPres='+ copy(dmNFE.cdsNFEAuxNFETIPOATENDE.Value,1,1));
//Emitente
Writeln(arq,'[Emitente]');
Writeln(arq,'CNPJ=24508165000137');
Writeln(arq,'IE=0027356960052');
Writeln(arq,'Razao=ERNANDES CELESTINO AZEVEDO ');
Writeln(arq,'Fantasia=ERNANDES CELESTINO AZEVEDO ');
Writeln(arq,'Fone=');
Writeln(arq,'CEP=36400000');
Writeln(arq,'Logradouro=RUA DUQUE DE CAXIAS');
Writeln(arq,'Numero=1231');
Writeln(arq,'Complemento=');
Writeln(arq,'Bairro=CHAPADA');
Writeln(arq,'CidadeCod=3118304');
Writeln(arq,'Cidade=Conselheiro Lafadiete');
Writeln(arq,'UF=MG');
Writeln(arq,'CRT=1');
// Destinatario
Writeln(arq,'[Destinatario]');
Writeln(arq,'CNPJ=' + LimpaCNPJ(dmNFE.cdsNFEAuxCNPJ.Value));
case strtoint(copy(dmNFE.cdsNFEAuxNFETIPOICMS.Value,1,1)) of
1:begin
Writeln(arq,'IE=' + LimpaCNPJ(dmNFE.cdsNFEAuxINSC.Value));
end;
2:begin
Writeln(arq,'IE=' + LimpaCNPJ(dmNFE.cdsNFEAuxINSC.Value));
end;
9:begin
Writeln(arq,'IE=');
end;
end;
Writeln(arq,'ISUF= ');
Writeln(arq,'NomeRazao=' + dmNFE.cdsNFEAuxNOME.Value);
Writeln(arq,'Fone=' + dmNFE.cdsNFEAuxTELCOM.Value);
Writeln(arq,'CEP=' + LimpaCNPJ(dmNFE.cdsNFEAuxCEP.Value));
Writeln(arq,'Logradouro=' + dmNFE.cdsNFEAuxENDERECO.Value);
Writeln(arq,'Numero=' + dmNFE.cdsNFEAuxNUMERO.Value);
Writeln(arq,'Complemento=');
Writeln(arq,'Bairro=' + dmNFE.cdsNFEAuxBAIRRO.Value);
Writeln(arq,'CidadeCod=' + dmNFE.cdsNFEAuxCODIGOIBGE.Value);
Writeln(arq,'Cidade=' + dmNFE.cdsNFEAuxCIDADE.Value);
Writeln(arq,'UF=' + dmNFE.cdsNFEAuxUF.Value);
Writeln(arq,'indIEDest='+ copy(dmNFE.cdsNFEAuxNFETIPOICMS.Value,1,1));
// PRODUTOS
x:=1;
formParam.PesquisarNFEMerc(strtofloat(formatfloat('0',dmNFE.cdsNFEAuxCODIGONFE.Value)));
dmNFE.cdsNFEMat.First;
while not dmNFE.cdsNFEMat.Eof do
begin
Writeln(arq,'[Produto'+ formatfloat('000',x) +']');
Writeln(arq,'Codigo=' + formatfloat('0',dmNFE.cdsNFEMatCODIGOMATERIAL.Value));
Writeln(arq,'Descricao=' + dmNFE.cdsNFEMatMATERIAL.Value);
Writeln(arq,'NCM=' + dmNFE.cdsNFEMatNFENCM.Value);
Writeln(arq,'CFOP=' + dmNFE.cdsNFEMatNFECFOP.Value);
Writeln(arq,'Unidade=' + dmNFE.cdsNFEMatUN.Value);
Writeln(arq,'Quantidade=' + FormatFloat('0.##',dmNFE.cdsNFEMatQUANT.Value));
Writeln(arq,'ValorUnitario=' + FormatFloat('0.00',dmNFE.cdsNFEMatVUNIT.Value));
Writeln(arq,'ValorTotal= ' + FormatFloat('0.00',dmNFE.cdsNFEMatVTOTAL.Value));Writeln(arq,'[ICMS'+ FormatFloat('000',x) +']');
Writeln(arq,'ICMSSN' + dmNFE.cdsNFEMatNFECST.Value);
Writeln(arq,'orig=0');
Writeln(arq,'CSOSN=' + dmNFE.cdsNFEMatNFECST.Value);Writeln(arq,'[PIS' + FormatFloat('000',x) +']');
Writeln(arq,'CST=99');Writeln(arq,'[COFINS' + FormatFloat('000',x) +']');
Writeln(arq,'CST=99');
x:=x+1;
dmNFE.cdsNFEMat.Next;
end;
Writeln(arq,'[Total]');
Writeln(arq,'BaseICMS=');
Writeln(arq,'ValorICMS=');
Writeln(arq,'ValorProduto=' + FormatFloat('0.00',dmNFE.cdsNFEAuxTOTAL.Value));
Writeln(arq,'ValorNota=' + FormatFloat('0.00',dmNFE.cdsNFEAuxTOTAL.Value));
Writeln(arq,'[DadosAdicionais]');
Writeln(arq,'infAdFisco=');
Writeln(arq,'infCpl=' + dmNFE.cdsNFEAuxNFEDADOSADI.AsString);
-
OK: Rejeicao: Cabecalho - Versao do arquivo XML nao suportada
[Envio]
CStat=239
CUF=31
DhRecbto=06/08/2018 11:28:36
Msg=Rejeicao: Cabecalho - Versao do arquivo XML nao suportada
NRec=310004447068259
TMed=1
VerAplic=14.1.54
Versao=14.1.54
XMotivo=Rejeicao: Cabecalho - Versao do arquivo XML nao suportada
tpAmb=1
OK: Rejeicao: Cabecalho - Versao do arquivo XML nao suportada
em ACBrMonitorPLUS
Postado
Ok. muito obrigado, faltava mesmo a forma de pagamento.