7526 - Como utilizar variáveis na função ExecutaFormulárioSGI
Problema: Descrição do Problema: Exemplo da função ExecutaFormularSgi utilizando variáveis como parâmetro e não valores fixos.
Rotina / Tela: Funções em regras.
Solução: Solução: Segue exemplo:
Definir Alfa vNomeForm;
Definir Alfa VCodEmpSgi;
Definir Alfa VCodFilSgi;
Definir Alfa VNumPedSgi;
Definir Alfa VCodClisgi;
definir numero vcodcli;
definir alfa vParametros;
vNomeForm = FAlteraPedido;
IntParaAlfa(VSCodEmp, VCodEmpSgi);
IntParaAlfa(VSCodFil, VCodFilSgi);
IntParaAlfa(VSNumero, VNumPedSgi);
vParametros = E120PED.CodEmp = '+VCodEmpSgi+';E120PED.CodFil = '+VCodFilSgi+';E120PED.NumPed = '+VNumPedSgi+';;
ExecutaFormularioSGI(vNomeForm,vParametros);
Rotina / Tela: Funções em regras.
Solução: Solução: Segue exemplo:
Definir Alfa vNomeForm;
Definir Alfa VCodEmpSgi;
Definir Alfa VCodFilSgi;
Definir Alfa VNumPedSgi;
Definir Alfa VCodClisgi;
definir numero vcodcli;
definir alfa vParametros;
vNomeForm = FAlteraPedido;
IntParaAlfa(VSCodEmp, VCodEmpSgi);
IntParaAlfa(VSCodFil, VCodFilSgi);
IntParaAlfa(VSNumero, VNumPedSgi);
vParametros = E120PED.CodEmp = '+VCodEmpSgi+';E120PED.CodFil = '+VCodFilSgi+';E120PED.NumPed = '+VNumPedSgi+';;
ExecutaFormularioSGI(vNomeForm,vParametros);