unit Frm_AuxConsultaCadastro;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Mask, ComCtrls;

type
  TfrmAuxConsultaCadastroCTe = class(TForm)
    Label4: TLabel;
    edtCNPJ: TMaskEdit;
    Label9: TLabel;
    Panel1: TPanel;
    btnConsultar: TBitBtn;
    gbDados: TGroupBox;
    pcDados: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    edtMotivo: TEdit;
    edtNome: TEdit;
    edtAbreviado: TEdit;
    edtIE: TEdit;
    edtCNAE: TEdit;
    edtIEUnica: TEdit;
    edtIEAtual: TEdit;
    edtEndereco: TEdit;
    edtNumero: TEdit;
    edtComplemento: TEdit;
    edtBairro: TEdit;
    edtCodigoCidade: TEdit;
    edtNomeCidade: TEdit;
    edtCEP: TEdit;
    btnLimpar: TBitBtn;
    cbUF: TComboBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    edtSituacao: TEdit;
    edtIndCredNFe: TEdit;
    edtIndCredCTe: TEdit;
    edtRegApur: TEdit;
    edtIniAtivi: TEdit;
    edtUltSituacao: TEdit;
    edtBaixa: TEdit;
    procedure LimpaCampos;
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure AtivaBotao;
    procedure edtCNPJExit(Sender: TObject);
    procedure btnConsultarClick(Sender: TObject);
    procedure btnLimparClick(Sender: TObject);
  private
    { Private declarations }
    sDocumento: String;
    PathMensal: String;
  public
    { Public declarations }
  end;

var
  frmAuxConsultaCadastroCTe: TfrmAuxConsultaCadastroCTe;

implementation

uses
 pcnConversao,
 CTA_DataModule, CNT_DataModule, DFe_DataModule;

{$R *.dfm}

{ TfrmAuxConsultaCadastro }

