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 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" ) oMdlTab:SetValue('NJC_MASTER', 'NJC_LOJCOR', "01" )
//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 |