-
Posts
5 -
Joined
-
Last visited
About PHCASTANHO
PHCASTANHO's Achievements
-
Juliomar, obrgiado pelo retorno, aos poucos consegui me identificar aqui. porém, travaram algumas informações: a chave está dando como nao identificada. e alguns campos que vou te relatar aqui com erro semelhante: infCTeNorm.infCarga.InfQ.cUnid := uKg; infCTeNorm.infCarga.InfQ.tpMed := 'Kg'; infCTeNorm.infDoc.InfNFE.chave := '' ( deixei com aspas, mas vou puxar ela do meu banco de dados) with vPrest.comp.New do begin vPrest.xNome := 'DFRNER KRTJ'; -> estes dois, mesmo erro... vPrest.vComp := 100.00; end; Se puder me direcionar sobre estas falhas, eu agradeço.
-
Italo, bom dia, Obrigado pelo rápido retorno; Este código já estava no exemplo, e não alterei para primeiro testar a alimentação do componente. Com sua orientação o XML já foi carregado com as informações; Se puder me auxiliar em mais uma orientação; todos os campos que tem esses nomes estão dando como não declarada: tiRetrato; teNormal; taHomologacao; mdRodoviario; tsTranspValores; inContribuinte; Eu preciso aplicar algum comando para criar essas variaveis, ou carregar de algum lugar?? o restante está ficando bala.... segue novo XML 25240215005858000116570010000000011000000016-cte.xml eu acredito que preciso puxar do meu banco de dados, e estes sejam apenas nomes de exemplo; mas antes de alterar tudo, achei melhor perguntar
-
Boa noite, sou bem limitado com programação, e tenho tido dificuldades em carregar os dados do componente e gerar XML. Estou tentando gerar o XML para poder validar, transmitir no sistema na receita (até que eu não termine o meu) fiz esse procedimento: procedure TFRM_CteNEW.exportar_txtClick(Sender: TObject); begin F_DM.ACBrCTe1.Conhecimentos.Clear; F_DM.ACBrCTe1.Conhecimentos.Add.CTe.infCTe.versao := 4.0; F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Ide.cUF := 0125 ; // UFtoCUF(edtEmitUF.Text); F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Ide.CFOP := 6932; F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Emit.CNPJ := IBQ_EMIT.FieldByName('CNPJ').AsString; // Trim(edtEmitCNPJ.Text); F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Emit.IE := IBQ_EMIT.FieldByName('INSCRICAO').AsString; // Trim(edtEmitIE.Text); F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Emit.xNome := Trim( IBQ_EMIT.FieldByName('RAZAO_SOCIAL').AsString ) ; // Trim(edtEmitRazao.Text); F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Emit.xFant := Trim( IBQ_EMIT.FieldByName('RAZAO_SOCIAL').AsString ) ; // Trim(edtEmitFantasia.Text); F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Emit.enderEmit.xLgr := Trim( IBQ_EMIT.FieldByName('ENTR_END').AsString ); F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Emit.enderEmit.nro := Trim( IBQ_EMIT.FieldByName('ENTR_NUM').AsString ); F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Emit.enderEmit.xCpl := Trim( IBQ_EMIT.FieldByName('ENTR_COMPL').AsString ); F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Emit.enderEmit.xBairro := Trim( IBQ_EMIT.FieldByName('ENTR_BAIRRO').AsString ); F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Emit.enderEmit.cMun := StrToInt( IBQ_EMIT.FieldByName('ENTR_CODMUN').AsString ); F_DM.ACBrCTe1.Conhecimentos.Add.CTe.Emit.enderEmit.xMun := Trim( IBQ_EMIT.FieldByName('ENTR_MUN').AsString ); {Informações do Responsável Técnico pela emissão do DF-e} F_DM.ACBrCTe1.Conhecimentos.Add.CTe.infRespTec.xContato := ''; F_DM.ACBrCTe1.Conhecimentos.Add.CTe.infRespTec.email := ''; F_DM.ACBrCTe1.Conhecimentos.Add.CTe.infRespTec.fone := ''; F_DM.ACBrCTe1.Conhecimentos.Items[0].GravarXML(); *** Carreguei todos os campos, só coloquei alguns aqui como exemplo para não ficar extenso.. mas em resumo: F_DM.ACBrCTe1.Conhecimentos.Clear; F_DM.ACBrCTe1.Conhecimentos.Add.CTe. (todos os campos) F_DM.ACBrCTe1.Conhecimentos.Items[0].GravarXML(); Porem, ele gera o XML conforme anexo (sem informações nenhumas) podem me auxiliar e dizer se falta alguma informação?? obrigado 00991200000000000000570000000000001010196460-cte.xml 00991200000000000000570000000000001098568326-cte.xml