procedure TfrmAuxConsultaCadastroCTe.LimpaCampos;
begin
 sDocumento := 'CTE';

 DM_CTA.ParamDFe.Close;
 DM_CTA.ParamDFe.SQL.Clear;
 DM_CTA.ParamDFe.SQL.Add('Select * From Sis_ParamDFe');
 DM_CTA.ParamDFe.SQL.Add('Where Empresa = :xEmpresa');
 DM_CTA.ParamDFe.SQL.Add('and Modulo = :xModulo');
 DM_CTA.ParamDFe.SQL.Add('and Documento = :xDocumento');
 DM_CTA.ParamDFe.Params[0].AsString := DM_CTA.xCodEmpresa;
 DM_CTA.ParamDFe.Params[1].AsString := DM_CTA.xModulo;
 DM_CTA.ParamDFe.Params[2].AsString := sDocumento;
 DM_CTA.ParamDFe.Active:=True;
 DM_CTA.ParamDFe.Open;

 // Configurações -> Arquivos
 DMDFe.NFe.Configuracoes.Arquivos.AdicionarLiteral   := True;
 DMDFe.NFe.Configuracoes.Arquivos.EmissaoPathNFe     := True;
 DMDFe.NFe.Configuracoes.Arquivos.PastaMensal        := True;
 DMDFe.NFe.Configuracoes.Arquivos.PathCan            := Trim(DM_CTA.ParamDFePathSalvar.AsString);
 DMDFe.NFe.Configuracoes.Arquivos.PathCCe            := Trim(DM_CTA.ParamDFePathSalvar.AsString);
 DMDFe.NFe.Configuracoes.Arquivos.PathDPEC           := Trim(DM_CTA.ParamDFePathSalvar.AsString);
 DMDFe.NFe.Configuracoes.Arquivos.PathEvento         := Trim(DM_CTA.ParamDFePathSalvar.AsString);
 DMDFe.NFe.Configuracoes.Arquivos.PathInu            := Trim(DM_CTA.ParamDFePathSalvar.AsString);
 DMDFe.NFe.Configuracoes.Arquivos.PathNFe            := Trim(DM_CTA.ParamDFePathSalvar.AsString);
 DMDFe.NFe.Configuracoes.Arquivos.Salvar             := True;
 DMDFe.NFe.Configuracoes.Arquivos.SalvarCCeCanEvento := True;

 PathMensal := DMDFe.NFe.Configuracoes.Arquivos.GetPathNFe(0);

 // Configurações -> Certificados
 DMDFe.NFe.Configuracoes.Certificados.NumeroSerie := DM_CTA.ParamDFeCertNumSerie.AsString;
 DMDFe.NFe.Configuracoes.Certificados.Senha       := Trim(DM_CTA.ParamDFeCertSenha.AsString);

 // Configurações -> Geral
 DMDFe.NFe.Configuracoes.Geral.FormaEmissao := teNormal;
 DMDFe.NFe.Configuracoes.Geral.PathSalvar   := PathMensal;
 DMDFe.NFe.Configuracoes.Geral.PathSchemas  := Trim(DM_CTA.ParamDFePathSchema.AsString);
 DMDFe.NFe.Configuracoes.Geral.Salvar       := True;
 DMDFe.NFe.Configuracoes.Geral.ModeloDF     := moNFe;
 DMDFe.NFe.Configuracoes.Geral.VersaoDF     := ve200;

 // Configurações -> WebServices
 case DM_CTA.ParamDFeWSAmbiente.AsInteger of
  0: DMDFe.NFe.Configuracoes.WebServices.Ambiente := taHomologacao;
  1: DMDFe.NFe.Configuracoes.WebServices.Ambiente := taProducao;
 end;
 DMDFe.NFe.Configuracoes.WebServices.AguardarConsultaRet      := 0;
 DMDFe.NFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := False;
 DMDFe.NFe.Configuracoes.WebServices.IntervaloTentativas      := 0;
 DMDFe.NFe.Configuracoes.WebServices.ProxyHost                := Trim(DM_CTA.ParamDFeProxyHost.AsString);
 DMDFe.NFe.Configuracoes.WebServices.ProxyPass                := Trim(DM_CTA.ParamDFeProxyPass.AsString);
 DMDFe.NFe.Configuracoes.WebServices.ProxyPort                := Trim(DM_CTA.ParamDFeProxyPorta.AsString);
 DMDFe.NFe.Configuracoes.WebServices.ProxyUser                := Trim(DM_CTA.ParamDFeProxyUser.AsString);
 DMDFe.NFe.Configuracoes.WebServices.Tentativas               := 5;
 DMDFe.NFe.Configuracoes.WebServices.UF                       := DM_CTA.ParamDFeWSUF.AsString;
 DMDFe.NFe.Configuracoes.WebServices.Visualizar               := (DM_CTA.ParamDFeWSVisualizar.AsString='S');

 edtCNPJ.Text:='';
 edtCNPJ.SetFocus;
 cbUF.ItemIndex:= cbUF.Items.IndexOf(DM_CTA.ParamDFeWSUF.AsString);

 pcDados.ActivePageIndex:=0;
 edtMotivo.Text:='';
 edtNome.Text:='';
 edtAbreviado.Text:='';
 edtIE.Text:='';
 edtCNAE.Text:='';
 edtIEUnica.Text:='';
 edtIEAtual.Text:='';

 edtEndereco.Text:='';
 edtNumero.Text:='';
 edtComplemento.Text:='';
 edtBairro.Text:='';
 edtCodigoCidade.Text:='';
 edtNomeCidade.Text:='';
 edtCEP.Text:='';

 edtSituacao.Text:='';
 edtIndCredNFe.Text:='';
 edtIndCredCTe.Text:='';
 edtRegApur.Text:='';
 edtIniAtivi.Text:='';
 edtUltSituacao.Text:='';
 edtBaixa.Text:='';

 btnConsultar.Enabled:=False;
end;

