Salve salve....
Ponto de entrada CN121PED - ( Medição de contrato )
CNTA121-CN121PED - Alterar valor do Array aCab a Itens
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} CN121PED
Alterar valor do Array aCab a Itens
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function CN121PED()
Local aCab := ParamIXB[01] as array
Local aItens := ParamIXB[02] as array
Local lVenda := .F. as logical
Local lCompra := .F. as logical
Local cCNDCONTRA := '' as character
Local cQuery := '' as character
Local cCRLF := CRLF as character
Local cFilCtr := '' as character
Local nX := 00 as numeric
Local nIndex := 00 as numeric
Local oModel := Nil as object
Local oModelCND := Nil as object
Local oModelCXN := Nil as object
Local oModelCNE := Nil as object
Local oModelCXI := Nil as object
Local oModelCXJ := Nil as object
Local oModelCNQ := Nil as object
Local oModelCNU := Nil as object
Local oModelCNZ := Nil as object
Local oModelCNR1 := Nil as object
Local oModelCNR2 := Nil as object
Local oModelCZY := Nil as object
If !(Empty(aCab) .OR. Empty(aItens))
oModel := FwModelActive()
oModelCND := oModel:GetModel("CNDMASTER")
oModelCXN := oModel:GetModel("CXNDETAIL")
oModelCNE := oModel:GetModel("CNEDETAIL")
oModelCXI := oModel:GetModel("CXIDETAIL")
oModelCXJ := oModel:GetModel("CXJDETAIL")
oModelCNQ := oModel:GetModel("CNQDETAIL")
oModelCNU := oModel:GetModel("CNUDETAIL")
oModelCNZ := oModel:GetModel("CNZDETAIL")
oModelCNR1 := oModel:GetModel("CNRDETAIL1")
oModelCNR2 := oModel:GetModel("CNRDETAIL2")
oModelCZY := oModel:GetModel('CZYDETAIL')
lVenda := Cn121RetSt( "VENDA" , 0, /*cPlan*/, /*cContra*/, .T., oModel )
lCompra := Cn121RetSt( "COMPRA" , 0, /*cPlan*/, /*cContra*/, .T., oModel )
cCNDCONTRA := oModel:GetValue("CNDMASTER", "CND_CONTRA")
cFilCtr := oModelCND:GetValue("CND_FILCTR")
If lCompra
Endif
EndIf
Return( {aCab,aItens} )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima