Histórico da Página

//Ejemplo

User function LiqPrim()
Local oMdlTab
Local cEspecie := "1" //1 - Pagar, 2 - recibir
Local cLiquid := "1" //1 - Primaria, 2 - Secundaria
Local cTipLiq := "1" //1 - Parcial, 2 - Final, 3 - Total

        oMdlTab := FwLoadModel("FISA828")

//Operación a realizar
oMdlTab:SetOperation(MODEL_OPERATION_INSERT)

oMdlTab:Activate()
oMdlTab:SetValue('NJC_MASTER', 'NJC_PTOEMI', "0001" )
oMdlTab:SetValue('NJC_MASTER', 'NJC_PROVEN', "BA" )
oMdlTab:SetValue('NJC_MASTER', 'NJC_PROPRO', "00001 " )
oMdlTab:SetValue('NJC_MASTER', 'NJC_TIPO ', cTipLiq )
oMdlTab:SetValue('NJC_MASTER', 'NJC_TPLIQ ', cLiquid )
oMdlTab:SetValue('NJC_MASTER', 'NJC_ESPLIQ', cEspecie )

oMdlTab:SetValue('NJC_MASTER', 'NJC_PROVOR', "BA" )
oMdlTab:SetValue('NJC_MASTER', 'NJC_VENDED', "000001" ) //Código del proveedor
oMdlTab:SetValue('NJC_MASTER', 'NJC_LOJAVE', "01" ) //Loja del proveedor
oMdlTab:SetValue('NJC_MASTER', 'NJC_REMITO', "140120210001" ) //Serie de ítem Número del remito a ser usado 
oMdlTab:SetValue('NJC_MASTER', 'NJC_SERREM', "R " ) //Serie del remito a ser usado para la carga
oMdlTab:SetValue('NJC_MASTER', 'NJC_DATAFP', ddatabase )

oMdlTab:SetValue('NJC_MASTER', 'NJC_ACTCOR', "2" )
oMdlTab:SetValue('NJC_MASTER', 'NJC_LIQCOR', "2" )
oMdlTab:SetValue('NJC_MASTER', 'NJC_CORRED', "000001" ) //Codigo del corredor
oMdlTab:SetValue('NJC_MASTER', 'NJC_LOJCOR', "01" ) //Tienda del corredor

//Función para completar la información a partir del remito.
F828auto()

If oMdlTab:VldData()
      oMdlTab:CommitData()
      MsgInfo("Registro insertado con exito.")
EndIf

oMdlTab:DeActivate()

Return

static User function LiqSecRLiqSec()
Local oMdlTab
Local cEspecie := "2" //1 - Pagar, 2 - recibir
Local cLiquid := "2" //1 - Primaria, 2 - Secundaria
Local cTipLiq := "1" //1 - Parcial, 2 - Final, 3 - TotalLocal cPergunte := "FISA828"

oMdlTab := FwLoadModel("FISA828")

oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
oMdlTab:Activate()
oMdlTab:SetValue('NJC_MASTER', 'NJC_PTOEMI', "0001" )
oMdlTab:SetValue('NJC_MASTER', 'NJC_PROVEN', "BA" )
oMdlTab:SetValue('NJC_MASTER', 'NJC_PROPRO', "00001 " )
oMdlTab:SetValue('NJC_MASTER', 'NJC_TIPO ', cTipLiq )
oMdlTab:SetValue('NJC_MASTER', 'NJC_TPLIQ ', cLiquid )
oMdlTab:SetValue('NJC_MASTER', 'NJC_ESPLIQ', cEspecie )

oMdlTab:SetValue('NJC_MASTER', 'NJC_PROVOR', "BA" )
oMdlTab:SetValue('NJC_MASTER', 'NJC_CODPRO', "000001" ) //Código del cliente
oMdlTab:SetValue('NJC_MASTER', 'NJC_TIENDA', "01" ) //Tienda del cliente
oMdlTab:SetValue('NJC_MASTER', 'NJC_REMITO', "000100000029" ) //Número del remito a ser usado
oMdlTab:SetValue('NJC_MASTER', 'NJC_SERREM', "R " ) // Serie del remito a ser usado
oMdlTab:SetValue('NJC_MASTER', 'NJC_DATAFP', ddatabase )

oMdlTab:SetValue('NJC_MASTER', 'NJC_ACTCOR', "2" )
oMdlTab:SetValue('NJC_MASTER', 'NJC_LIQCOR', "2" )
oMdlTab:SetValue('NJC_MASTER', 'NJC_CORRED', "000001" ) //Codigo del corredor
oMdlTab:SetValue('NJC_MASTER', 'NJC_LOJCOR', "01" ) //Tienda del corredor

//Función para completar la información a partir del remito.
F828auto()

If oMdlTab:VldData()
oMdlTab       oMdlTab:CommitData()
MsgInfo       MsgInfo("Registro Inserido com Sucesso.")
Else
VarInfo("",oMdlTab:GetErrorMessage())
EndIf

oMdlTab:DeActivate()

Return

1. Automatizar a rutina e generar scripts de automatización.