Ir para conteúdo
  • Cadastre-se

RodrigoPlenna

Membros
  • Total de ítens

    3
  • Registro em

  • Última visita

Posts postados por RodrigoPlenna

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

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.