procedure TfrmAuxConsultaCadastroCTe.FormShow(Sender: TObject);
begin
 LimpaCampos;
end;

procedure TfrmAuxConsultaCadastroCTe.FormKeyPress(Sender: TObject;
  var Key: Char);
begin
 if key=#13
  then begin
   Perform(CM_DialogKey, VK_TAB, 0);
   Key:=#0;
  end;
end;

procedure TfrmAuxConsultaCadastroCTe.AtivaBotao;
begin
 btnConsultar.Enabled:=(edtCNPJ.Text<>'');
end;

procedure TfrmAuxConsultaCadastroCTe.edtCNPJExit(Sender: TObject);
begin
 AtivaBotao;
end;

procedure TfrmAuxConsultaCadastroCTe.btnConsultarClick(Sender: TObject);
var
 CNPJCPF: String;
begin
 if Copy(edtCNPJ.Text, 10, 4)='0000'
  then begin
   CNPJCPF:=Copy(edtCNPJ.Text, 1, 9)+Copy(edtCNPJ.Text, 14, 2);
   DMDFe.CTe.WebServices.ConsultaCadastro.CNPJ := CNPJCPF;
  end
  else begin
   CNPJCPF:=Copy(edtCNPJ.Text, 2, 14);
   DMDFe.CTe.WebServices.ConsultaCadastro.CPF := CNPJCPF;
  end;
 DMDFe.CTe.WebServices.ConsultaCadastro.UF := cbUF.Text;
 DMDFe.CTe.WebServices.ConsultaCadastro.Executar;

 edtMotivo.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.xMotivo;
 if DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Count>0
  then begin
   edtNome.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xNome;
   edtAbreviado.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xFant;
   edtIE.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].IE;
   edtCNAE.Text:=IntToStr(DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].CNAE);
   edtIEUnica.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].IEUnica;
   edtIEAtual.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].IEAtual;

   edtEndereco.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xLgr;
   edtNumero.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].nro;
   edtComplemento.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xCpl;
   edtBairro.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xBairro;
   edtCodigoCidade.Text:=IntToStr(DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].cMun);
   edtNomeCidade.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xMun;
   edtCEP.Text:=IntToStr(DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].CEP);

   case DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].cSit of
    0: edtSituacao.Text:='Não Habilitado.';
    1: edtSituacao.Text:='Habilitado.';
   end;

   case DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].indCredNFe of
    0: edtIndCredNFe.Text:='Não credenciado para emissão da NF-e.';
    1: edtIndCredNFe.Text:='Credenciado.';
    2: edtIndCredNFe.Text:='Credenciado com obrigatoriedade para todas operações.';
    3: edtIndCredNFe.Text:='Credenciado com obrigatoriedade parcial.';
    4: edtIndCredNFe.Text:='a SEFAZ não fornece a informação.';
   end;

   case DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].indCredCTe of
    0: edtIndCredCTe.Text:='Não credenciado para emissão do CT-e.';
    1: edtIndCredCTe.Text:='Credenciado.';
    2: edtIndCredCTe.Text:='Credenciado com obrigatoriedade para todas operações.';
    3: edtIndCredCTe.Text:='Credenciado com obrigatoriedade parcial.';
    4: edtIndCredCTe.Text:='a SEFAZ não fornece a informação.';
   end;

   edtRegApur.Text:=DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xRegApur;

   if DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].dIniAtiv>0
    then edtIniAtivi.Text:=DateToStr(DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].dIniAtiv)
    else edtIniAtivi.Text:='';

   if DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].dUltSit>0
    then edtUltSituacao.Text:=DateToStr(DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].dUltSit)
    else edtUltSituacao.Text:='';

   if DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].dBaixa>0
    then edtBaixa.Text:=DateToStr(DMDFe.CTe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].dBaixa)
    else edtBaixa.Text:='';
  end;
end;

procedure TfrmAuxConsultaCadastroCTe.btnLimparClick(Sender: TObject);
begin
 LimpaCampos;
end;

end.