Pesquisar na Comunidade
Showing results for tags 'ct-e globalizado'.
Encontrado 3 registros
-
Bom dia, baixei a versão 3.0 do emissor de CT-e e não consigo emitir um CT-e globalizado porque não encontro o campo para indicar. É algum erro do sistema?
-
Bom dia, baixei a versão 3.0 do emissor de CT-e e não consigo emitir um CT-e globalizado porque não encontro o campo para indicar. É algum erro do sistema?
-
Obs de CT-e Globalizado e Documentos de CT-e Redespacho e Multimodal
um tópico no fórum postou José S. Simione ACBrCTe
Olá, Estou ajustando o sistema para emissão do CT-e 3.00 e tive que adicionar um novo campo para Observações de CT-e Globalizado. Foi adicionado o campo 'ObsGlobalizado' no DataSet "cdsIdentificacao". E o no momento de setar as informações foi Alterado de: if indGlobalizado = tiSim then FieldByName('indGlobalizado').AsString := 'Sim' else FieldByName('indGlobalizado').AsString := 'Não'; Para: if indGlobalizado = tiSim then begin FieldByName('indGlobalizado').AsString := 'Sim'; if (Trim(FCTe.infCTeNorm.infGlobalizado.xObs) <> '') then FieldByName('ObsGlobalizado').AsString := FCTe.infCTeNorm.infGlobalizado.xObs; end else FieldByName('indGlobalizado').AsString := 'Não'; Efetuei outra alteração referente aos Documentos Originários que não eram informados em CT-e de Redespacho Intermediário e Vinculado e Multimodal. Porem segundo manual da SeFaz a inserção desses dados é opcional, sendo assim, devido a uma solicitação de um cliente, alterei a unit 'pcteCTeW' de: procedure TCTeW.GerarInfCTeNorm; var versao: String; begin if (CTe.Ide.tpCTe = tcNormal) or (CTe.Ide.tpCTe = tcSubstituto) then begin Gerador.wGrupo('infCTeNorm', '#252'); if (CTe.infCTe.versao >= 3) and (CTe.ide.modelo = 67) then begin GerarinfServico; GerarinfDocRef; GerarInfSeg; end else begin GerarinfCarga; if (CTe.Ide.tpServ <> tsIntermediario) and (CTe.Ide.tpServ <> tsMultimodal) then GerarInfDoc; if CTe.infCTeNorm.docAnt.emiDocAnt.Count > 0 then GerarDocAnt; if CTe.infCTe.versao = 2 then GerarInfSeg; end; ... Para: procedure TCTeW.GerarInfCTeNorm; var versao: String; begin if (CTe.Ide.tpCTe = tcNormal) or (CTe.Ide.tpCTe = tcSubstituto) then begin Gerador.wGrupo('infCTeNorm', '#252'); if (CTe.infCTe.versao >= 3) and (CTe.ide.modelo = 67) then begin GerarinfServico; GerarinfDocRef; GerarInfSeg; end else begin GerarinfCarga; GerarInfDoc; if CTe.infCTeNorm.docAnt.emiDocAnt.Count > 0 then GerarDocAnt; if CTe.infCTe.versao = 2 then GerarInfSeg; end; ... As Units alteradas estão em anexo e me mantenho a disposição para esclarecimentos. Att José S. Simione ACBrCTeDACTEFR.pas pcteCTeW.pas
