AjustesDemoDelphi

tecnospeed · Apr 16, 2020 · 9791413 · 9791413
1 parent 1be3b0e
commit 9791413
Show file tree

Hide file tree

Showing 3 changed files with 36 additions and 25 deletions.
diff --git a/demonstracoes/delphi/ExemploProxyNFSe.res b/demonstracoes/delphi/ExemploProxyNFSe.res
diff --git a/demonstracoes/delphi/TecnoNFSe.tx2 b/demonstracoes/delphi/TecnoNFSe.tx2
@@ -3,7 +3,7 @@ padrao=TecnoNFSe
 
 INCLUIR
 NumeroLote=1
-CPFCNPJRemetente=08187168000160
+CPFCNPJRemetente=00000000000000
 InscricaoMunicipalRemetente=081871680
 ValorTotalServicos=0.10
 ValorTotalDeducoes=0.00
@@ -18,10 +18,10 @@ NumeroRps=1
 SituacaoNota=1
 DataEmissao=2020-03-11T00:00:00
 Competencia=2020-03-11
-CpfCnpjPrestador=08187168000160
-InscricaoMunicipalPrestador=081871680
+CpfCnpjPrestador=00000000000000
+InscricaoMunicipalPrestador=000000
 RazaoSocialPrestador=TECNOSPEED TECNOLOGIA DA INFORMACAO
-InscricaoEstadualPrestador=081871680
+InscricaoEstadualPrestador=0000000000
 TipoLogradouroPrestador=Rua
 EnderecoPrestador=Endereco Teste
 NumeroPrestador=42
@@ -54,7 +54,7 @@ CodigoCidadePrestacao=4115200
 DescricaoCidadePrestacao=Maringa
 
 
-CpfCnpjTomador=08187168000160
+CpfCnpjTomador=00000000000000
 RazaoSocialTomador=TECNOSPEED TECNOLOGIA DA INFORMACAO
 InscricaoEstadualTomador=
 InscricaoMunicipalTomador=

diff --git a/demonstracoes/delphi/UExemploProxyNFSe.pas b/demonstracoes/delphi/UExemploProxyNFSe.pas
@@ -104,6 +104,7 @@ TfrmExemplo = class(TForm)
  btnConverterConsultaNFse: TButton;
  btnConverterCancelamentoNFSe: TButton;
  btnConverterConsultaNFSeTomadas: TButton;
+ btnEnviar: TButton;
 
  {DECLARAÇÕES RELACIONADAS AO ENVIO POR PROXYNFSe}
  {Abre o arquivo NFSeConfig.ini}
@@ -166,6 +167,7 @@ TfrmExemplo = class(TForm)
  procedure btnConverterConsultaNFseClick(Sender: TObject);
  procedure btnConverterCancelamentoNFSeClick(Sender: TObject);
  procedure btnConverterConsultaNFSeTomadasClick(Sender: TObject);
+ procedure btnEnviarClick(Sender: TObject);
  private
  fLogEnvio: string;
  {Lê configurações do exemplo de um arquivo .ini}
@@ -418,20 +420,7 @@ procedure TfrmExemplo.btnGerarXMLeEnviarRPSClick(Sender: TObject);
  FormatReturnXML(_XML);
  end;
 
- // passo 4 - Envio
- if (NFSe.Ambiente = akProducao) and (Application.MessageBox('O componente está configurado ' + 'para enviar em ambiente de produção, deseja continuar?', 'Atenção!', MB_YESNO + MB_ICONWARNING) = IDNO) then
- exit;
-
- if rbTipoEnvioSin.Checked then
- EnvioSincrono
- else
- EnvioAssincrono;
-
- mmXMLFormatado.Font.Color := clBlue;
- mmXML.Lines.Text := _XML;
- mmXMLFormatado.Lines.Text := ReformatXml(_XML);
-
- rgImpressao.ItemIndex := 0;
+ mmXML.Text := _XML;
  end;
  finally
  (Sender as TWinControl).Enabled := True;
@@ -1047,9 +1036,9 @@ procedure TfrmExemplo.btnConsultarNotasTomadasClick(Sender: TObject);
 
  mmCSV.Clear;
 
- mmCSV.Text := spdNFSeConverterX.ConverterRetConsultarLoteNFSeTomadas(mmXML.Text, '');
- _RetConsultaTomadas := spdNFSeConverterX.ConverterRetConsultarLoteNFSeTomadasTipo(mmXML.Text);
- getRetornoConsultaLoteNFSeTomadas(_RetConsultaTomadas);
+// mmCSV.Text := spdNFSeConverterX.ConverterRetConsultarLoteNFSeTomadas(mmXML.Text, '');
+// _RetConsultaTomadas := spdNFSeConverterX.ConverterRetConsultarLoteNFSeTomadasTipo(mmXML.Text);
+// getRetornoConsultaLoteNFSeTomadas(_RetConsultaTomadas);
 
  end;
  rgImpressao.ItemIndex := 1;
@@ -1364,9 +1353,31 @@ procedure TfrmExemplo.btnConverterConsultaNFSeTomadasClick(Sender: TObject);
 begin
  mmCSV.Clear;
 
- mmCSV.Text := spdNFSeConverterX.ConverterRetConsultarLoteNFSeTomadas(mmXML.Text, '');
- _RetConsultaTomadas := spdNFSeConverterX.ConverterRetConsultarLoteNFSeTomadasTipo(mmXML.Text);
- getRetornoConsultaLoteNFSeTomadas(_RetConsultaTomadas);
+// mmCSV.Text := spdNFSeConverterX.ConverterRetConsultarLoteNFSeTomadas(mmXML.Text, '');
+// _RetConsultaTomadas := spdNFSeConverterX.ConverterRetConsultarLoteNFSeTomadasTipo(mmXML.Text);
+// getRetornoConsultaLoteNFSeTomadas(_RetConsultaTomadas);
+end;
+
+procedure TfrmExemplo.btnEnviarClick(Sender: TObject);
+var
+ _XML: string;
+begin
+ // passo 4 - Envio
+ if (NFSe.Ambiente = akProducao) and (Application.MessageBox('O componente está configurado ' + 'para enviar em ambiente de produção, deseja continuar?', 'Atenção!', MB_YESNO + MB_ICONWARNING) = IDNO) then
+ exit;
+
+ _XML := mmXML.Text;
+
+ if rbTipoEnvioSin.Checked then
+ EnvioSincrono
+ else
+ EnvioAssincrono;
+
+ mmXMLFormatado.Font.Color := clBlue;
+ mmXML.Lines.Text := _XML;
+ mmXMLFormatado.Lines.Text := ReformatXml(_XML);
+
+ rgImpressao.ItemIndex := 0;
 end;
 
 end.