walter faria

Boa tarde estou tentando enviar um CTe de substituição é reportado o seguinte erro: TAG: ID:#352/refCte(Chave do CTe) - Nenhum valor informado. Quais tag preciso informar quando um CTe de subtituicao ? ***Estou tentando estas TAGs mas diz que nao existe if Ide.tpCTe = tcSubstituto then begin ide.refCTe:= ''; with infCTeSupl do begin toma.CNPJCPF := Dest.CNPJCPF; //toma.refNF.modelo := NFMod; toma.refNF.serie := NFSerie; toma.refNF.subserie := NFSubSerie; toma.refNF.nro := NFNumero; toma.refNF.valor := NFValor; toma.refNF.dEmi := NFEmissao; end; end; Obrigado

Boa tarde, estou com mesmo erro ! se alguém pode ajudar fico grato Obrigado

Sim exatamento por ele que fiz este meu em anexo acima mas deu erro demais !!! Veja os erros abaixo , em anexo sai02903.ini

Boa tarde Alguem poderia me enviar arquivo ENTRADA.txt para envio do SAT para AcbrMonitor? ***PARA FAZER COMPARAÇÃO !!! ***EM ANEXO O MEU INI QUE ESTOU TENTANDO ENVIAR Obrigado Ent02903.ini

Bom dia Não resolvi ainda este problema ! pode me ajudar ? Obrigado

Boa tarde configurações esta assim : ACBrCTe1.Configuracoes.Geral.SSLLib := libOpenSSL; ACBrCTe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; ACBrCTe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; ACBrCTe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; ACBrCTe1.Configuracoes.WebServices.SSLType:= LT_all;

Bom dia Estou com cliente em maquina Windows 10 (Atualizada) com erro ao enviar com OpenSSL (certificado A1) em maquinas Win7 vai normal Na maquina Win10 diz q o certificado esta vencido Alguem pode me ajudar ?

Boa tarde Nao consigo envia da erro SSL no Windows 10, o que precisa ser feito ... sabem me dizer ? Obrigado

Obrigado, deu certo !

como assim tirando ? qual tag?

Vejam a minha imagem do XML esta tudo certo (acredito ) e ainda da erro de validação :

Pessoal como fazem para informa qdo veiculo é de terceiro ?

Como informar RNTRC de veiculo de terceiro ?

Alguem sabe como resolver isso ?

Bom dia AcbrEtiq nao esta imprimindo texto com acentuação , estou fazendo assim: with ACBrETQ do begin if Modelo = etqPpla then begin //Impressão do texto 1- linha For i := 0 To mmObs.Lines.Count - 1 Do begin Y:= Y + StrToIntDef(edtEspaco.Text, 40); ImprimirTexto(or90, 1, 2, 2, X, Y, Trim(mmObs.Lines.Strings)); end;