Pesquisar na Comunidade
Showing results for tags 'cte os'.
Encontrado 5 registros
-
CT-e Erro: Valor string inválido para TLayOutCTe: URL-QRCode
um tópico no fórum postou VictorManuelT ACBrCTe
Ao emitir um CT-e está retornando o seguinte erro "Valor string inválido para TLayOutCTe: URL-QRCode". -
No Cte uso a rotina do exemplo: MemoDados.Lines.Add('Recibo: '+ ACBrCTe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrCTe1.WebServices.Retorno.Protocolo); Como fazer no Cte OS ? Obrigado
-
Bom dia, Realizamos uma correção referente ao CT-e OS, para as tags serie, subserie e vDoc do grupo infDocRef, e para o subgrupo veic do grupo rodoOS, que não são obrigatórios conforme consta no manual. Segue em anexo o fonte modificado (arquivo pcteCTeW.pas). pcteCTeW.pas
-
Olá pessoal, estou nos finalmentes da adaptação do nosso software para atender também o CT-e OS. Minha dificuldade está em obter o retorno através do componente (obs.: o arquivo XML de retorno está sendo salvo no computador normalmente). Bom, para o CT-e modelo 57, consigo (com o mesmo código fonte) obter o retorno, mas para o CT-e modelo 67 não consigo, pois os objetos não estão preenchidos. Segue trecho do código fonte exemplificando como estou obtendo o retorno: for i:= 0 to objACBrCTe.Conhecimentos.Count - 1 do begin ... ... ... ParamByName('RECIBO').AsString := objACBrCTe.WebServices.Retorno.CTeRetorno.nRec; ParamByName('CHAVE').AsString := objACBrCTe.WebServices.Retorno.CTeRetorno.ProtCTe.Items[i].chCTe; ParamByName('STATUS').AsInteger := objACBrCTe.WebServices.Retorno.CTeRetorno.ProtCTe.Items[i].cStat; ParamByName('MOTIVO').AsString := objACBrCTe.WebServices.Retorno.CTeRetorno.ProtCTe.Items[i].xMotivo; ParamByName('PROTOCOLO').AsString := objACBrCTe.WebServices.Retorno.CTeRetorno.ProtCTe.Items[i].nProt; ParamByName('DATA_HORA').AsDateTime := objACBrCTe.WebServices.Retorno.CTeRetorno.ProtCTe.Items[i].dhRecbto; ParamByName('DIGEST_VALUE').AsString := objACBrCTe.WebServices.Retorno.CTeRetorno.ProtCTe.Items[i].digVal; ParamByName('VER_APLIC').AsString := objACBrCTe.WebServices.Retorno.CTeRetorno.ProtCTe.Items[i].verAplic; ParamByName('XML').AsMemo := UTF8ToString(objACBrCTe.Conhecimentos.Items[i].XML); // conteudo completo do arquivo XML ... ... ... end; Se eu verificar a propriedade "objACBrCTe.WebServices.Retorno.CTeRetorno.ProtCTe.Count", esta zerado. Existe alguma outra forma que eu não saiba para obter estes campos? Meus fontes estão atualizados. Já estou "debugando" o componente para tentar entender o que pode estar acontecendo, mas até agora nada, agradeço se alguém puder ajudar. Vou continuar a procura. Obrigado.
-
Boa tarde, Realizamos algumas correções referente ao CT-e OS: Tratamento do envio como síncrono; Remoção da verificação no status 104 (Lote processado); Preenchimento das tags nAver e vCarga do grupo seg somente quando for modelo 57 e versão 2.00; Leitura do XML pelo método LoadFromString(); Ler o subgrupo infQ somente quando houver o grupo infCarga. Segue em anexo o fonte modificado (arquivos ACBrCTe.pas, ACBrCTeWebServices.pas, pcteCTeW.pas, ACBrCTeConhecimentos.pas e pcteCTeR.pas). ACBrCTe.pas ACBrCTeWebServices.pas pcteCTeW.pas ACBrCTeConhecimentos.pas pcteCTeR.pas