Sugestão de alteração no demo do ACBrNFe

[kanedasam]

Gostaria de fazer uma nova sugestão na demos da NFe/NFCe em relação as "imputbox" individualizadas. 

Original : 

Citar

 

procedure TForm1.btnCriarEnviarNFCeClick(Sender: TObject);
var
 vAux, vNumLote, vSincrono : String;
 Sincrono : boolean;
begin
  if not(InputQuery('WebServices Enviar', 'Numero da Nota', vAux)) then
    exit;

  if not(InputQuery('WebServices Enviar', 'Numero do Lote', vNumLote)) then
    exit;

  vSincrono := '1';
  if not(InputQuery('WebServices Enviar', 'Envio Síncrono(1=Sim, 0=Não)', vSincrono)) then
    exit;

  vNumLote := OnlyNumber(vNumLote);

  if Trim(vNumLote) = '' then
   begin
     MessageDlg('Número do Lote inválido.',mtError,[mbok],0);
     exit;
   end;

continua  ....

 

 

Novo Código
 

Citar

 

procedure TFrmWinzardCfgSys.btnGerarTXTClick(Sender: TObject);

const  CamposNomes : array of string = ['Numero da Nota','Numero do Lote', 'Envio Síncrono(1=Sim, 0=Não)'] ;

var
 vAux, vNumLote, vSincrono, idDFESTR : String;
 idDFe : Integer;
 Sincrono : boolean;
 ImputValue : array of string;
 I : Integer;
begin

 SetLength(ImputValue, Length(CamposNomes));

 if InputQuery('WebServices Enviar',CamposNomes,ImputValue) then
 begin
   for I := Low(ImputValue) to High(ImputValue) do
   begin
     if ImputValue = '' then
     Begin
       ShowMessage('É obrigatório informar o campo: '+CamposNomes);
       Abort;
     end;
   end;
 end;

continua ...

 

Basicamente ficaria assim, invés de tela a telas

[kanedasam]

Alguém poderia me ajudar qual é o pulo do gato no momento de salvar as configurações ACBRNFE em ini, não encontrei o momento em que grava o arquivo e quando o nome é definido pelo componente de forma automática.

[kanedasam]

 

Citar

 

ERRATA 
Faltou as chaves dos indices as array... mas não foi culpa minha o fórum não aceita colchetes, por isso usarei  parênteses no lugar das arrays, depois é só trocar ...
Favor corrigirem isso, se for possível...

procedure TFrmWinzardCfgSys.btnGerarTXTClick(Sender: TObject);

const  CamposNomes : array of string = ['Numero da Nota','Numero do Lote', 'Envio Síncrono(1=Sim, 0=Não)'] ;

var
 vAux, vNumLote, vSincrono, idDFESTR : String;
 idDFe : Integer;
 Sincrono : boolean;
 ImputValue : array of string;
 I : Integer;
begin

 SetLength(ImputValue, Length(CamposNomes));

 if InputQuery('WebServices Enviar',CamposNomes,ImputValue) then
 begin
   for I := Low(ImputValue) to High(ImputValue) do
   begin
     if ImputValue(i) = '' then
     Begin
       ShowMessage('É obrigatório informar o campo: '+CamposNomes(i));
       Abort;
     end;
   end;
 end;

continua ...

 

 

Editado 17 Maio, 2019 por kanedasam

[BigWings]

Separei o tópico por se tratar de assunto diferente.

Tópico original:

 

13 horas atrás, kanedasam disse:

Faltou as chaves dos indices as array... mas não foi culpa minha o fórum não aceita colchetes, por isso usarei  parênteses no lugar das arrays, depois é só trocar ...

Evite colar código como corpo da mensagem, anexe os arquivos modificados.

[kanedasam]

Em 18/05/2019 at 09:02, BigWings disse:

Separei o tópico por se tratar de assunto diferente.

Tópico original:

 

Evite colar código como corpo da mensagem, anexe os arquivos modificados.

 

Em 18/05/2019 at 09:02, BigWings disse:

Separei o tópico por se tratar de assunto diferente.

Tópico original:

 

Evite colar código como corpo da mensagem, anexe os arquivos modificados.

Sim e me desculpe....

Ok, só queria enfatizar os pontos de mudanças mas irei adotar a foma correta...

E o "Imputbox" estou ajustando além de varias Imputs, cada imput terá o seu formato próprio com Edit, Data, Spin, ListBox e outros.. e se possível com algumas validações...
Vamos ver se ficará viável...