Jump to content

dev botao

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


kanedasam
  • Este tópico foi criado há 1999 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

9a19c3156c7ef77ea6c44bd4a81e2e04-full.pn

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

 

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 ...

 

 

Edited by kanedasam
Link to comment
Share on other sites

  • Moderadores

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.

  • Like 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

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...  
 

Link to comment
Share on other sites

  • Este tópico foi criado há 1999 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.