Ir para conteúdo
  • Cadastre-se

menegante

Membros
  • Total de ítens

    17
  • Registro em

  • Última visita

Posts postados por menegante

  1. Pessoal resolvi o meu problema, no meu cliente em um computador com windows xp funciona normal em outra da erro de autenticação na porta TLS, edite o programa na parta fontes\acbrcte\acbrcte.pas  e altera as seguintes configurações

     

    de:

         smtp.FullSSL := SSL;
         smtp.AutoTLS := SSL;  
     
    para:
         smtp.FullSSL := SSL;
         smtp.AutoTLS := True; 
         smtp.StartTLS;
     
     
    não sei porque mais em alguns windows a porta TLS não starta automaticamente, espero ter ajudado pessoal....    
  2. Sr. poderiam me ajudar pois mesmo movendo o valor para o campo "Ide.Toma4.CNPJCPF" no XML ele fica em branco gerando recusa no SEFAZ, abaixo a minha rotina, obrigado.

     

             if DataModule1.TArqcteENTREGATIPODATA.AsInteger = 4 then
                begin
                   DataModule1.TArqcli.Close;
                   DataModule1.TArqcli.Params[0].AsString := DataModule1.TArqmovCGC_CONSIG.Value;
                   DataModule1.TArqcli.Open;
                   DataModule1.TArqcli.First;
     
                   if pos('00.000.000',DataModule1.TArqmovCGC_CONSIG.Value) <= 0 then
                      begin
                        if pos('J',DataModule1.TArqcliCONTRIB.AsString) > 0 then
                            begin
                              Toma4CNPJ := DefazMaskCGC(DataModule1.TArqcliCGC.Value);
                              IE        := DefazMaskCGC(trim(DataModule1.TArqcliINSC_EST.Value));
                            end
                        else
                            begin
                              Toma4CNPJ := DefazMaskCGC(DataModule1.TArqmovCGC_CONSIG.Value);
                              IE        := 'ISENTO';
                            end;
                      end
                   else
                      begin
                         Toma4CNPJ := '00000000000000';
                         IE        := '';
                      end;
     
                   Ide.Toma4.Toma              := tmOutros;
                   Ide.Toma4.CNPJCPF           := Toma4CNPJ;
                   Ide.Toma4.IE                := IE;
                   Ide.Toma4.xNome             := DataModule1.TArqcliNOME.Value;
                   Ide.Toma4.fone              := DefazMaskCGC(trim(DataModule1.TArqcliTEL1.Value));
                   Ide.Toma4.EnderToma.xLgr    := DataModule1.TArqcliENDERECO.Value;
                   Ide.Toma4.EnderToma.nro     := DataModule1.TArqcliNUMERO.Value;
                   Ide.Toma4.EnderToma.xCpl    := DataModule1.TArqcliCOMPLEMENTO.Value;
                   Ide.Toma4.EnderToma.xBairro := DataModule1.TArqcliBAIRRO.Value;
     
                   DataModule1.TArqcid.Close;
                   DataModule1.TArqcid.Params[0].AsString := AnsiUpperCase(trim(DataModule1.TArqcliCIDADE.Value));
                   DataModule1.TArqcid.Params[1].AsString := AnsiUpperCase(trim(DataModule1.TArqcliESTADO.Value));
                   DataModule1.TArqcid.Open;
                   DataModule1.TArqcid.First;
                   if DataModule1.TArqcid.RecordCount > 0 then
                      begin
                         DataModule1.TArquf.Close;
                         DataModule1.TArquf.Params[0].AsString := AnsiUpperCase(trim(DataModule1.TArqcliESTADO.Value));
                         DataModule1.TArquf.Open;
                         DataModule1.TArquf.First;
                         if DataModule1.TArquf.RecordCount > 0 then
                            begin
                               CodigoMunicipio := DataModule1.TArqufCOD_UF.AsInteger * 100000 +
                                                  DataModule1.TArqcidCOD_CIDADE.AsInteger;
     
                               Ide.Toma4.EnderToma.cMun    := CodigoMunicipio;
                           end;
     
                         Ide.Toma4.EnderToma.xMun    := AnsiUpperCase(trim(DataModule1.TArqcidCIDADE.Value));
                         Ide.Toma4.EnderToma.UF      := AnsiUpperCase(trim(DataModule1.TArqcidESTADO.Value));
                      end;
     
                   Ide.Toma4.EnderToma.CEP     := StrToInt(Copy(DataModule1.TArqcliCEP.AsString,1,5)+Copy(DataModule1.TArqcliCEP.AsString,7,3));
     
                   DataModule1.TArqpais.Close;
                   DataModule1.TArqpais.Params[0].AsInteger := DataModule1.TArqcliCOD_PAIS.Value;
                   DataModule1.TArqpais.Open;
                   DataModule1.TArqpais.First;
                   if DataModule1.TArqpais.Recordcount > 0 then
                      begin
                         Ide.Toma4.EnderToma.cPais   := DataModule1.TArqpaisCODIGO.Value; //Codigo do pais brasil
                         Ide.Toma4.EnderToma.xPais   := Trim(DataModule1.TArqpaisNOME_PAIS.Value);
                      end;
                end;
×
×
  • 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.