MMC Ter8 cc801306 0047 Terceiros

[FUNCLIB_OF.FLOW_FLG_BBL.
FieldFormula]
/***
BRLOC - BI - HAT - 8.01 -13/09/2001
Descricao: Chamada dos Paineis de estoque automaticamente(EXPRESS_ISSUE,PUTAWAY
_EXPRESS) para ser utilizado na solucao das novas operaoes fiscais
********************************************************************************
*****************************************
Leandro Rodrigues da Silva Souza - mmcbsds4813 Tuning - Melhorar o tempo do proc
esso de confirmao de nota fiscal
********************************************************************************
****************************************/
Function Select_NF_HDR_BBL_FS();
SQLExec("SELECT FLOW_ID_BBL, NF_IN_FLG_BBL, BUSINESS_UNIT_IN, SHIP_TO_CUST_ID
, ADDRESS_SEQ_SHIP, FLOW_BUS_UNIT_IN, STORAGE_AREA, STOR_LEVEL_1, STOR_LEVEL_2,
STOR_LEVEL_3, STOR_LEVEL_4 ,BUSINESS_UNIT_IN,RMNEIO_ID_BBL, LOCATION, DESTIN_BU
FROM PS_NF_HDR_BBL_FS WHERE NF_BRL_ID=:1 AND BUSINESS_UNIT=:2", &NF_BRL_ID, &BUS
_UNIT, &FLOW_ID_BBL, &NF_IN_FLG_BBL, &BUSINESS_UNIT_IN, &SHIP_TO_CUST_ID, &ADDRE
SS_SEQ_SHIP, &FLOW_BUS_UNIT_IN, &STORAGE_AREA, &STOR_LEVEL_1, &STOR_LEVEL_2, &ST
OR_LEVEL_3, &STOR_LEVEL_4, &BUSINESS_UNIT_IN, &RMNEIO_ID_BBL, &LOC_DEST_TO, &DES
T_TO);
End-Function;
Function Select_NF_FLOW_BBL();
SQLExec("SELECT RMA_FLG_BBL, AR_FLG_BBL, PND_ITEM_TYPE_BBL, DOC_CLASS_BBL,GL_
FLG_BBL,NF_ACT_TMPL_BBL, DT_FLG_BBL, DT_TERM_BBL, CALC_FLG_BBL, LINK_FLG_BBL, SH
IP_FLG_BBL, SHIP_TRAN_FLG_BBL, RECV_FLG_BBL, RECV_TRAN_FLG_BBL, LOCATION_TO, NF_
ACT_TMPL_BBL,DESCR50 FROM PS_NF_FLOW_BBL WHERE SETID = :1 AND FLOW_ID_BBL = :2",
&SETID, &FLOW_ID_BBL, &RMA_FLG_BBL, &AR_FLG_BBL, &PND_ITEM_TYPE_BBL, &DOC_CLASS
_BBL, &GL_FLG_BBL, &NF_ACT_TMPL_BBL, &DT_FLG_BBL, &DT_TERM_BBL, &CALC_FLG_BBL, &
LINK_FLG_BBL, &SHIP_FLG_BBL, &SHIP_TRAN_FLG_BBL, &RECV_FLG_BBL, &RECV_TRAN_FLG_B
BL, &LOCATION_TO, &NF_ACT_TMPL_BBL, &DESCR50);
End-Function;
Function Select_NF_FLOW_DRV_BBL();
SQLExec("SELECT FLOW_ID_DRV_BBL, SHIPTO_FLG_BBL, TOF_PBL FROM PS_NF_FLOW_DRV_
BBL WHERE SETID = :1 AND FLOW_ID_BBL = :2 ", &SETID, &FLOW_ID_BBL, &FLOW_ID_DRV_
BBL, &SHIPTO_FLG_BBL, &TOF_PBL);
End-Function;
Function Select_NF_LN_BBL_FS();
SQLExec("SELECT DEMAND_SOURCE FROM PS_NF_LN_BBL_FS WHERE BUSINESS_UNIT = :1 A
ND NF_BRL_ID = :2 AND NF_BRL_LINE_NUM = 1 ", &BUS_UNIT, &NF_BRL_ID, &DEMAND_SOUR
CE);
End-Function;
Function call_pages_inv(&NF, &BU) Returns boolean ;
&NF_BRL_ID = &NF;
&BUS_UNIT = &BU;
&SETID = GetSetId("BUSINESS_UNIT", &BU, Record.NF_HDR_BBL_FS, "");
/******* mmcbsds4813.on *********
Select_NF_HDR_BBL_FS();
Select_NF_FLOW_BBL();
Select_NF_FLOW_DRV_BBL();
******* mmcbsds4813.oe ********/
If All(&FLOW_ID_BBL) And
(None(&DEMAND_SOURCE) Or
&DEMAND_SOURCE = "OM") And
&NF_IN_FLG_BBL <> "Y" Then
/******
Definicao de Variaveis a serem usadas nos Insert abaixos
******/
&TASK_ID = 0;
&USER = %OperatorId;
&DATE = %Date;
/***
Chamar a EXPRESS_ISSUE para fazer requisio externa
***/
If &SHIP_FLG_BBL = "Y" Then
/****
Zera Flags de acompanhamento de processamento
****/
MSR_EXP_BBL_WRK.FLAG_RETURN_OK = "N";
MSR_EXP_BBL_WRK.FLAG = "N";
&ACTION = "A";
MSR_EXP_BBL_WRK.BUSINESS_UNIT = &BUSINESS_UNIT_IN;
MSR_EXP_BBL_WRK.CUST_ID = &SHIP_TO_CUST_ID;
MSR_EXP_BBL_WRK.ADDRESS_SEQ_SHIP = &ADDRESS_SEQ_SHIP;
MSR_EXP_BBL_WRK.BUSINESS_UNIT_BI = &BUS_UNIT;
MSR_EXP_BBL_WRK.NF_BRL_ID = &NF_BRL_ID;
MSR_EXP_BBL_WRK.ORDER_NO = "NEXT";
MSR_EXP_BBL_WRK.REQUEST_TYPE = "E";
MSR_EXP_BBL_WRK.BUSINESS_UNIT_IN = &BUSINESS_UNIT_IN;
MSR_EXP_BBL_WRK.LOCATION = &LOC_DEST_TO;
MSR_EXP_BBL_WRK.DESTIN_BU = &DEST_TO;
/* BRLOC-BI-FARID-NEW-BEGIN-14/01/2004 ICE RESOL 150351
*/
/* Descrio: inclusao dos campos MSR_EXP_BBL_WRK.LOCATION e MSR_EXP_BBL_WR
K.DESTIN_BU para */
/* as tranferencias entre unidades
*/
/* BRLOC-BI-FARID-END-BEGIN-14/01/2004 ICE RESOL 150351
*/
DoModalPanelGroup(MenuName.FULFILL_STOCK_ORDERS, BarName.USE2, ItemName
.EXPRESS_ISSUE, Panel.EXPRESS_ISSUE, &ACTION, Record.MSR_EXP_BBL_WRK);
If MSR_EXP_BBL_WRK.FLAG_RETURN_OK = "Y" Then
&INVENTORY_FLAG = "Y";
&TASK_DESC = "Express Issue processado com sucesso ";
Else
&INVENTORY_FLAG = "N";
&TASK_DESC = "Express Issue no processado.Precisa ser feito manualmen
te";
End-If;
/****
Grava log de processamento inventario
****/
&TASK_ID = &TASK_ID + 1;
If &TASK_ID <> 1 Then
InsertRow(Scroll.NF_INV_LOG_BBL, &TASK_ID - 1, True);
End-If;
/* InsertRow(Record.NF_INV_LOG_BBL, 1); */
UpdateValue(NF_INV_LOG_BBL.BUSINESS_UNIT, 1, MSR_EXP_BBL_WRK.BUSINESS_U
NIT_BI);
UpdateValue(NF_INV_LOG_BBL.NF_BRL_ID, 1, MSR_EXP_BBL_WRK.NF_BRL_ID);
UpdateValue(NF_INV_LOG_BBL.TASK_ID, 1, &TASK_ID);
UpdateValue(NF_INV_LOG_BBL.TASK_DESC, 1, &TASK_DESC);
UpdateValue(NF_INV_LOG_BBL.CREATED_BY_USER, 1, &USER);
UpdateValue(NF_INV_LOG_BBL.CREATE_DATE, 1, &DATE);
UpdateValue(NF_INV_LOG_BBL.INVENTORY_FLAG, 1, &INVENTORY_FLAG);
End-If;
/***
Chamar a EXPRESS_ISSUE para fazer requisio de transferencia entre unidades
***/
If &SHIP_TRAN_FLG_BBL = "Y" Then
/****
****/
&ACTION = "A";
MSR_EXP_BBL_WRK.ORDER_NO = &NF_BRL_ID;
MSR_EXP_BBL_WRK.REQUEST_TYPE = "U";
MSR_EXP_BBL_WRK.FLOW_BUS_UNIT_IN = &FLOW_BUS_UNIT_IN;
MSR_EXP_BBL_WRK.RMNEIO_ID_BBL = &RMNEIO_ID_BBL;
/* BRLOC-BI-FARID-NEW-BEGIN-14/01/2004
*/
/* BRLOC-BI-FARID-END-BEGIN-14/01/2004 ICE RESOL 150351
*/
&TASK_DESC = "Express Issue (Transferencia) Saida processada com suc
esso";
Else
&TASK_DESC = "Express Issue (Transferencia) Saida no processada.Preci
sa ser feito manualmente";
End-If;
/****
****/
End-If;
UpdateValue(NF_INV_LOG_BBL.BUSINESS_UNIT, &TASK_ID, MSR_EXP_BBL_WRK.BUS
INESS_UNIT_BI);
UpdateValue(NF_INV_LOG_BBL.NF_BRL_ID, &TASK_ID, MSR_EXP_BBL_WRK.NF_BRL_
ID);
UpdateValue(NF_INV_LOG_BBL.TASK_ID, &TASK_ID, &TASK_ID);
UpdateValue(NF_INV_LOG_BBL.TASK_DESC, &TASK_ID, &TASK_DESC);
UpdateValue(NF_INV_LOG_BBL.CREATED_BY_USER, &TASK_ID, &USER);
UpdateValue(NF_INV_LOG_BBL.CREATE_DATE, &TASK_ID, &DATE);
UpdateValue(NF_INV_LOG_BBL.INVENTORY_FLAG, &TASK_ID, &INVENTORY_FLAG);
/****
Fazer o DEPLETION para que possa ser feita o recebimento da transferencia
****/
End-If;
&TASK_DESC = "Fazer o Depletion do EXPRESS ISSUE de transferencia ";
INESS_UNIT_BI);
ID);
/****
Grava registro no log de processamento inventario da tarefa a ser realizada
****/
End-If;
&TASK_DESC = "Fazer o Recebimento de transferencia entre unidades";
INESS_UNIT_BI);
ID);
UpdateValue(NF_INV_LOG_BBL.FLOW_BUS_UNIT_IN, &TASK_ID, &FLOW_BUS_UNIT_I
N);
UpdateValue(NF_INV_LOG_BBL.STORAGE_AREA, &TASK_ID, &STORAGE_AREA);
UpdateValue(NF_INV_LOG_BBL.STOR_LEVEL_1, &TASK_ID, &STOR_LEVEL_1);
End-If;
/***
Chamar a PUTAWAY_EXPRESS para fazer entrada expressa
***/
If &RECV_FLG_BBL = "Y" Then
/****
****/
&ACTION = "U";
MSR_EXP_BBL_WRK.ORDER_NO = "NEXT";
DoModalPanelGroup(MenuName.PUTAWAY_STOCK, BarName.USE, ItemName.EXPRESS
_PUTAWAY, Panel.EXPRESS_PUTAWAY, &ACTION, Record.MSR_EXP_BBL_WRK);
&TASK_DESC = "Putaway Express (Entrada) processada com sucesso ";
Else
&TASK_DESC = "Putaway Express (Entrada) no processada.Precisa ser fei
to manualmente ";
End-If;
/****
****/
End-If;
INESS_UNIT_BI);
ID);
End-If;
/***
Chamar a EXPRESS_ISSUE para fazer Transferencia como sendo entrada
***/
If &RECV_TRAN_FLG_BBL = "Y" Then
/****
****/
MSR_EXP_BBL_WRK.FLAG = "Y";
&ACTION = "A";
MSR_EXP_BBL_WRK.BUSINESS_UNIT = &FLOW_BUS_UNIT_IN;
MSR_EXP_BBL_WRK.ORDER_NO = &NF_BRL_ID;
MSR_EXP_BBL_WRK.FLOW_BUS_UNIT_IN = &BUSINESS_UNIT_IN;
&TASK_DESC = "Express Issue (Transferencia) Saida processada com suc
esso";
Else
&TASK_DESC = "Express Issue (Transferencia) Saida no processada.Preci
sa ser feito manualmente";
End-If;
/****
****/
End-If;
INESS_UNIT_BI);
ID);
/****
Fazer o DEPLETION para que possa ser feita o recebimento da transferencia
****/
End-If;
&TASK_DESC = "Fazer o Depletion do EXPRESS ISSUE de transferencia ";
INESS_UNIT_BI);
ID);
/****
Grava registro no log de processamento inventario da tarefa a ser realizada
****/

End-If;
&TASK_DESC = "Fazer o Recebimento de transferencia entre unidades";
INESS_UNIT_BI);
ID);
UpdateValue(NF_INV_LOG_BBL.FLOW_BUS_UNIT_IN, &TASK_ID, &BUSINESS_UNIT_I
N);
End-If;
SQLExec("UPDATE PS_NF_HDR_BBL_FS SET NF_IN_FLG_BBL = 'Y' WHERE NF_BRL_ID=:
1 AND BUSINESS_UNIT=:2", &NF_BRL_ID, &BUS_UNIT);
Return True;
End-If;
/***
BRLOC-BI-HAT-NEW-END-13/09/2001
***/
End-Function;
[FUNCLIB_OF.FLOW_ID_BBL.FieldFormula]
/*** DECLARAES ***/
Declare Function replace_meta_data PeopleCode FUNCLIB_OM.RULE_ID_PBL FieldFormul
a;
/*** NF Derived ***/
Local array of string &d_value;
Local array of string &d_doc;
Local array of string &d_flowid;
Local array of string &d_tof;
Local array of string &d_lttof;
Local array of string &d_shipto;
Local array of string &d_ar;
Local array of string &d_arp;
/*** NF Text Related ***/
Local array of string &t_doc;
Local array of string &t_text;
/**** Value Formulate ***/
Local array of string &v_doc;
/*** NF Line - Value Formulate ***/
Local array of number &l_value;
Local array of number &l_seq;
Local array of number &l_qty;
Local array of string &l_item;
Local array of number &l_uvalue;
Local array of number &l_nvalue;
Local array of number &l_ouvalue;
Local array of number &l_onvalue;
/**** Variables beyond function escope ***/
/*PREP*/
Local string &NF_BRL_ID;
Local string &BUSINESS_UNIT;
Local string &SETID;
Local string &FLOW_ID_BBL;
Local string &FLOW_ID_BBL2;
Local string &TOF2;
Local string &BUS_UNIT_REF_BBL;
/*flow struct*/
Local string &DOC_CLASS_BBL;
Local string &DT_FLG_BBL;
Local number &DT_TERM_BBL;
Local string &PND_ITEM_TYPE_BBL;
Local string &RMA_FLG_BBL;
Local string &AR_FLG_BBL;
Local string &SHIP_TRAN;
Local string &RECV_TRAN;
/*HDR*/
/*Local string &BUSINESS_UNIT;*/
/*Local string &NF_BRL_ID;*/
Local string &NF_BRL_SERIES;
Local string &SHIP_TO_CUST_ID;
Local number &ADDRESS_SEQ_SHIP;
Local string &LOCATION;
Local string &DESTIN_BU;
Local string &BILL_TO_CUST_ID;
Local number &ADDRESS_SEQ_NUM;
Local string &NF_BRL_TYPE;
Local string &SHIP_FROM_STATE;
Local string &SHIP_BRL_TO_STATE;
Local string &BUSINESS_UNIT_GL;
Local string &CURRENCY_CD;
Local string &RT_TYPE;
Local number &RATE_MULT;
Local number &RATE_DIV;
Local string &CURRENCY_CD_BASE;
Local string &PYMENT_TERMS_CD;
Local string &COUNTRY;
Local string &STATE;
Local string &PRORATE_METH_BBL;
Local string &LT_GRP_ID_BBL;
Local string &TXN_NAT_BBL;
Local string &IN_OUT_CD_BBL;
/*Local string &PND_ITEM_TYPE_BBL;*/
/*Local string &RMA_FLG_BBL;*/
Local string &TIE_NF_FLG_BBL;
Local string &BUSINESS_UNIT_IN;
Local string &DST_ID_AR;
Local string &EF_LOC_BRL;
/*Local string &FLOW_ID_BBL2;*/
Local string &FLOW_BUS_UNIT_IN;
Local string &STORAGE_AREA;
Local string &STOR_LEVEL_1;
/*LT->HDR*/
/*Local string &NF_BRL_TYPE;*/
/*Local string &TXN_NAT_BBL;*/
/*Local string &IN_OUT_CD_BBL;*/
Local string
Local string
Local string
Local string
Local string
Local string
/*LINE*/
Local string
Local string
Local string
Local string
Local number
Local number
Local number
Local string
Local number
Local number
Local string
Local string
Local string
Local string
Local string
Local string
Local string
Local string
Local string
Local string
Local number
Local string
Local string
Local number
Local number
Local number
Local number
Local number
Local number
Local number
Local number
Local number
Local string
Local string
Local string
Local string
Local number
Local string
/**/
Local string
Local string
/**/
Local string
&CFOP_STATE_BBL;
&CFOP_EXT_STATE_BBL;
&CFOP_INTST_BBL;
&CFOP_EXT_INTST_BBL;
&CFOP_INTNT_BBL;
&CFOP_EXT_INTNT_BBL;
&NF_BRL_LINE_NUM;
&INVITEM_SETID;
&INV_ITEM_ID;
&DESCR;
&MERCHANDISE_AMT;
&MERCH_AMT_BSE;
&QTY_NF_BRL;
&UNIT_OF_MEASURE;
&UNIT_PRICE;
&NET_UNIT_PRICE;
&CURRENCY_CD2;
&CURRENCY_CD_BASE2;
&CFO_BRL_CD;
&PURCH_PROP_BRL;
&TAX_CLASS_BRL;
&TOF_PBL;
&NF_LINE_TYPE_BBL;
&DEMAND_SOURCE;
&SOURCE_BUS_UNIT;
&PRODUCT_ID;
&KIT_LINE_NBR;
&ITEM_ORIGIN_BBL;
&CFOP_EXT_CD_BBL;
&UNIT_AMT_BSE_BBL;
&NET_AMT_BSE_BBL;
&UNIT_COST;
&LT_IPI_BSE_BBL;
&LT_ICMS_BSE_BBL;
&LT_ICMS_ST_BSE_BBL;
&LT_PIS_BSE_BBL;
&LT_COFINS_BSE_BBL;
&LT_ISS_BSE_BBL;
&NF_ACT_TMPL_BBL;
&DST_ID_DIS;
&DST_ID_REV;
&DST_ID_SUR;
&LT_PISS_BSE_BBL;
&IF_BRL;
&COUNTRY_FROM;
&COUNTRY_TO;
&LIXO;
Function Declare_Scroll_DRV();
&d_value = CreateArrayRept("", 0);
&d_doc = CreateArrayRept("", 0);
&d_flowid = CreateArrayRept("", 0);
&d_tof = CreateArrayRept("", 0);
&d_lttof = CreateArrayRept("", 0);
&d_shipto = CreateArrayRept("", 0);
&d_ar = CreateArrayRept("", 0);
&d_arp = CreateArrayRept("", 0);
End-Function;
Function Declare_Scroll_REL();
&t_doc = CreateArrayRept("", 0);
&t_text = CreateArrayRept("", 0);
End-Function;
Function Declare_Scroll_FRM();
&v_doc = CreateArrayRept("", 0);
End-Function;
/*** GERAIS ***/
Function GetSetId_Flow(&BUSINESS_UNIT) Returns string ;
&RET_SETID = GetSetId("BUSINESS_UNIT", &BUSINESS_UNIT, Record.NF_FLOW_BBL, ""
);
Return (&RET_SETID);
End-Function;
Function GetSetId_Cust(&BUSINESS_UNIT) Returns string ;
&RET_SETID = GetSetId("BUSINESS_UNIT", &BUSINESS_UNIT, Record.CUSTOMER, "");
End-Function;
Function GetSetId_LT(&BUSINESS_UNIT) Returns string ;
&RET_SETID = GetSetId("BUSINESS_UNIT", &BUSINESS_UNIT, Record.LT_GRP_BBL, "")
;
End-Function;
Function GetSetId_Loc(&BUSINESS_UNIT) Returns string ;
&RET_SETID = GetSetId("BUSINESS_UNIT", &BUSINESS_UNIT, Record.LOCATION_TBL, "
");
End-Function;
Function GetNbrStart() Returns number ;
&QRY = "SELECT NF_BRL_NUM_LASTUSE FROM PS_INSTALLATION ";
SQLExec(&QRY, &RET);
Return &RET;
End-Function;
/*** BRLOC_BI - SBRITO - JUL/2001 - Pega dados da NF ***/
Function GetNF_FlowID(&NF_BRL_ID, &BUSINESS_UNIT) Returns string ;
&QRY = "SELECT FLOW_ID_BBL FROM PS_NF_HDR_BBL_FS WHERE ";
&QRY = &QRY | " NF_BRL_ID=:1 AND BUSINESS_UNIT=:2 ";
SQLExec(&QRY, &NF_BRL_ID, &BUSINESS_UNIT, &RET);
Return &RET;
End-Function;
/*** BRLOC_BI - SBRITO - JUL/2001 - Pega Flow da NF ***/
Function GetFlow_Struct(&FLOW_ID_BBL, &SETID) Returns boolean ;
&QRY = "SELECT DOC_CLASS_BBL,DT_FLG_BBL,DT_TERM_BBL,PND_ITEM_TYPE_BBL,RMA_FLG
_BBL,";
&QRY = &QRY | "AR_FLG_BBL,SHIP_TRAN_FLG_BBL,RECV_TRAN_FLG_BBL ";
&QRY = &QRY | "FROM PS_NF_FLOW_BBL WHERE FLOW_ID_BBL=:1 AND SETID=:2 ";
SQLExec(&QRY, &FLOW_ID_BBL, &SETID, &DOC_CLASS_BBL, &DT_FLG_BBL, &DT_TERM_BBL
, &PND_ITEM_TYPE_BBL, &RMA_FLG_BBL, &AR_FLG_BBL, &SHIP_TRAN, &RECV_TRAN);
If All(&DOC_CLASS_BBL) Then
Return True;
Else
Return False;
End-If;
End-Function;
/*** BRLOC_BI - SBRITO - JUL/2001 - Pega NF Derived ***/
Function GetNF_Derived(&FLOW_ID_BBL, &SETID, &EXT, &LT_EXT, &TOF_EXT, &VAL_EXT)
Returns boolean ;
Declare_Scroll_DRV();
If &EXT = False Then
&QRY = "SELECT DOC_CLASS_BBL,FLOW_ID_DRV_BBL,SHIPTO_FLG_BBL,TOF_PBL,LT_GRP
_ID_BBL,";
&QRY = &QRY | "NF_VAL_CREATE_BBL,AR_FLG_BBL,PND_ITEM_TYPE_BBL FROM PS_NF_F
LOW_BBL A,PS_NF_FLOW_DRV_BBL B ";
&QRY = &QRY | "WHERE B.FLOW_ID_BBL=:1 AND B.SETID=:2 AND ";
&QRY = &QRY | "A.FLOW_ID_BBL=B.FLOW_ID_BBL AND A.SETID=B.SETID ";
&SQL2 = CreateSQL(&QRY, &FLOW_ID_BBL, &SETID);
&RET = False;
While &SQL2.Fetch(&DOC_CLASS_BBL3, &FLOW_ID_DRV_BBL, &SHIPTO_FLG_BBL, &TOF
_PBL, &LT_GRP_ID_BBL, &NF_VAL_CREATE_BBL, &AR_FLG_BBL2, &PYMENT_TERMS_CD2)
&d_flowid.Push(&FLOW_ID_DRV_BBL);
&d_value.Push(&NF_VAL_CREATE_BBL);
&d_doc.Push(&DOC_CLASS_BBL3);
&d_tof.Push(&TOF_PBL);
&d_lttof.Push(&LT_GRP_ID_BBL);
&d_shipto.Push(&SHIPTO_FLG_BBL);
&d_ar.Push(&AR_FLG_BBL2);
&d_arp.Push(&PYMENT_TERMS_CD2);
&RET = True;
End-While;
&SQL2.Close();
Else
&RET = True;
&d_flowid.Push(&FLOW_ID_BBL);
&d_value.Push(&VAL_EXT);
&d_doc.Push(&DOC_CLASS_BBL);
&d_tof.Push(&TOF_EXT);
&d_lttof.Push(&LT_EXT);
&d_shipto.Push("N");
&d_ar.Push(&AR_FLG_BBL);
&d_arp.Push(&PND_ITEM_TYPE_BBL);
End-If;
Return &RET;
End-Function;
/*** BRLOC_BI - SBRITO - JUL/2001 - Pega 1a NF do processo ***/
Function GetNF_Father(&NF_BRL_ID, &BUSINESS_UNIT) Returns string ;
&RET = "";
&QRY = "SELECT NF_PAI_ID_BBL,BUS_UNIT_REF_BBL FROM PS_NF_LINK_BBL WHERE ";
SQLExec(&QRY, &NF_BRL_ID, &BUSINESS_UNIT, &RET, &BUS_UNIT_REF_BBL);
If None(&RET) Or
&RET = "" Then
&RET = &NF_BRL_ID;
&BUS_UNIT_REF_BBL = &BUSINESS_UNIT;
End-If;
Return &RET;
End-Function;
/*** RESOLUO DE TEXTOS RELACIONADOS ***/
/*** BRLOC_BI - SBRITO - JUL/2001 - Pega NF's Text Related ***/

Function GetNF_Related(&FLOW_ID_BBL, &SETID) Returns boolean ;
Declare_Scroll_REL();
&QRY = "SELECT DOC_CLASS_BBL,TEXT_PBL FROM PS_NF_FLOW_REF_BBL ";
&QRY = &QRY | "WHERE FLOW_ID_BBL=:1 AND SETID=:2 ";
&SQL2 = CreateSQL(&QRY, &FLOW_ID_BBL, &SETID);
&RET = False;
While &SQL2.Fetch(&DOC_CLASS_BBL3, &TEXT_PBL)
&t_text.Push(&TEXT_PBL);
&t_doc.Push(&DOC_CLASS_BBL3);
&RET = True;
End-While;
&SQL2.Close();
Return &RET;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Get NF's Related ***/
Function GetTextRelated(&BU_REF, &NF_PAI, &BU, &NF, &doc) Returns string ;
&QRY = "SELECT NF_BRL,NF_BRL_SERIES FROM PS_NF_LINK_BBL A,PS_NF_HDR_BBL_FS B
";
&QRY = &QRY | "WHERE A.NF_PAI_ID_BBL=:1 AND A.BUS_UNIT_REF_BBL=:2 ";
&QRY = &QRY | "AND A.NF_BRL_ID=B.NF_BRL_ID AND A.BUSINESS_UNIT=B.BUSINESS_UNI
T ";
&QRY = &QRY | "AND B.DOC_CLASS_BBL IN (" | &doc | ") ";
&NEW_TEXT = "";
&SQL2 = CreateSQL(&QRY, &NF_PAI, &BU_REF);
While &SQL2.Fetch(&NF_BRL, &NF_BRL_SERIES)
If &NEW_TEXT > "" Then
&NEW_TEXT = &NEW_TEXT | ",";
End-If;
If &NF_BRL = "" Then
&NF_BRL = "<N-IMPRESSA>";
End-If;
&NEW_TEXT = &NEW_TEXT | " NF: " | &NF_BRL | "Srie: " | &NF_BRL_SERIES | " "
;
End-While;
&QRY = "SELECT NF_BRL,NF_BRL_SERIES FROM PS_NF_HDR_BBL_FS ";
&QRY = &QRY | "WHERE NF_BRL_ID=:1 AND BUSINESS_UNIT=:2 ";
&QRY = &QRY | "AND DOC_CLASS_BBL IN (" | &doc | ") ";
&SQL2 = CreateSQL(&QRY, &NF_PAI, &BU_REF);
While &SQL2.Fetch(&NF_BRL, &NF_BRL_SERIES)
If &NEW_TEXT > "" Then
&NEW_TEXT = &NEW_TEXT | ",";
End-If;
If &NF_BRL = "" Then
&NF_BRL = "<N-IMPRESSA>";
End-If;
&NEW_TEXT = &NEW_TEXT | " NF: " | &NF_BRL | "Srie: " | &NF_BRL_SERIES | " "
;
End-While;
&SQL2.Close();
Return &NEW_TEXT;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Insert Text Related ***/
Function Insert_text(&TEXT, &DESCR, &NF_PRINT);
&Achou = False;
For &i = 1 To ActiveRowCount(Record.NF_H_TXT_BBL_FS);

&TEXT_ID = FetchValue(NF_H_TXT_BBL_FS.TEXT_PBL, &i);
&DESCR254 = FetchValue(NF_H_TXT_BBL_FS.DESCR254, &i);
If &TEXT_ID = &TEXT Then
&Achou = True;
End-If;
End-For;
If &Achou = False Then
If &i <= 2 And
None(&TEXT_ID, &DESCR254) Then
&LINE = 1;
Else
InsertRow(Record.NF_H_TXT_BBL_FS, &i - 1);
&LINE = &i;
End-If;
&DESCR = replace_meta_data(&DESCR);
/*WinMessage(" &I->" | &i | " &LINE->" | &LINE | " &TEXT->" | &TEXT | " &D
ESCR->" | &DESCR | " &NFP->" | &NF_PRINT);*/
UpdateValue(NF_H_TXT_BBL_FS.TEXT_PBL, &LINE, &TEXT);
UpdateValue(NF_H_TXT_BBL_FS.DESCR254, &LINE, &DESCR);
UpdateValue(NF_H_TXT_BBL_FS.TXT_NF_PRINT_BBL, &LINE, &NF_PRINT);
End-If;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Solve NF's Text Related ***/
Function Solve_Text_Related(&NF_BRL_ID, &BUSINESS_UNIT);
&FLOW_ID_BBL = GetNF_FlowID(&NF_BRL_ID, &BUSINESS_UNIT);
&SETID_FLOW = GetSetId_Flow(&BUSINESS_UNIT);
If All(&FLOW_ID_BBL) Then
If GetNF_Related(&FLOW_ID_BBL, &SETID_FLOW) Then
&t_doc2 = CreateArrayRept("", 0);
&t_text2 = CreateArrayRept("", 0);
&k = 0;
For &i = 1 To &t_text.Len
&doc = &t_doc[&i];
&text = &t_text[&i];
&pos = &t_text2.Find(&text);
If &pos <= 0 Then
&t_text2.Push(&text);
&t_doc2.push("");
&k = &k + 1;
For &j = &i To &t_doc.Len
If &t_text[&j] = &text Then
If &t_doc2[&k] = "" Then
&t_doc2[&k] = "'" | &t_doc[&j] | "'";
Else
&t_doc2[&k] = &t_doc2[&k] | ",'" | &t_doc[&j] | "'";
End-If;
Else
End-If;
End-For;
Else
End-If;
End-For;
For &i = 1 To &t_text2.Len
&doc = &t_doc2[&i];
&text = &t_text2[&i];
&NF_PAI = GetNF_Father(&NF_BRL_ID, &BUSINESS_UNIT);
&NEW_TEXT = GetTextRelated(&BUS_UNIT_REF_BBL, &NF_PAI, &BUSINESS_UNI
T, &NF_BRL_ID, &doc);
SQLExec("select DESCR254, TXT_NF_PRINT_BBL from PS_TXTTBL_PBL where
TEXT_PBL = :1", &text, &DESCR, &NF_PRINT);
&DESCR = Substitute(&DESCR, "%%NF-RELAC%%", &NEW_TEXT);
Insert_text(&text, &DESCR, &NF_PRINT);
End-For;
Else
End-If;
Else
End-If;
End-Function;
/*** RESOLUO DE HEADER ***/
/*** BRLOC_BI - SBRITO - AGO/2001 - Pega dst_id_ar ***/
Function GetDST_ID_AR(&SETID, &CUST_ID) Returns string ;
&QRY = "SELECT DST_ID_AR,PYMNT_TERMS_CD FROM PS_CUST_OPTION A WHERE ";
&QRY = &QRY | " A.SETID = :1 AND A.CUST_ID = :2 AND A.EFFDT = ( ";
&QRY = &QRY | " SELECT MAX(B.EFFDT) FROM PS_CUST_OPTION B ";
&QRY = &QRY | " WHERE B.SETID = A.SETID AND B.CUST_ID = A.CUST_ID ";
&QRY = &QRY | " AND A.EFFDT <= %currentdatein) AND A.EFF_STATUS = 'A' ";
SQLExec(&QRY, &SETID, &CUST_ID, &RET, &PYMENT_TERMS_CD);
Return &RET;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Pega dados de CFOP da OF ***/
Function GetOF_Data(&TOF);
&QRY = "SELECT F.CFOP_STATE_BBL,F.CFOP_EXT_STATE_BBL,F.CFOP_INTST_BBL,F.CFOP_
EXT_INTST_BBL,";
&QRY = &QRY | "F.CFOP_INTNT_BBL,F.CFOP_EXT_INTNT_BBL FROM PS_TOF_TYPE_PBL F W
HERE ";
&QRY = &QRY | " F.TOF_PBL = :1 AND F.EFFDT = ( ";
&QRY = &QRY | " SELECT MAX(B.EFFDT) FROM PS_TOF_TYPE_PBL B WHERE ";
&QRY = &QRY | " B.TOF_PBL = F.TOF_PBL AND B.EFFDT <= %currentdatein) AND F.EF
F_STATUS = 'A' ";
SQLExec(&QRY, &TOF, &CFOP_STATE_BBL, &CFOP_EXT_STATE_BBL, &CFOP_INTST_BBL, &C
FOP_EXT_INTST_BBL, &CFOP_INTNT_BBL, &CFOP_EXT_INTNT_BBL);
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Determina CFOP da NF ***/
Function setCFOP();
If All(&SHIP_FROM_STATE) And
All(&SHIP_BRL_TO_STATE) Then
If &SHIP_FROM_STATE = &SHIP_BRL_TO_STATE Then
&CFO_BRL_CD = &CFOP_STATE_BBL;
&CFO_EXT_CD_BBL = &CFOP_EXT_STATE_BBL;
Else
&CFO_BRL_CD = &CFOP_INTST_BBL;
&CFO_EXT_CD_BBL = &CFOP_EXT_INTST_BBL;
If All(&COUNTRY_FROM) And
All(&COUNTRY_TO) Then
If &COUNTRY_FROM = &COUNTRY_TO Then
Else
&CFO_BRL_CD = &CFOP_INTNT_BBL;
&CFO_EXT_CD_BBL = &CFOP_EXT_INTNT_BBL;
End-If;
Else
End-If;
End-If
Else
End-If;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Pega dados do grupo de OF ***/
Function GetLT_Data(&SETID, &LTGRP);
/*A.PND_ITEM_TYPE_BBL*/
&QRY = "SELECT A.NF_BRL_TYPE,A.TXN_NAT_BBL,A.IN_OUT_CD_BBL FROM PS_LT_GRP_BBL
A WHERE ";
&QRY = &QRY | " A.SETID = :1 AND A.LT_GRP_ID_BBL = :2 AND A.EFFDT = ( ";
&QRY = &QRY | " SELECT MAX(B.EFFDT) FROM PS_LT_GRP_BBL B WHERE ";
&QRY = &QRY | " B.SETID = A.SETID AND B.LT_GRP_ID_BBL = A.LT_GRP_ID_BBL ";
&QRY = &QRY | " AND B.EFFDT <= %currentdatein) AND A.EFF_STATUS = 'A' ";
SQLExec(&QRY, &SETID, &LTGRP, &NF_BRL_TYPE, &TXN_NAT_BBL, &IN_OUT_CD_BBL);
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Pega dados da NF Pai***/
Function GetNF_HDR_Data(&NF_BRL_ID, &BUSINESS_UNIT);
&QRY = "SELECT SHIP_TO_CUST_ID,ADDRESS_SEQ_SHIP,EF_LOC_BRL,";
&QRY = &QRY | "TXN_NAT_BBL,FLOW_BUS_UNIT_IN,STORAGE_AREA,";
&QRY = &QRY | "STOR_LEVEL_1,STOR_LEVEL_2,STOR_LEVEL_3,STOR_LEVEL_4,";
&QRY = &QRY | "FLOW_SHIP_ID_BBL,FLOW_LOCATION_BBL,";
&QRY = &QRY | "NF_BRL_SERIES,LOCATION,DESTIN_BU,BILL_TO_CUST_ID,";
&QRY = &QRY | "ADDRESS_SEQ_NUM,NF_BRL_TYPE,SHIP_FROM_STATE,SHIP_BRL_TO_STATE,
";
&QRY = &QRY | "PYMNT_TERMS_CD,DST_ID_AR,BUSINESS_UNIT_GL,";
&QRY = &QRY | "TXN_CURRENCY_CD, RT_TYPE,RATE_MULT, RATE_DIV,BASE_CURRENCY,";
&QRY = &QRY | "PRORATE_METH_BBL,BUSINESS_UNIT_IN,COUNTRY,STATE ";
&QRY = &QRY | " FROM PS_NF_HDR_BBL_FS WHERE ";
SQLExec(&QRY, &NF_BRL_ID, &BUSINESS_UNIT, &SHIP_TO_CUST_ID, &ADDRESS_SEQ_SHIP
, &EF_LOC_BRL, &TXN_NAT_BBL, &FLOW_BUS_UNIT_IN, &STORAGE_AREA, &STOR_LEVEL_1, &S
TOR_LEVEL_2, &STOR_LEVEL_3, &STOR_LEVEL_4, &FLOW_SHIP_ID_BBL, &FLOW_LOCATION_BBL
, &NF_BRL_SERIES, &LOCATION, &DESTIN_BU, &BILL_TO_CUST_ID, &ADDRESS_SEQ_NUM, &NF
_BRL_TYPE, &SHIP_FROM_STATE, &SHIP_BRL_TO_STATE, &PYMENT_TERMS_CD, &DST_ID_AR, &
BUSINESS_UNIT_GL, &CURRENCY_CD, &RT_TYPE, &RATE_MULT, &RATE_DIV, &CURRENCY_CD_BA
SE, &PRORATE_METH_BBL, &BUSINESS_UNIT_IN, &COUNTRY, &STATE);
/*If &RT_TYPE = "" Then
&RT_TYPE = " ";
End-If;*/
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Get inventory flow fields into parents ***/
Function GetFlow_INV(&BU, &NF, &NF_AVO);
If All(&NF_AVO) Then
&QRY = "SELECT FLOW_BUS_UNIT_IN,STORAGE_AREA,STOR_LEVEL_1,STOR_LEVEL_2,";
&QRY = &QRY | "STOR_LEVEL_3,STOR_LEVEL_4 FROM PS_NF_LINK_BBL A,PS_NF_HDR_B
BL_FS B ";
&QRY = &QRY | "AND A.NF_BRL_ID=B.NF_BRL_ID AND A.BUSINESS_UNIT=B.BUSINESS_
UNIT ";
/* &QRY = &QRY | "UNION ";
&QRY = "SELECT NF_BRL,NF_BRL_SERIES FROM PS_NF_HDR_BBL_FS ";
&QRY = &QRY | "WHERE NF_BRL_ID=:3 AND BUSINESS_UNIT=:4 ";*/

/*
SQLExec(&QRY, &NF_AVO, &BU, &NF_AVO, &BU, &FLOW_BUS_UNIT_IN, &STOR
AGE_AREA, &STOR_LEVEL_1, &STOR_LEVEL_2, &STOR_LEVEL_3, &STOR_LEVEL_4);*/
SQLExec(&QRY, &NF_AVO, &BU, &FLOW_BUS_UNIT_IN, &STORAGE_AREA, &STOR_LEVEL_
1, &STOR_LEVEL_2, &STOR_LEVEL_3, &STOR_LEVEL_4);
End-If;
End-Function;
/*** BRLOC_BI - SBRITO - SET/2001 - NVL for headers variables ***/
Function HDR_NVL();
If &RT_TYPE = "" Then
&RT_TYPE = " ";
End-If;
If &SHIP_FROM_STATE = "" Then
&SHIP_FROM_STATE = " ";
End-If;
If &FLOW_BUS_UNIT_IN = "" Then
&FLOW_BUS_UNIT_IN = " ";
End-If;
If &STORAGE_AREA = "" Then
&STORAGE_AREA = " ";
End-If;
If &BUSINESS_UNIT_IN = "" Then
&BUSINESS_UNIT_IN = " ";
End-If;
If &STOR_LEVEL_1 = "" Then
&STOR_LEVEL_1 = " ";
End-If;
End-If;
End-If;
End-If;
If &COUNTRY = "" Then
&COUNTRY = " ";
End-If;
If &STATE = "" Then
&STATE = " ";
End-If;
If &LOCATION = "" Then
&LOCATION = " ";
End-If;
If &DESTIN_BU = "" Then
&DESTIN_BU = " ";
End-If;
If &PYMENT_TERMS = "" Then
&PYMENT_TERMS = " ";
End-If;
If &DST_ID_AR = "" Then
&DST_ID_AR = " ";
End-If;
If &SHIP_BRL_TO_STATE = "" Then
&SHIP_BRL_TO_STATE = " ";
End-If;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Insert NF Header ***/
Function Insert_HDR(&NF_BRL_ID, &BU);
/*** BRLOC-PO-AO-29/04/2002 - ICE Resolution 100957
- Adicionado campo MERCH_ORIG_AMT_PBL com valor 0 no insert da tabela NF_HDR_BB
L_FS.
***************************************************************************/
/* BRLOC - PO - GTM - 12/12/03 - ICE Resoltuion ID: 147996
Descrio: Fix MP 135, adio de campos de reteno de COFINS, CSLL e PIS */
/* BRLOC - PO - FCF - 14/04/04 - ICE Resoltuion ID:157904
Descrio: Fix MP 164, adio de campos de reteno de PISTAX_BRL_AMT E COFINSTAX_BRL_
AMT */
/***
BRLOC-BI - FCF - 04/05/04 - Resolution ID : 159199 - IMPOSTOS DE RETENCAO IS
S
substituio do campo merc_orig_amt_pbl por iss_brl_retention na tabela ps_nf_ln_bbl
_fs
***/
&QRY1 = " INSERT INTO PS_NF_HDR_BBL_FS (";
&QRY1 = &QRY1 | "BUSINESS_UNIT,NF_BRL_ID, NF_BRL,NF_BRL_SERIES,SHIP_TO_CUST_I
D,";
&QRY1 = &QRY1 | "ADDRESS_SEQ_SHIP,LOCATION,DESTIN_BU,BILL_TO_CUST_ID,ADDRESS_
SEQ_NUM,";
&QRY1 = &QRY1 | "VENDOR_ID,NF_BRL_TYPE,NF_BRL_DATE,NF_BRL_STATUS,NF_STATUS_BB
L,";
&QRY1 = &QRY1 | "NF_BRL_TTL_LINES,NF_BRL_FATURA,MAX_LINE,CFO_BRL_CD,PURCH_PRO
P_BRL,";
&QRY1 = &QRY1 | "SHIP_FROM_STATE,SHIP_BRL_TO_STATE,DELIVERED_DT,ORIGIN_METHOD
,";
&QRY1 = &QRY1 | "VENDOR_SETID,VNDR_LOC,ACCOUNTING_DT,PROCESS_INSTANCE,";
&QRY2 = "BUSINESS_UNIT_GL,DST_CNTRL_ID,GROSS_AMT,GROSS_AMT_BSE,";
&QRY2 = &QRY2 | "TXN_CURRENCY_CD,RT_TYPE,RATE_DIV,RATE_MULT,CUR_RT_SOURCE,";
&QRY2 = &QRY2 | "BASE_CURRENCY,DSCNT_AMT,DSCNT_AMT_BSE,FREIGHT_AMT,";
&QRY2 = &QRY2 | "FREIGHT_AMT_BSE,INSURANCE_BRL_AMT,INSURANCE_BRL_BSE,";
&QRY2 = &QRY2 | "OTHEREXP_BRL_AMT,OTHEREXP_BRL_BSE,PYMNT_TERMS_CD,ENTERED_DT,
";
&QRY2 = &QRY2 | "LAST_UPDATE_DT,MERCHANDISE_AMT,MERCH_AMT_BSE,ISSTAX_BRL_AMT,
";
&QRY2 = &QRY2 | "ISSTAX_BRL_BSE,ISSTAX_BRL_CD,ISSTAX_BRL_BSS,ISS_BRL_RETENTIO
N,";
&QRY3 = "INSS_BRL_RET_BSE,IRTAX_BRL_AMT,IRTAX_BRL_BSE,IRTAX_BRL_BSS,";
&QRY3 = &QRY3 | "IRTAX_BRL_CD,IPITAX_BRL_AMT,IPITAX_BRL_BSE,IPITAX_BRL_RCVRY,
";
&QRY3 = &QRY3 | "ICMSTAX_BRL_AMT,ICMSTAX_BRL_BSE,ICMSTAX_BRL_BSS,";
&QRY3 = &QRY3 | "ICMSTAX_BRL_RCVRY,ICMSTAX_BRL_RETENT,ICMSTAX_BRL_DUE,";
&QRY3 = &QRY3 | "ICMSSUB_BRL_AMT,ICMSSUB_BRL_BSE,ICMSSUB_BRL_BSS,";
&QRY3 = &QRY3 | "TAX_BRL_CALC_FLG,TRANSPORT_CD,TRANSPORT_MODE,NAME1,";
&QRY3 = &QRY3 | "ADDRESS1,ADDRESS2,CITY_CD_BBL,CITY,STATE,ZIP,COUNTRY,NET_WEI
GHT_BRL,";
&QRY4 = "GROSS_WEIGHT_BRL,UOM_WEIGHT,QTY_VOL_BRL,NUM_VOL_BRL,";
&QRY4 = &QRY4 | "TRADE_VOL_BRL,TYPE_VOL_BRL,CGC_BRL, IE_BRL,VOUCHER_ID,";
&QRY4 = &QRY4 | "RECEIVER_ID,BUSINESS_UNIT_RECV,OPRID_LAST_UPDT,MTCH_STATUS_P
BL,";
&QRY4 = &QRY4 | "INOUT_FLG_PBL,PRORATE_METH_BBL,FRGHT_PRORATE_PBL,OTHER_PRORA
TE_PBL,";
&QRY4 = &QRY4 | "ICMS_COMPL_AMT_PBL,DESCR100,IN_PROCESS_FLG,";
&QRY4 = &QRY4 | "GROSS_AMT_PBL_DIV,ICMSTAX_PBL_DIV,IPITAX_PBL_DIV,";
&QRY4 = &QRY4 | "BUSPROCNAME,APPR_RULE_SET,APPR_INSTANCE,APPR_CHECK_FLG,";

&QRY4 = &QRY4 | "APPR_STATUS,DFI_PBL_APPRVL_FLG,DESCR,DESCR60,";
&QRY5 = "LT_GRP_ID_BBL,TXN_NAT_BBL,IN_OUT_CD_BBL,PND_ITEM_TYPE_BBL,";
&QRY5 = &QRY5 | "RMA_FLG_BBL,TIE_NF_FLG_BBL,ACCT_FLG_BBL,BUSINESS_UNIT_IN,";
&QRY5 = &QRY5 | "RMNEIO_ID_BBL,CARRIER_ID,TRNSPORT_RESP_BBL,FRGHT_PMT_RESP_BB
L,";
&QRY5 = &QRY5 | "VEHICLE_ID,VEHCL_ID_STATE_BBL,RATIO_UOM_BBL,QTY_VOL_BBL,";
&QRY5 = &QRY5 | "NUM_VOL_BBL,NF_CREATE_DT_BBL,NF_ISSUE_DT_BBL,NF_CONF_DT_BBL,
";
&QRY5 = &QRY5 | "DST_ID_AR,COFINS_AMT_BSE_BBL,COFINS_BSS_AMT_BBL, ";
&QRY5 = &QRY5 | "PIS_AMT_BSE_BBL,PIS_BSS_AMT_BBL,SERV_AMT_BBL_BSE,";
&QRY5 = &QRY5 | "RMA_ID,INTERUNIT_FLG,COST_ADJ_STS_PBL,FLAG_FM_PBL,";
&QRY6 = "FRT_INCR_BSE_BBL,INSR_INCR_BSE_BBL,OTEX_INCR_BSE_BBL,";
&QRY6 = &QRY6 | "COLLECT_COD_BRL,EF_LOC_BRL,DFI_ENTRY_STS_PBL,";
&QRY6 = &QRY6 | "GRP_ID_PBL,ECTRANSID,ECQUEUEINSTANCE,ECTRANSINOUTSW,";
&QRY6 = &QRY6 | "PAY_TRM_BSE_DT_OPT,SERIE_SPIN_BBL,LICENCE_PLATE_BRL,";
&QRY6 = &QRY6 | "FREIGHT_PAY_BY_BRL,REMIT_LOC,REMIT_SETID,REMIT_ADDR_SEQ_NUM,
";
&QRY6 = &QRY6 | "REMIT_VENDOR,IRRF_BBL_BRL,INSSR_BBL_BRL,COFINST_BSSAMT_BBL,"
;
&QRY6 = &QRY6 | "COFINST_BSEAMT_BBL,PISST_BSS_AMT_BBL,PISST_BSE_AMT_BBL,";
&QRY6 = &QRY6 | "IR_BSS_AMT_BBL,IR_BSE_AMT_BBL,INSS_BSS_AMT_BBL,INSS_BSE_AMT_
BBL,";
&QRY7 = "SHIPTO_ID,NF_ID_REL_PBL, PAYTRMS_DT_BSE_PBL,VOUCHER_FLOW_PBL,";
&QRY7 = &QRY7 | "ACCOUNT_FLOW_PBL,FLOW_ID_BBL,FLOW_BUS_UNIT_IN,STORAGE_AREA,"
;
&QRY7 = &QRY7 | "STOR_LEVEL_1,STOR_LEVEL_2,STOR_LEVEL_3,STOR_LEVEL_4,FLOW_SHI
P_ID_BBL,FLOW_LOCATION_BBL,";
&QRY7 = &QRY7 | "ICMS_DISCOUNT_BBL,DT_FLOW_BBL,NF_AM_FLG_BRL,NF_IN_FLG_BBL,DO
C_CLASS_BBL, MERCH_ORIG_AMT_PBL,";
&QRY7 = &QRY7 | "COFINS_BRL_RETENT, CSLL_BRL_RETENT, PIS_BRL_RETENT, PISTAX_B
RL_AMT, COFINSTAX_BRL_AMT) VALUES (";
&QRY7 = &QRY7 | ":1,:2,' ',:3,:4,:5,:6,:7,:8,:9,' ',:10, %CurrentDateIn,'O','
INCM', 0, ' ',0,' ',' ', :11,:12,";
&QRY7 = &QRY7 | "%DateIn('1900-01-01'),'B',' ', ' ',%CurrentDateIn,0, :13,' '
,0,0, :14,:15, :16,:17,";
&QRY7 = &QRY7 | "'T',:18,0,0,0,0,0,0,0,0,:19,%CurrentDateIn,%CurrentDateIn,0,
0,0,0,' ',0,";
&QRY7 = &QRY7 | "0,0,0,0,0,' ',0,0,0,0,0,0,0,0,0,0,0,0,'Y',' ',' ',' ',' ','
',' ',' ',:20,' ',:21,";
&QRY8 = "0,0,' ', 0,0,' ',' ',' ',' ',' ',' ',' ',%OperatorID,'U','O', :22,'
',' ',0,' ','N',0,0,";
&QRY8 = &QRY8 | "0,' ',' ',0,' ','A','P',' ',' ',:23,:24,:25,:26,:27,:28,'N',
:29,' ', ' ', ' ', ' ', ' ', ' ', ' ', 0,";
&QRY8 = &QRY8 | "' ',%CurrentDateIn,%CurrentDateIn,%DateIn('1900-01-01'),:30,
0,0,0,";
&QRY8 = &QRY8 | "0,0,' ',' ',' ','N',0,0, 0,' ',:31,' ',' ',' ',0,' ',' ',0,'
',' ',' ',' ', 0,' ', 0,0,0,0,0,0,0,";
&QRY8 = &QRY8 | "0,0,0,' ',' ',%DateIn('1900-01-01'),' ',' ',:32,:33,:34,:35,
:36,:37,:38,";
&QRY8 = &QRY8 | "' ',' ',0,%DateIn('1900-01-01'),' ',' ',:39, 0, 0, 0, 0,0,0"
;
&QRY8 = &QRY8 | ") ";
HDR_NVL();
/*Error "&BU=" | &BU | ", &NF_BRL=" | &NF_BRL_ID | ", &NF_SER=" | &NF_BRL_SER
IES | ", &SH_TO=" | &SHIP_TO_CUST_ID | ", &ADDR=" | &ADDRESS_SEQ_SHIP | ", &LOC
=" | &LOCATION | ", &DES_BU=" | &DESTIN_BU | ", &BI_TO=" | &BILL_TO_CUST_ID | ",
&ADDR=" | &ADDRESS_SEQ_NUM | ", &NF_TYP=" | &NF_BRL_TYPE | ", &STATE_FROM=" | &
SHIP_FROM_STATE | ", &STAT_TO=" | &SHIP_BRL_TO_STATE | ", &BU_GL=" | &BUSINESS_

UNIT_GL | ", &CURR=" | &CURRENCY_CD | ", &RT_TYP=" | &RT_TYPE | ", &RAT_MUL=" |
&RATE_MULT | ", &RAT_DI=" | &RATE_DIV | ", &CURR_B=" | &CURRENCY_CD_BASE | ", &
PYMENT_T=" | &PYMENT_TERMS_CD | ", &PRORAT=" | &PRORATE_METH_BBL | ", &LT_GRP="
| &LT_GRP_ID_BBL | ", &TXN_N=" | &TXN_NAT_BBL | ", &IN_OUT=" | &IN_OUT_CD_BBL |
", PND_IT=" | &PND_ITEM_TYPE_BBL | ", &RMA_F=" | &RMA_FLG_BBL | ", &TIE_NF=" | &
TIE_NF_FLG_BBL | ", &BU_IN=" | &BUSINESS_UNIT_IN | ", &DST_ID_AR=" | &DST_ID_AR
| ", &EF_LOC=" | &EF_LOC_BRL | ", &FLOW_ID2=" | &FLOW_ID_BBL2 | ", &FLOW_BUS=" |
&FLOW_BUS_UNIT_IN | ", &STOR_A=" | &STORAGE_AREA | ", &ST_1=" | &STOR_LEVEL_1 |
", &ST_2=" | &STOR_LEVEL_2 | ", &DOC_C2=" | &DOC_CLASS_BBL2 | ", &STT=" | &STAT
E | ", COTY=" | &COUNTRY | ", &ST_3=" | &STOR_LEVEL_3 | ", &ST_4=" | &STOR_LEVEL
_4 | ",";*/
/*FCUST=" | &FLOW_SHIP_ID_BBL ", FADD=" | &FLOW_LOCATION_BBL | ",";*/
SQLExec(&QRY1 | &QRY2 | &QRY3 | &QRY4 | &QRY5 | &QRY6 | &QRY7 | &QRY8, &BU, &
NF_BRL_ID, &NF_BRL_SERIES, &SHIP_TO_CUST_ID, &ADDRESS_SEQ_SHIP, &LOCATION, &DEST
IN_BU, &BILL_TO_CUST_ID, &ADDRESS_SEQ_NUM, &NF_BRL_TYPE, &SHIP_FROM_STATE, &SHIP
_BRL_TO_STATE, &BUSINESS_UNIT_GL, &CURRENCY_CD, &RT_TYPE, &RATE_MULT, &RATE_DIV,
&CURRENCY_CD_BASE, &PYMENT_TERMS_CD, &STATE, &COUNTRY, &PRORATE_METH_BBL, &LT_G
RP_ID_BBL, &TXN_NAT_BBL, &IN_OUT_CD_BBL, &PND_ITEM_TYPE_BBL, &RMA_FLG_BBL, &TIE_
NF_FLG_BBL, &BUSINESS_UNIT_IN, &DST_ID_AR, &EF_LOC_BRL, &FLOW_ID_BBL2, &FLOW_BUS
_UNIT_IN, &STORAGE_AREA, &STOR_LEVEL_1, &STOR_LEVEL_2, &STOR_LEVEL_3, &STOR_LEVE
L_4, &DOC_CLASS_BBL2);
End-Function;
/*** RESOLUO DE LINKS ***/
/*** BRLOC_BI - SBRITO - AGO/2001 - Insert NF referencia ***/
Function Insert_Link(&NF_BRL_ID, &BU, &NF_PAI, &NF_AVO);
&QRY
&QRY
&QRY
&QRY
=
=
=
=
" INSERT
&QRY | "
&QRY | "
&QRY | "
INTO PS_NF_LINK_BBL ";

(BUSINESS_UNIT,NF_BRL_ID,BUS_UNIT_REF_BBL,";
NF_REF_ID_BBL,NF_PAI_ID_BBL,DOC_CLASS_BBL) VALUES ";
(:1,:2,:3,:4,:5,:6)";
SQLExec(&QRY, &BU, &NF_BRL_ID, &BU, &NF_PAI, &NF_AVO, &DOC_CLASS_BBL2);

End-Function;
/*** RESOLUO DE ENDEREOS ***/
/*** BRLOC_BI - SBRITO - AGO/2001 - IE,CGC E ETC. ***/
Function GetNUM_QUAL(&SETID, &CUST_ID, &TYPE) Returns string ;
&QRY = "SELECT STD_ID_NUM FROM PS_CUST_ADD_IN_BRL ";
&QRY = &QRY | " WHERE SETID = :1 AND CUST_ID = :2 AND STD_ID_NUM_QUAL = :3 ";
SQLExec(&QRY, &SETID, &CUST_ID, &TYPE, &RET);
Return &RET;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 ***/
Function GetBRL_TO_STATE(&SETID, &CUST_ID, &SEQ) Returns string ;
&QRY = "SELECT A.STATE,A.COUNTRY FROM PS_CUST_ADDRESS A ";
&QRY = &QRY | " WHERE A.SETID = :1 AND A.CUST_ID = :2 ";
&QRY = &QRY | " AND A.ADDRESS_SEQ_NUM = :3 ";
&QRY = &QRY | " AND A.EFFDT = (SELECT MAX(EFFDT) FROM PS_CUST_ADDRESS ";
&QRY = &QRY | " WHERE SETID = A.SETID AND CUST_ID = A.CUST_ID AND ";
&QRY = &QRY | " ADDRESS_SEQ_NUM = A.ADDRESS_SEQ_NUM AND EFFDT <= %CurrentDate
In) ";
&QRY = &QRY | " AND A.EFF_STATUS = 'A' ";
SQLExec(&QRY, &SETID, &CUST_ID, &SEQ, &RET, &COUNTRY_TO);
Return &RET;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 ***/
Function GetBRL_FROM_STATE(&BU, &SETID);
&QRY = "SELECT A.COUNTRY,A.STATE FROM PS_LOCATION_TBL A,PS_BUS_UNIT_TBL_BI
";
&QRY = &QRY | " WHERE B.BUSINESS_UNIT = :1 AND A.SETID = :2 AND A.LOCATION
B.LOCATION ";
&QRY = &QRY | " AND A.EFFDT = (SELECT MAX(X.EFFDT) FROM PS_LOCATION_TBL X
ERE ";
&QRY = &QRY | " X.SETID = A.SETID AND X.LOCATION = A.LOCATION AND X.EFFDT
%CURRENTDATEIN) ";
&QRY = &QRY | " AND A.EFF_STATUS = 'A' ";
SQLExec(&QRY, &BU, &SETID, &COUNTRY_FROM, &STATE);
End-Function;
B
=
WH
<=
/*** BRLOC_BI - SBRITO - SET/2001 - NVL for addresss variables ***/

Function ADDR_NVL();
If &CNJ = "" Then
&CNJ = " ";
End-If;
If &CPF = "" Then
&CPF = " ";
End-If;
If &IE = "" Then
&IE = " ";
End-If;
If &IM = "" Then
&IM = " ";
End-If;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Insert ADDR para novo cliente ***/
Function Insert_ADDR(&NF_BRL_ID, &BU, &TYPE, &SETID_CUST, &CUST_ID, &SEQ, &IE, &
CNJ, &IM, &CPF);
&QRY =
&QRY =
&QRY =
RESS4, ";
&QRY =
, ";
&QRY =
B ";
&QRY =
&QRY =
&QRY =
&QRY =
&QRY =
&QRY =
In) ";
&QRY =
" INSERT INTO PS_NF_HDR_ADDR_BBL ";

&QRY | " SELECT :1,:2,:3,:4,:5,:6,:7, A.ESTABID, ";
&QRY | " B.NAME1, A.COUNTRY, A.ADDRESS1, A.ADDRESS2, A.ADDRESS3, A.ADD
&QRY | " A.CITY, ' ',' ', ' ',' ', ' ',' ', A.COUNTY,A.STATE, A.POSTAL
&QRY | " ' ', ' ',A.CITY_CD_BBL,0 FROM PS_CUST_ADDRESS A, PS_CUSTOMER
&QRY
&QRY
&QRY
&QRY
&QRY
&QRY
|
|
|
|
|
|
"
"
"
"
"
"
WHERE A.SETID = :8 AND A.CUST_ID = :9 ";

AND A.ADDRESS_SEQ_NUM = :10 ";
AND A.SETID = B.SETID AND A.CUST_ID = B.CUST_ID ";
AND A.EFFDT = (SELECT MAX(EFFDT) FROM PS_CUST_ADDRESS ";
WHERE SETID = A.SETID AND CUST_ID = A.CUST_ID AND ";
ADDRESS_SEQ_NUM = A.ADDRESS_SEQ_NUM AND EFFDT <= %CurrentDate
&QRY | " AND A.EFF_STATUS = 'A' ";
ADDR_NVL();
SQLExec(&QRY, &BU, &NF_BRL_ID, &TYPE, &CNJ, &CPF, &IE, &IM, &SETID_CUST, &CUS
T_ID, &SEQ);
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Insert ADDR para mesmo cliente ***/
Function Insert_ADDR2(&NF_BRL_ID, &BU, &TYPE, &NF_BRL_ID2);

&QRY = " SELECT CGC_BRL,CPF_BRL,IE_BRL,IM_BRL,ESTABID,";
&QRY = &QRY | " CUST_NAME, COUNTRY, ADDRESS1, ADDRESS2, ADDRESS3, ADDRESS4, "
;
&QRY = &QRY | " CITY, STATE, POSTAL, ";
&QRY = &QRY | " CITY_CD_BBL,NF_ADDR_TYPE_BBL FROM PS_NF_HDR_ADDR_BBL ";
&QRY = &QRY | " WHERE NF_BRL_ID = :1 AND BUSINESS_UNIT = :2 ";
&QRY = &QRY | " AND NF_ADDR_TYPE_BBL = :3 ";
SQLExec(&QRY, &NF_BRL_ID2, &BU, &TYPE, &CGC_BRL, &CPF_BRL, &IE_BRL, &IM_BRL,
&ESTABID, &NAME1, &COUNTRY2, &ADDRESS1, &ADDRESS2, &ADDRESS3, &ADDRESS4, &CITY2,
&STATE2, &POSTAL, &CITY_CD_BBL, &NF_ADDR_TYPE_BBL);
If &CGC_BRL = "" Then
&CGC_BRL = " ";
End-If;
If &CPF_BRL = "" Then
&CPF_BRL = " ";
End-If;
If &IE_BRL = "" Then
&IE_BRL = " ";
End-If;
If &IM_BRL = "" Then
&IM_BRL = " ";
End-If;
If &ESTABID = "" Then
&ESTABID = " ";
End-If;
If &NAME1 = "" Then
&NAME1 = " ";
End-If;
If &ADDRESS1 = "" Then
&ADDRESS1 = " ";
End-If;
&ADDRESS2 = " ";
End-If;
&ADDRESS3 = " ";
End-If;
&ADDRESS4 = " ";
End-If;
If &CITY2 = "" Then
&CITY2 = " ";
End-If;
If &COUNTRY2 = "" Then
&COUNTRY2 = " ";
End-If;
If &STATE2 = "" Then
&STATE2 = " ";
End-If;
If &POSTAL = "" Then
&POSTAL = " ";
End-If;
If &CITY_CD_BBL = "" Then
&CITY_CD_BBL = " ";
End-If;
&QRY = " INSERT INTO PS_NF_HDR_ADDR_BBL (";
&QRY = &QRY | " BUSINESS_UNIT, NF_BRL_ID, NF_ADDR_TYPE_BBL, CGC_BRL,";
&QRY = &QRY | " CPF_BRL, IE_BRL, IM_BRL, ESTABID, CUST_NAME,COUNTRY,";
&QRY
&QRY
&QRY
&QRY
&QRY
&QRY
&QRY
&QRY
=
=
=
=
=
=
=
=
&QRY
&QRY
&QRY
&QRY
&QRY
&QRY
&QRY
&QRY
|
|
|
|
|
|
|
|
"
"
"
"
"
"
"
"
ADDRESS1,ADDRESS2, ADDRESS3,ADDRESS4, CITY,";

NUM1,NUM2, HOUSE_TYPE, ADDR_FIELD1, ADDR_FIELD2,";
ADDR_FIELD3, COUNTY, STATE,POSTAL,GEO_CODE,";
IN_CITY_LIMIT, CITY_CD_BBL, PROCESS_INSTANCE) VALUES (";
:1, :2, :3, :4, :5, :6, :7, :8, ";
:9, :10, :11, :12, :13, :14, ";
:15, ' ',' ', ' ',' ', ' ',' ', ' ', :16, :17, ";
' ', ' ', :18, 0 )";
If &NF_ADDR_TYPE_BBL = "" Or
None(&NF_ADDR_TYPE_BBL) Then
Else
SQLExec(&QRY, &BU, &NF_BRL_ID, &TYPE, &CGC_BRL, &CPF_BRL, &IE_BRL, &IM_BRL
, &ESTABID, &NAME1, &COUNTRY2, &ADDRESS1, &ADDRESS2, &ADDRESS3, &ADDRESS4, &CITY
2, &STATE2, &POSTAL, &CITY_CD_BBL);
End-If;
End-Function;
/*** CONTROLE DE DATAS ***/
/*** BRLOC_BI - SBRITO - AGO/2001 - Mark Date Field ***/
Function Mark_Date(&NF_BRL_ID, &BU, &TERM);
&TERM2 = %Date + &TERM;
&QRY = "UPDATE PS_NF_HDR_BBL_FS ";
&QRY = &QRY | " SET DT_FLOW_BBL=:1 ";
&QRY = &QRY | " WHERE NF_BRL_ID = :2 AND BUSINESS_UNIT = :3 ";
SQLExec(&QRY, &TERM2, &NF_BRL_ID, &BU);
End-Function;
/*** RESOLUO DE LINHAS ***/
/*** BRLOC_BI - SBRITO - JUL/2001 - Pega NF Derived - value formulate ***/
Function GetValue_formulate(&DRV_VAL) Returns boolean ;
Declare_Scroll_FRM();
&QRY = "SELECT DOC_CLASS_BBL FROM PS_NF_VALDET_BBL ";
&QRY = &QRY | "WHERE NF_VAL_CREATE_BBL=:1 ";
&SQL2 = CreateSQL(&QRY, &DRV_VAL);
&RET = False;
While &SQL2.Fetch(&DOC_CLASS_BBL3)
&v_doc.Push(&DOC_CLASS_BBL3);
&RET = True;
End-While;
&SQL2.Close();
Return &RET;
End-Function;
Function Solve_ValueFormulate(&NF_BRL_ID, &BUSINESS_UNIT, &NF_PAI, &BUS_UNIT_REF
, &SHIP_TO);
&l_seq = CreateArrayRept(0, 0);
&l_value = CreateArrayRept(0, 0);
&l_qty = CreateArrayRept(0, 0);
&l_item = CreateArrayRept("", 0);
&l_uvalue = CreateArrayRept(0, 0);
&l_nvalue = CreateArrayRept(0, 0);
&l_ouvalue = CreateArrayRept(0, 0);
&l_onvalue = CreateArrayRept(0, 0);
&IN = "";
For &k = 1 To &v_doc.Len
&doc = &v_doc[&k];
If &k = 1 Then
&IN = "'" | &v_doc[&k] | "'";

Else
&IN = &IN | ",'" | &v_doc[&k] | "'";
End-If;
End-For;
If &IN > "" Then
&IN = "IN (" | &IN | ")";
End-If;
If &NF_PAI = "" Or
None(&NF_PAI) Then
&QRY = "SELECT D.NF_BRL_LINE_NUM,D.GROSS_AMT_BSE,D.INV_ITEM_ID,D.QTY_NF_BR
L,";
&QRY = &QRY | "D.UNIT_AMT_BSE_BBL,D.NET_AMT_BSE_BBL,D.UNIT_PRICE,D.NET_UNI
T_PRICE ";
&QRY = &QRY | " FROM PS_NF_LN_BBL_FS D,PS_NF_HDR_BBL_FS E ";
&QRY = &QRY | "WHERE D.NF_BRL_ID=:1 AND D.BUSINESS_UNIT=:2 ";
&QRY = &QRY | "AND D.NF_BRL_ID=E.NF_BRL_ID AND D.BUSINESS_UNIT=E.BUSINESS_
UNIT ";
If &IN > "" Then
&QRY = &QRY | "AND E.DOC_CLASS_BBL " | &IN
End-If;
&QRY = &QRY | "AND E.SHIP_TO_CUST_ID = :3 ORDER BY D.NF_BRL_LINE_NUM ";
&SQL2 = CreateSQL(&QRY, &NF_BRL_ID, &BUSINESS_UNIT, &SHIP_TO);
While &SQL2.Fetch(&NUM, &VALOR, &INV_ITEM_ID, &QTY_NF_BRL, &UVALOR, &NVALO
R, &OUVALOR, &ONVALOR)
&l_seq.Push(&NUM);
&l_value.Push(&VALOR);
&l_qty.Push(&QTY_NF_BRL);
&l_item.Push(&INV_ITEM_ID);
&l_uvalue.Push(&UVALOR);
&l_nvalue.Push(&NVALOR);
&l_ouvalue.Push(&OUVALOR);
&l_onvalue.Push(&ONVALOR);
End-While;
&SQL2.Close();
Else
&QRY = "SELECT B.NF_BRL_LINE_NUM,B.GROSS_AMT_BSE,B.INV_ITEM_ID,B.QTY_NF_BR
L,";
&QRY = &QRY | "B.UNIT_AMT_BSE_BBL,B.NET_AMT_BSE_BBL,B.UNIT_PRICE,B.NET_UNI
T_PRICE ";
&QRY = &QRY | " FROM PS_NF_LN_BBL_FS B,PS_NF_HDR_BBL_FS E ";
&QRY = &QRY | "WHERE B.NF_BRL_ID=:1 AND B.BUSINESS_UNIT=:2 ";
&QRY = &QRY | "AND B.NF_BRL_ID=E.NF_BRL_ID AND B.BUSINESS_UNIT=E.BUSINESS_
UNIT ";
If &IN > "" Then
&QRY = &QRY | "AND E.DOC_CLASS_BBL " | &IN | " AND ";
End-If;
&QRY = &QRY | " E.SHIP_TO_CUST_ID = :3 ";
&SQL2 = CreateSQL(&QRY, &NF_PAI, &BUS_UNIT_REF, &SHIP_TO);
&l_seq.Push(&NUM);
&l_value.Push(&VALOR);
&l_qty.Push(&QTY_NF_BRL);
&l_item.Push(&INV_ITEM_ID);
&l_uvalue.Push(&UVALOR);
&l_nvalue.Push(&NVALOR);
&l_ouvalue.Push(&OUVALOR);
&l_onvalue.Push(&ONVALOR);
End-While;
&QRY = "SELECT B.NF_BRL_LINE_NUM,SUM(B.GROSS_AMT_BSE),B.INV_ITEM_ID,AVG(B.
QTY_NF_BRL),";
&QRY = &QRY | "SUM(B.UNIT_AMT_BSE_BBL),SUM(B.NET_AMT_BSE_BBL),SUM(B.UNIT_P
RICE),SUM(B.NET_UNIT_PRICE) ";
&QRY = &QRY | " FROM PS_NF_LINK_BBL A,PS_NF_LN_BBL_FS B,PS_NF_HDR_BBL_FS C
";
&QRY = &QRY | "AND A.NF_BRL_ID=C.NF_BRL_ID AND A.BUSINESS_UNIT=C.BUSINESS_
UNIT ";
&QRY = &QRY | "AND A.NF_BRL_ID=B.NF_BRL_ID AND A.BUSINESS_UNIT=B.BUSINESS_
UNIT ";
If &IN > "" Then
&QRY = &QRY | "AND C.DOC_CLASS_BBL " | &IN
End-If;
&QRY = &QRY | " AND C.SHIP_TO_CUST_ID = :3 AND B.NF_BRL_ID <> :4 ";
&QRY = &QRY | " GROUP BY B.NF_BRL_LINE_NUM,B.INV_ITEM_ID ";
&SQL2 = CreateSQL(&QRY, &NF_PAI, &BUS_UNIT_REF, &SHIP_TO, &NF_PAI);
&PTR = &l_seq.Find(&NUM);
If &PTR > 0 Then
If &l_item[&PTR] = &INV_ITEM_ID Then
&l_value[&PTR] = &l_value[&PTR] + &VALOR;
&l_uvalue[&PTR] = &l_uvalue[&PTR] + &UVALOR;
&l_nvalue[&PTR] = &l_nvalue[&PTR] + &NVALOR;
&l_ouvalue[&PTR] = &l_ouvalue[&PTR] + &OUVALOR;
&l_onvalue[&PTR] = &l_onvalue[&PTR] + &ONVALOR;
Else
&PTR = &l_item.Find(&INV_ITEM_ID);
If &PTR > 0 Then
&l_value[&PTR] = &l_value[&PTR] + &VALOR;
&l_uvalue[&PTR] = &l_uvalue[&PTR] + &UVALOR;
&l_nvalue[&PTR] = &l_nvalue[&PTR] + &NVALOR;
&l_ouvalue[&PTR] = &l_ouvalue[&PTR] + &OUVALOR;
&l_onvalue[&PTR] = &l_onvalue[&PTR] + &ONVALOR;
Else
End-If;
End-If;
End-If;
End-While;
&SQL2.Close();
End-If;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Pega Valor da Linha***/
Function GetVal(&NUM) Returns number ;
&RET = 0;
For &k = 1 To &l_seq.Len
If &l_seq[&k] = &NUM Then
&RET = &k;
Break;
End-If;
End-For;
Return &RET;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Pega dados da Linha para NF Pai***/
Function GetNF_Line_Data(&NF_BRL_ID, &BUSINESS_UNIT, &NF_BRL_LINE_NUM);

&QRY = "SELECT ITM_SETID, INV_ITEM_ID, DESCR,";
&QRY = &QRY | "MERCHANDISE_AMT, MERCH_AMT_BSE,QTY_NF_BRL,";
&QRY = &QRY | "UNIT_OF_MEASURE, UNIT_PRICE,NET_UNIT_PRICE,";
&QRY = &QRY | "CURRENCY_CD,BASE_CURRENCY,CFO_BRL_CD,";
&QRY = &QRY | "PURCH_PROP_BRL,TAX_CLASS_BRL,";
&QRY = &QRY | "NF_LINE_TYPE_BBL,DEMAND_SOURCE,SOURCE_BUS_UNIT,";
&QRY = &QRY | "PRODUCT_ID, KIT_LINE_NBR,ITEM_ORIGIN_BBL, CFOP_EXT_CD_BBL,";
&QRY = &QRY | "UNIT_AMT_BSE_BBL,NET_AMT_BSE_BBL,UNIT_COST,";
&QRY = &QRY | "LT_IPI_BSE_BBL, LT_ICMS_BSE_BBL,LT_ICMS_ST_BSE_BBL,LT_PIS_BSE_
BBL,";
&QRY = &QRY | "LT_COFINS_BSE_BBL, LT_ISS_BSE_BBL,NF_ACT_TMPL_BBL,";
&QRY = &QRY | "DST_ID_DIS,DST_ID_REV,DST_ID_SUR,LT_PISS_BSE_BBL,";
&QRY = &QRY | "LT_PISS_BSE_BBL,IF_BRL ";
&QRY = &QRY | " FROM PS_NF_LN_BBL_FS WHERE ";
&QRY = &QRY | " NF_BRL_ID=:1 AND BUSINESS_UNIT=:2 AND NF_BRL_LINE_NUM=:3 ";
SQLExec(&QRY, &NF_BRL_ID, &BUSINESS_UNIT, &NF_BRL_LINE_NUM, &INVITEM_SETID, &
INV_ITEM_ID, &DESCR, &MERCHANDISE_AMT, &MERCH_AMT_BSE, &QTY_NF_BRL, &UNIT_OF_MEA
SURE, &UNIT_PRICE, &NET_UNIT_PRICE, &CURRENCY_CD2, &CURRENCY_CD_BASE2, &CFO_BRL_
CD, &PURCH_PROP_BRL, &TAX_CLASS_BRL, &NF_LINE_TYPE_BBL, &DEMAND_SOURCE, &SOURCE_
BUS_UNIT, &PRODUCT_ID, &KIT_LINE_NBR, &ITEM_ORIGIN_BBL, &CFOP_EXT_CD_BBL, &UNIT_
AMT_BSE_BBL, &NET_AMT_BSE_BBL, &UNIT_COST, &LT_IPI_BSE_BBL, &LT_ICMS_BSE_BBL, &L
T_ICMS_ST_BSE_BBL, &LT_PIS_BSE_BBL, &LT_COFINS_BSE_BBL, &LT_ISS_BSE_BBL, &NF_ACT
_TMPL_BBL, &DST_ID_DIS, &DST_ID_REV, &DST_ID_SUR, &LT_PISS_BSE_BBL, &LT_PISS_BSE
_BBL, &IF_BRL);
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Insert NF Line ***/
Function Insert_Line(&NF_BRL_ID, &BU, &NF_BRL_LINE_NUM, &VAL_PAI, &EXT);
&OK = True;
&DSCNT_PCT = 0;
&DSCNT_AMT_BSE = 0;
If &VAL_PAI = True Or
&EXT = True Then
&index = GetVal(&NF_BRL_LINE_NUM);
If &index > 0 Then
&MERCH_AMT_BSE = &l_nvalue[&index];
&UNIT_AMT_BSE_BBL = &l_uvalue[&index];
/*
&NET_AMT_BSE_BBL = &l_nvalue[&index];*/
&NET_AMT_BSE_BBL = &l_onnetamtbsebbl[&index];
&UNIT_PRICE = &l_ouvalue[&index];
&NET_UNIT_PRICE = &l_onvalue[&index];
/* insert the desc values */
&DSCNT_PCT = &l_ondescpct[&index];
&DSCNT_AMT_BSE = &l_ondescamt[&index];
If None(&DSCNT_PCT) Then
&DSCNT_PCT = 0;
End-If;
If None(&DSCNT_AMT_BSE) Then
&DSCNT_AMT_BSE = 0;
End-If;
/* insert the desc values */
&MERCHANDISE_AMT = 0;
/*&MERCH_AMT_BSE = 0;*/
&LT_IPI_BSE_BBL = 0;
&LT_ICMS_BSE_BBL = 0;
&LT_ICMS_ST_BSE_BBL = 0;
&LT_PIS_BSE_BBL = 0;
&LT_COFINS_BSE_BBL = 0;
&LT_ISS_BSE_BBL = 0;
&LT_PISS_BSE_BBL = 0;
Else
Error "Erro(InsertLine): Index(" | &index | ")";
Else
&OK = False;
End-If;
End-If;
Else
End-If;
- Adicionado os campos COEF_BASE_FLG_PBL, COEF_BASE_ICMS_PBL, COEF_BASE_IPI_PBL
e MERCH_ORIG_AMT_PBL com valores de inicializao no insert da tabela NF_LN_BBL_FS.
***************************************************************************/
/*** BRLOC-PO-SAM-24/06/2003 - ICE Resolution 131084
- Adicionado campo IPITAX_BRL_RED com valor de inicializao no insert da tabela NF
_LN_BBL_FS.
***************************************************************************/
/* BRLOC-BI - FCF - 12/03/04 - Resolution ID : 155163 - IMPOSTOS DE RETENCAO
(PIS/COFINS/CSLL) no lugar dos campos do PO ( na nf_ln_brl ) continuam os campos
antigos do PO */
/* BRLOC - PO - FCF - 14/04/04 - ICE Resoltuion ID:157904
Descrio: Fix MP 164, adio de campos de reteno de PISTAX_BRL_AMT,COFINSTAX_BRL_AMT,COEF
_BASE_PIS_PBL,COEF_BASE_COFI_PBL,CF_IPI_ID_PBL,CF_ICMS_ID_PBL,CF_PIS_ID_PBL,CF_C
OFINS_ID_PBL,PIS_TAX_STATUS_PBL,COFI_TX_STATUS_PBL,PIS_CRLIM_PCT_PBL,COFI_CRLIM_
PCT_PBL*/
&QRY1 = " INSERT INTO PS_NF_LN_BBL_FS (";
&QRY1 = &QRY1 | "BUSINESS_UNIT,NF_BRL_ID,NF_BRL_LINE_NUM,TOTAL_DISTRIBS,MAX_D
ISTRIB_LINE,";
&QRY1 = &QRY1 | "BUSINESS_UNIT_PO,PO_ID,ITM_SETID,INV_ITEM_ID,DESCR,MERCHANDI
SE_AMT,";
&QRY1 = &QRY1 | "MERCH_AMT_BSE,QTY_NF_BRL,STATISTIC_AMOUNT,UNIT_OF_MEASURE,";
&QRY1 = &QRY1 | "UNIT_PRICE,NET_UNIT_PRICE,FREIGHT_AMT_BSE,FREIGHT_AMT,INSURA
NCE_BRL_AMT,";
&QRY1 = &QRY1 | "INSURANCE_BRL_BSE,OTHEREXP_BRL_AMT,OTHEREXP_BRL_BSE,DSCNT_AM
T,";
&QRY1 = &QRY1 | "DSCNT_AMT_BSE,DSCNT_PCT,ERROR_FLAG,BUSINESS_UNIT_RECV,";
&QRY2 = "RECEIVER_ID,RECV_LN_NBR,RECV_SHIP_SEQ_NBR,SHIPTO_ID,TXN_CURRENCY_CD,
";
&QRY2 = &QRY2 | "BASE_CURRENCY,CURRENCY_CD,CFO_BRL_CD,PURCH_PROP_BRL,TAX_CLAS
S_BRL,";
&QRY2 = &QRY2 | "IPITAX_BRL_BSE,IPITAX_BRL_AMT,IPITAX_BRL_PCT,IPITAX_BRL_RCVR
Y,";
&QRY2 = &QRY2 | "IPITAX_BRL_BSS,TAX_TYPE_BRL,ICMSTAX_BRL_BSE,ICMSTAX_BRL_AMT,
";
&QRY2 = &QRY2 | "ICMSTAX_BRL_PCT,ICMSTAX_BRL_RED,ICMSTAX_BRL_RCVRY,ICMSTAX_BR
L_BSS,";
&QRY2 = &QRY2 | "ICMSSUB_BRL_AMT,ICMSSUB_BRL_BSE,ICMSTAX_BRL_DUE,CSLL_BRL_RET
ENT,";
&QRY2 = &QRY2 | "CFOP_INCOM_PBL,IPI_CRLIM_PCT_PBL,IPI_EXTCR_PCT_PBL,ICMS_CRLI
M_PCT_PBL,";
&QRY2 = &QRY2 | "ICMS_EXTCR_PCT_PBL,ICMS_COMPL_PCT_PBL,PIS_BRL_RETENT,";
&QRY3 = "COFINS_BRL_RETENT,IPITAX_PBL_DIV,TOF_PBL,NF_LINE_TYPE_BBL,";
&QRY3 = &QRY3 | "RMNEIO_LINE_NO_BBL,DEMAND_SOURCE,SOURCE_BUS_UNIT,PRODUCT_ID,
";
&QRY3 = &QRY3 | "KIT_LINE_NBR,ITEM_ORIGIN_BBL,SIT_TRIB_ICMS_BBL,CFOP_EXT_CD_B
BL,";
&QRY3 = &QRY3 | "INT_TAX_CLASS_BRL,UNIT_AMT_BSE_BBL,NET_AMT_BSE_BBL,UNIT_COST
,";
&QRY3 = &QRY3 | "COFINS_BSS_AMT_BBL,COFINS_PCT_BBL,COFINS_AMT_BBL,COFINS_AMT_
BSE_BBL,";
&QRY3 = &QRY3 | "PIS_BSS_AMT_BBL,PIS_PCT_BBL,PIS_AMT_BBL,PIS_AMT_BSE_BBL,";
&QRY3 = &QRY3 | "ISSTAX_BRL_BSS,ISSTAX_BRL_PCT,ISSTAX_BRL_AMT,ISSTAX_BRL_BSE,
";
&QRY3 = &QRY3 | "MVA_PCT_BBL,LT_IPI_BSE_BBL,LT_ICMS_BSE_BBL,LT_ICMS_ST_BSE_BB
L,";
&QRY4 = "LT_PIS_BSE_BBL,LT_COFINS_BSE_BBL,LT_ISS_BSE_BBL,FIN_CHG_PCT_BBL,";
&QRY4 = &QRY4 | "FINCHG_AMT_BBL,FINCHG_AMT_BSE_BBL,NF_ACT_TMPL_BBL,ICMSTAX_ST
S_BBL,";
&QRY4 = &QRY4 | "ICMSSUB_STS_BBL,IPITAX_STS_BBL,ISSTAX_STS_BBL,IRTAX_STS_BBL,
INSSTAX_STS_BBL,";
&QRY4 = &QRY4 | "IPI_IN_ICMSBAS_BBL,ICMS_RED_BSE_BBL,ICMSST_RED_BSE_BBL,IPI_R
ED_BSE_BBL,";
&QRY4 = &QRY4 | "ISS_RED_BSE_BBL,IR_RED_BSE_BBL,INSS_RED_BSE_BBL,ICMSSUB_BRL_
BSS,";
&QRY4 = &QRY4 | "ICMSST_PCT_BBL,GROSS_AMT_BSE,DST_ID_DIS,DST_ID_REV,DST_ID_SU
R,";
&QRY4 = &QRY4 | "INVENTORY_ITEM,COST_ADJ_STS_PBL,FRT_INCR_BSE_BBL,INSR_INCR_B
SE_BBL,";
&QRY4 = &QRY4 | "OTEX_INCR_BSE_BBL,WTHD_CD,PROCESS_INSTANCE,DESCR254_MIXED,";
&QRY4 = &QRY4 | "PYMNT_TERMS_CD,PAY_TRM_BSE_DT_OPT,ICMS_COMPL_FLG_PBL,";
&QRY5 = "COFINST_BSSAMT_BBL,COFINSST_PCT_BBL,COFINSST_AMT_BBL,COFINST_BSEAMT_
BBL,";
&QRY5 = &QRY5 | "LT_COFINSSTBSE_BBL,PISST_BSS_AMT_BBL,PISST_PCT_BBL,PISST_AMT
_BBL,";
&QRY5 = &QRY5 | "PISST_BSE_AMT_BBL,LT_PISS_BSE_BBL,IR_BSS_AMT_BBL,IR_PCT_BBL,
IR_BSE_AMT_BBL,";
&QRY5 = &QRY5 | "IR_AMT_BBL,LT_IRBSE_BBL,INSS_BSS_AMT_BBL,INSS_PCT_BBL,INSS_B
SE_AMT_BBL,";
&QRY5 = &QRY5 | "INSS_AMT_BBL,LT_INSSBSE_BBL,IF_BRL,PAYTRMS_DT_BSE_PBL,FLOW_S
TATUS_PBL,";
&QRY5 = &QRY5 | "RTV_ID,RTV_LN_NBR,FLOW_ID_BBL,FLOW_BUS_UNIT_IN,STORAGE_AREA,
STOR_LEVEL_1,";
&QRY5 = &QRY5 | "STOR_LEVEL_2,STOR_LEVEL_3,STOR_LEVEL_4,FLOW_SHIP_ID_BBL,FLOW
_LOCATION_BBL,";
&QRY5 = &QRY5 | "ICMS_DISCOUNT_BBL,DT_FLOW_BBL,COEF_BASE_FLG_PBL,COEF_BASE_IC
MS_PBL,COEF_BASE_IPI_PBL,ISS_BRL_RETENTION,DISTRIB_MTHD_FLG,IPITAX_BRL_RED";
&QRY6 = ",PISTAX_BRL_AMT,COFINSTAX_BRL_AMT,COEF_BASE_PIS_PBL,COEF_BASE_COFI_P
BL,CF_IPI_ID_PBL,CF_ICMS_ID_PBL,CF_PIS_ID_PBL,CF_COFINS_ID_PBL,PIS_TAX_STATUS_PB
L,COFI_TX_STATUS_PBL,PIS_CRLIM_PCT_PBL,COFI_CRLIM_PCT_PBL) VALUES (";
&QRY6 = &QRY6 | ":1,:2,:3,0,0,' ',' ',:4,:5,:6,:7,:8,:9,0,";
&QRY6 = &QRY6 | ":10,:11,:12,0,0,0,0,0,0,0,:51,:52,' ',' ',' ', 0,0,' ',";
&QRY6 = &QRY6 | ":13,:14,:15,:16,:17,:18,0,0,0, 0,0,' ',0,";
&QRY6 = &QRY6 | " 0,0,0,0,0,0,0,0,0,' ', 0,0,0,0,0,0,0,0,:19,";
&QRY6 = &QRY6 | ":20,0,' ',:21,:22,:23,:24,' ',:25,' ',:26,:27,";
&QRY6 = &QRY6 | ":28,0,0,0,0,0,0,0,0,0,0,0,0,0,:29,:30,:31,:32,";
&QRY7 = ":33,:34,0,0,0,:35,' ',' ',' ',' ',' ',' ',' ',0,0,0,0,";
&QRY7 = &QRY7 | "0,0,0,0,0,:36,:37,:38,' ',' ',0,0,0,' ',0,' ',' ',' ',' ',0,
0,0,0,:39,0,";
&QRY7 = &QRY7 | "0,0,0,:40,0,0,0,0,:41,0,0,0,0,:42,:43,%DateIn('1900-01-01'),
";
&QRY7 = &QRY7 | "' ',' ',0,:44,:45,:46,:47,:48,:49,:50,' ',' ',0,%DateIn('190
0-01-01'),' ',0,0,0,' ',0,0,0,0,0,' ',' ',' ',' ',' ',' ',0,0) ";
If &OK = True Then
SQLExec(&QRY1 | &QRY2 | &QRY3 | &QRY4 | &QRY5 | &QRY6 | &QRY7, &BU, &NF_BR
L_ID, &NF_BRL_LINE_NUM, &INVITEM_SETID, &INV_ITEM_ID, &DESCR, &MERCHANDISE_AMT,
&MERCH_AMT_BSE, &QTY_NF_BRL, &UNIT_OF_MEASURE, &UNIT_PRICE, &NET_UNIT_PRICE, &CU
RRENCY_CD2, &CURRENCY_CD_BASE2, &CURRENCY_CD2, &CFO_BRL_CD, &PURCH_PROP_BRL, &TA
X_CLASS_BRL, &TOF_PBL, &NF_LINE_TYPE_BBL, &SOURCE_BUS_UNIT, &PRODUCT_ID, &KIT_LI
NE_NBR, &ITEM_ORIGIN_BBL, &CFOP_EXT_CD_BBL, &UNIT_AMT_BSE_BBL, &NET_AMT_BSE_BBL,
&UNIT_COST, &LT_IPI_BSE_BBL, &LT_ICMS_BSE_BBL, &LT_ICMS_ST_BSE_BBL, &LT_PIS_BSE
_BBL, &LT_COFINS_BSE_BBL, &LT_ISS_BSE_BBL, &NF_ACT_TMPL_BBL, &DST_ID_DIS, &DST_I
D_REV, &DST_ID_SUR, &LT_PISS_BSE_BBL, &LT_PISS_BSE_BBL, &LT_PISS_BSE_BBL, &LT_PI
SS_BSE_BBL, &IF_BRL, &FLOW_ID_BBL2, &FLOW_BUS_UNIT_IN, &STORAGE_AREA, &STOR_LEVE
L_1, &STOR_LEVEL_2, &STOR_LEVEL_3, &STOR_LEVEL_4, &DSCNT_AMT_BSE, &DSCNT_PCT);
End-If;
End-Function;
/*** BRLOC_BI - SBRITO - AGO/2001 - Percorre Linhas da NF Pai***/
Function NF_Line_Scroll(&NF, &BU, &VAL_PAI, &NF_BRL_NEW, &NF_AVO, &EXT, &VAL_EXT
);
If &VAL_PAI = True Then
For &x = 1 To &l_seq.Len
&LINE_NUM = &l_seq[&x];
GetNF_Line_Data(&NF_AVO, &BU, &LINE_NUM);
Insert_Line(&NF_BRL_NEW, &BU, &LINE_NUM, &VAL_PAI, &EXT);
End-For;
Else
&QRY = "SELECT NF_BRL_LINE_NUM ";
&QRY = &QRY | " FROM PS_NF_LN_BBL_FS WHERE ";
&SQL2 = CreateSQL(&QRY, &NF, &BU);
While &SQL2.Fetch(&LINE_NUM)
GetNF_Line_Data(&NF, &BU, &LINE_NUM);
End-While;
&SQL2.Close();
End-If;
Else
If All(&VAL_EXT) Then
For &x = 1 To &l_seq.Len
&LINE_NUM = &l_seq[&x];
GetNF_Line_Data(&NF_AVO, &BU, &LINE_NUM);
End-For;
Else
&l_seq = CreateArrayRept(0, 0);
&l_value = CreateArrayRept(0, 0);
&l_qty = CreateArrayRept(0, 0);
&l_item = CreateArrayRept("", 0);
&l_uvalue = CreateArrayRept(0, 0);
&l_nvalue = CreateArrayRept(0, 0);
&l_ouvalue = CreateArrayRept(0, 0);
&l_onvalue = CreateArrayRept(0, 0);
/*BRLOC-BI-FCF-27/05/02 - ALTER THE FUNCTION TO TAKE THE VALUE OF THE D
ESCOUNT */
&l_ondescpct = CreateArrayRept(0, 0);
&l_ondescamt = CreateArrayRept(0, 0);

&l_onnetamtbsebbl = CreateArrayRept(0, 0);
/*BRLOC-BI-FCF-27/05/02 - ALTER THE FUNCTION TO TAKE THE VALUE OF THE D
ESCOUNT */
For &i = 1 To ActiveRowCount(Record.NF_LN_BBL_FS);
&SEL = FetchValue(Record.NF_FLW_BBL2_WRK, &i, NF_FLW_BBL2_WRK.LINK_F
LG_BBL);
If &SEL = "N" Then
&LINE_NUM = FetchValue(Record.NF_LN_BBL_FS, &i, NF_LN_BBL_FS.NF_B
RL_LINE_NUM);
&ITEM_EXT = FetchValue(Record.NF_LN_BBL_FS, &i, NF_LN_BBL_FS.INV_
ITEM_ID);
&QTY_EXT = FetchValue(Record.NF_LN_BBL_FS, &i, NF_LN_BBL_FS.QTY_N
F_BRL);
&DSCT_EXT = FetchValue(Record.NF_LN_BBL_FS, &i, NF_LN_BBL_FS.DSCN
T_PCT);
&DSCNT_PCT = &DSCT_EXT;
&UVAL_EXT = FetchValue(Record.NF_LN_BBL_FS, &i, NF_LN_BBL_FS.UNIT
_AMT_BSE_BBL);
&NVAL_EXT = (&UVAL_EXT - &UVAL_EXT * (&DSCT_EXT / 100)) * &QTY_EX
T;
&OUVAL_EXT = FetchValue(Record.NF_LN_BBL_FS, &i, NF_LN_BBL_FS.UNI
T_PRICE);
&ONVAL_EXT = (&OUVAL_EXT - &OUVAL_EXT * (&DSCT_EXT / 100)) * &QTY
_EXT;
/*BRLOC-BI-FCF-27/05/02 - ALTER THE FUNCTION TO TAKE THE VALUE OF
THE DESCOUNT */
&DSCNT_AMT_BSE = FetchValue(Record.NF_LN_BBL_FS, &i, NF_LN_BBL_FS
.DSCNT_AMT_BSE);
&NET_AMT_BSE_BBL = FetchValue(Record.NF_LN_BBL_FS, &i, NF_LN_BBL_
FS.NET_AMT_BSE_BBL);
&l_onnetamtbsebbl.Push(&NET_AMT_BSE_BBL);
&l_ondescpct.Push(&DSCNT_PCT);
&l_ondescamt.Push(&DSCNT_AMT_BSE);
/*BRLOC-BI-FCF-27/05/02 - ALTER THE FUNCTION TO TAKE THE VALUE OF
THE DESCOUNT */
&l_seq.Push(&LINE_NUM);
&l_qty.Push(&QTY_EXT);
&l_item.Push(&ITEM_EXT);
&l_uvalue.Push(&UVAL_EXT);
&l_nvalue.Push(&NVAL_EXT);
&l_ouvalue.Push(&OUVAL_EXT);
&l_onvalue.Push(&ONVAL_EXT);
If &UVAL_EXT > 0 Then
&GVAL_EXT = &NVAL_EXT;
Else
&GVAL_EXT = &ONVAL_EXT;
End-If;
&l_value.Push(&GVAL_EXT);
GetNF_Line_Data(&NF, &BU, &LINE_NUM);
End-If;
End-For;
End-If;
End-If
End-Function;
/*** GERA NF DERIVED ***/

Function GeraNew(&ptr, &NF, &BU) Returns string ;
&TAM = Len(RTrim(&NF));
&matrix = "ABCDEFGHIJKLMNOPQRSTUVXWYZ";
&Achou = 1;
While &ptr <= 26 And
&Achou > 0
&NEW = Substring(&matrix, &ptr, 1);
If &TAM = 10 Then
&RET = &NEW | Substring(&NF, 2, 9);
Else
&RET = &NEW | &NF;
End-If;
SQLExec("SELECT COUNT(*) FROM PS_NF_HDR_BBL_FS WHERE BUSINESS_UNIT = :1 AN
D NF_BRL_ID = :2 ", &BU, &RET, &Achou);
If &Achou > 0 Then
&ptr = &ptr + 1;
End-If;
End-While;
If &Achou > 0 Or
&ptr > 26 Then
&x = GetNbrStart() + 1;
SQLExec("UPDATE PS_INSTALLATION SET NF_BRL_NUM_LASTUSE=:1", &x);
&RET = Char(&x);
End-If;
Return &RET;
End-Function;
/***
BRLOC_BI - SBRITO - AGO/2001 - Gera nfs apartir de uma estrutura de fluxo.
***/
Function nf_derived_generate(&NF, &BU, &FLOW_EXT, &LT_EXT, &TOF_EXT, &VAL_EXT, &
NEW_EXT) Returns boolean ;
&RET = False;
&EXT = False;
If None(&FLOW_EXT) Or
&FLOW_EXT = "" Then
&FLOW_ID = GetNF_FlowID(&NF, &BU);
Else
&FLOW_ID = &FLOW_EXT;
&EXT = True;
If None(&LT_EXT) Or
None(&TOF_EXT) Then
Error ("Grupo e Operao devem ser informados");
Return False;
Else
End-If;
End-If;
If All(&FLOW_ID) Then
&SETID_FLOW = GetSetId_Flow(&BU);
If GetFlow_Struct(&FLOW_ID, &SETID_FLOW) Then
&RET = True;
&NF_PAI = GetNF_Father(&NF, &BU);
&SETID_CUST = GetSetId_Cust(&BU);
&SETID_LT = GetSetId_LT(&BU);
/*** Marca data para controle ***/
If &DT_FLG_BBL = "Y" And
&EXT = False Then
Mark_Date(&NF, &BU, &DT_TERM_BBL);

Else
End-If;
GetNF_HDR_Data(&NF, &BU);
If GetNF_Derived(&FLOW_ID, &SETID_FLOW, &EXT, &LT_EXT, &TOF_EXT, &VAL_E
XT) Then
/*** Cria NFs Filhas ***/
&n = 0;
For &i = 1 To &d_flowid.Len
&n = &n + 1;
&FLOW_ID_BBL2 = &d_flowid[&i];
If GetFlow_Struct(&d_flowid[&i], &SETID_FLOW) Then
/*** ShipTo da NF ***/
&DST_ID_AR = GetDST_ID_AR(&SETID_CUST, &SHIP_TO_CUST_ID);
&SHIP_BRL_TO_STATE = GetBRL_TO_STATE(&SETID_CUST, &SHIP_TO_CUS
T_ID, &ADDRESS_SEQ_SHIP);
&SETID_LOC = GetSetId_Loc(&BU);
GetBRL_FROM_STATE(&BU, &SETID_LOC);
&COUNTRY = &COUNTRY_FROM;
If &d_shipto[&i] = "Y" Then
&SHIP_TO_CUST_ID = &FLOW_SHIP_ID_BBL;
&ADDRESS_SEQ_SHIP = &FLOW_LOCATION_BBL;
&BILL_TO_CUST_ID = &FLOW_SHIP_ID_BBL;
&ADDRESS_SEQ_NUM = &FLOW_LOCATION_BBL;
/*** Pega novos valores de cliente ***/
&IE = GetNUM_QUAL(&SETID_CUST, &SHIP_TO_CUST_ID, "IE");
&CNJ = GetNUM_QUAL(&SETID_CUST, &SHIP_TO_CUST_ID, "CNJ");
&IM = GetNUM_QUAL(&SETID_CUST, &SHIP_TO_CUST_ID, "CCM");
&CPF = GetNUM_QUAL(&SETID_CUST, &SHIP_TO_CUST_ID, "CPF");
&LOCATION = " ";
&DESTIN_BU = " ";
/*&PYMENT_TERMS_CD = " ";*/
Else
End-If;
/*** Formao de Valores da NF ***/
If All(&d_value[&i]) Then
&VAL_PAI = True;
If GetValue_formulate(&d_value[&i]) Then
Solve_ValueFormulate(&NF, &BU, &NF_PAI, &BUS_UNIT_REF_BB
L, &SHIP_TO_CUST_ID);
Else
End-If;
Else
&VAL_PAI = False;
End-If;
If &RMA_FLG_BBL = "Y" Then
&TIE_NF_FLG_BBL = "Y";
Else
&TIE_NF_FLG_BBL = "N";
End-If;
/* Pega valore novos para filho */
&LT_GRP_ID_BBL = &d_lttof[&i];
GetLT_Data(&SETID_LT, &LT_GRP_ID_BBL);
&DOC_CLASS_BBL2 = &DOC_CLASS_BBL;
&TOF_PBL = &d_tof[&i];
GetOF_Data(&TOF_PBL);
setCFOP();
If &AR_FLG_BBL = "N" Then
&BILL_TO_CUST_ID = " ";

&ADDRESS_SEQ_NUM = 0;
Else
&BILL_TO_CUST_ID = &SHIP_TO_CUST_ID;
&ADDRESS_SEQ_NUM = &ADDRESS_SEQ_SHIP;
End-If;
If &SHIP_TRAN = "Y" Or
&RECV_TRAN = "Y" Then
If None(&FLOW_BUS_UNIT_IN) Then
GetFlow_INV(&BU, &NF, &NF_PAI);
End-If;
End-If;
If All(&NEW_EXT) Then
&NF_BRL_NEW = &NEW_EXT;
Else
&NF_BRL_NEW = GeraNew(&n, &NF, &BU);
End-If;
Insert_HDR(&NF_BRL_NEW, &BU);
Insert_Link(&NF_BRL_NEW, &BU, &NF, &NF_PAI);
If &d_shipto[&i] = "N" Then
Insert_ADDR2(&NF_BRL_NEW, &BU, "ST", &NF);
Insert_ADDR2(&NF_BRL_NEW, &BU, "BL", &NF);
Insert_ADDR2(&NF_BRL_NEW, &BU, "DE", &NF);
Insert_ADDR2(&NF_BRL_NEW, &BU, "LC", &NF);
Else
Insert_ADDR(&NF_BRL_NEW, &BU, "ST", &SETID_CUST, &SHIP_TO_C
UST_ID, &ADDRESS_SEQ_SHIP, &IE, &CNJ, &IM, &CPF);
End-If;
NF_Line_Scroll(&NF, &BU, &VAL_PAI, &NF_BRL_NEW, &NF_PAI, &EXT,
&VAL_EXT);
Else
End-If;
End-For;
Else
End-If;
Else
End-If;
Else
End-If;
Return &RET;
End-Function;
[FUNCLIB_OF.FLOW_ID_DRV_BBL.FieldFormula]
Declare Function nf_derived_generate PeopleCode FLOW_ID_BBL FieldFormula;
Function GenerateNF() Returns boolean ;
&RET = True;
&NF = NF_HDR_BBL_FS.NF_BRL_ID;
&BU = NF_HDR_BBL_FS.BUSINESS_UNIT;
&NF_NEW = FetchValue(NF_FLOW_BBL_WRK.NF_BRL_ID, 1);
&FLOW_ID_DRV_BBL = FetchValue(NF_FLOW_BBL_WRK.FLOW_ID_DRV_BBL, 1);
&NF_VAL_CREATE_BBL = FetchValue(NF_FLOW_BBL_WRK.NF_VAL_CREATE_BBL, 1);
&TOF_PBL = FetchValue(NF_FLOW_BBL_WRK.TOF_PBL, 1);
&LT_GRP_ID_BBL = FetchValue(NF_FLOW_BBL_WRK.LT_GRP_ID_BBL, 1);
&SHIPTO_FLG_BBL = FetchValue(NF_FLOW_BBL_WRK.SHIPTO_FLG_BBL, 1);
If &NF_NEW = "" Then
&NF_NEW = " ";

End-If;
If All(&FLOW_ID_DRV_BBL) And
All(&TOF_PBL) And
All(&LT_GRP_ID_BBL) Then
If nf_derived_generate(&NF, &BU, &FLOW_ID_DRV_BBL, &LT_GRP_ID_BBL, &TOF_PB
L, &NF_VAL_CREATE_BBL, &NF_NEW) Then
Else
End-If;
Return &RET;
Else
&RET = False;
Return &RET;
End-If;
End-Function;
[MMC_IN_LIB.FUNCLIB.FieldFormula]
Declare Function BUSCA_SETID PeopleCode MMC_BU_SETID.SETID SavePreChange;
Function busca_origem_item(&setid As string, &inv_item_id As string) Returns str
ing
&SQL = CreateSQL("SELECT ITEM_ORIGIN_BBL FROM SYSADM.PS_INV_ITEMS WHERE SETID
= :1 AND INV_ITEM_ID = :2", &setid, &inv_item_id);
If &SQL.FETCH(&ITEM_ORIGIN_BBL) Then
Return &ITEM_ORIGIN_BBL;
End-If;
Return "";
End-Function;
Function match(&business_unit As string, &inv_item_id As string, &item_origin_bb
l As string, &distrib_type As string, &deptid As string, &project_id As string)
Returns boolean
&SQL = CreateSQL("SELECT STORAGE_AREA, STOR_LEVEL_1, STOR_LEVEL_2, STOR_LEVEL
_3, STOR_LEVEL_4 FROM SYSADM.PS_MMC_ARM_RULES WHERE BUSINESS_UNIT = :1 AND INV_I
TEM_ID = :2 AND ITEM_ORIGIN_BBL = :3 AND DISTRIB_TYPE = :4 AND DEPTID = :5 AND P
ROJECT_ID = :6", &business_unit, &inv_item_id, &item_origin_bbl, &distrib_type,
&deptid, &project_id);
If &SQL.FETCH(&STORAGE_AREA, &STOR_LEVEL_1, &STOR_LEVEL_2, &STOR_LEVEL_3, &ST
OR_LEVEL_4) Then
If All(&STORAGE_AREA) Then
PHYS_INV_VW1.STORAGE_AREA = &STORAGE_AREA;
End-If;
If All(&STOR_LEVEL_1) Then
PHYS_INV_VW1.STOR_LEVEL_1 = &STOR_LEVEL_1;
End-If;
End-If;
End-If;
End-If;
Return True;
End-If;
Return False;
End-Function;
Function match_rule(&business_unit As string, &inv_item_id As string, &distrib_t
ype As string, &deptid As string, &project_id As string) Returns boolean
&setid = BUSCA_SETID();
If None(&setid) Then
Error "No foi possvel obter o SETID da empresa.";
End-If;
&ITEM_ORIGIN_BBL = busca_origem_item(&setid, &inv_item_id);
If None(&ITEM_ORIGIN_BBL) Then
Error "No foi possvel encontrar a origem do item : " | &inv_item_id;
End-If;
&result = match(&business_unit, &inv_item_id, &ITEM_ORIGIN_BBL, &distrib_type
, &deptid, &project_id);
If &result = False Then
&result = match(&business_unit, " ", &ITEM_ORIGIN_BBL, &distrib_type, &dep
tid, &project_id);
End-If;
Return &result;
End-Function;
[MMC_IN_LIB.FUNCLIB.SavePostChange]
/*******************************************************************************
*****************
* Wagner Sorio / Claudio Costa - MMC - 24/10/2007 - mmcb.at2323 - Sistema Contr
ole Terceiros *
* Biblioteca de Funes de Entrada e Reduo de Estoque.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Fabiano Cunha - MMC - 06/03/2008 - mmcb.at0603 - armazenagem on-line dos iten
s fabricados. *
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Gustavo MMC - 28-01-2009 mmcb.2946 - Cotrole de materiais de terceiros em pod

er da MMC
*
* Funo que grava na tabela de controle
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Fausto Mastrella MMC - 26-04-2010 mmcb.hd89739 - Update SQL faltando um parnte
se
*
* (Enc. Bleno Sampaio)
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Adercley Maral MMC - 21/02/2013 - mmcb.sds4289 - Criada a funcao ATUALIZA_PHYS
ICAL_INV_720
*
* como copia da ATUALIZA_PHYSICAL_INV_020. Inclusao da TRANSACTION_GROUP 720 no
evaluate
*
* da funo ATUALIZA_BU_ITEMS_INV
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Vincius Alves Mello - MMC - 30/04/2013 - mmcb.hd170820
*
* Para os itens no controlados por lote, o config code deve ser igual a espao em
branco. *
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
* Converter a quantidade da MMC_TE_CONTR_MT para a quantidade da unidade de med
ida padro.
*
*******************************************************************************
*****************/
/*******************************************************************************
****************
* Leandro Rodrigues da silva Souza - MMC - mmcb.hd193198 - 22/01/2014
*
* Gerar Rastreabilidade na Liberao de Veiculos.
*
*******************************************************************************
****************/
/*******************************************************************************
****************
* Leandro Rodrigues da silva Souza - MMC - mmcb.hd216206 - 07/10/2014
*
* Gerando saldo negativo para o campo de reserva na BU_ITEMS_INV
*
*******************************************************************************
****************/
/*******************************************************************************
****************
Gera apontamentos de rastreabilidade caso no exista no momento da liberao.
********************************************************************************
***************/
/* Leandro Rodrigues da Silva Souza - MMCB - SDS5026 - 17/11/2015
*
* O nem sempre todos os processos que movimentam item para areas WIP
*
* considera que o item deve possuir a quantidade reservada
*
********************************************************************************
****************/
/*******************************************************************************
****************
*
* Bloquear a gravao de item na UN de estoque, caso o mesmo no possua cadastro.
*
*******************************************************************************
****************/
/*******************************************************************************
****************
* Vincius Alves Mello - MMC - mmcb.sds5105 - 26/01/2015
*
* Ajustes controle de terceiros em nosso poder.
*
*******************************************************************************
****************/
/*hd193198.sn*/
Function ATUALIZAR_RASTREABILIDADE(&PAR_BUSINESS_UNIT, &PAR_PRODUCTION_ID)
SQLExec("SELECT MMC_CP_GRUPO, MMC_ID_APONTAM, INV_ITEM_TEMPLATE, INV_LOT_ID F
ROM (SELECT MMC_CP_GRUPO,MMC_ID_APONTAM, INV_ITEM_TEMPLATE, INV_LOT_ID FROM SYSA
DM.PS_MMC_PRS_APONTAM WHERE BUSINESS_UNIT =:1 AND PRODUCTION_ID =:2 ORDER BY MMC
_SEQ_PROCES DESC) WHERE ROWNUM = 1", &PAR_BUSINESS_UNIT, &PAR_PRODUCTION_ID, &V_
MMC_CP_GRUPO, &V_MMC_ID_APONTAM, &V_INV_ITEM_TEMPLATE, &V_INV_LOT_ID);
&SQL = "SELECT BUSINESS_UNIT, MMC_CP_GRUPO, :1 MMC_ID_APONTAM, ' ' MMC_CABINE
, MMC_SEQ_PROCES,MMC_LOC_APONTAM, :2 INV_ITEM_TEMPLATE, :3 INV_LOT_ID, :4 PRODUC
TION_ID, :5 MMC_SUFIXO_CHASSI FROM SYSADM.PS_MMC_LOC_APONTAM A WHERE A.BUSINESS_
UNIT=:6 AND A.MMC_CP_GRUPO = :7 AND A.MMC_SEQ_PROCES < '70' and A.MMC_SEQ_PROCES
NOT IN ('62','65') AND NOT EXISTS(SELECT 'Y' FROM SYSADM.PS_MMC_PRS_APONTAM B W
HERE B.BUSINESS_UNIT = A.BUSINESS_UNIT AND B.MMC_CP_GRUPO = A.MMC_CP_GRUPO AND B
.MMC_SEQ_PROCES = A.MMC_SEQ_PROCES AND B.PRODUCTION_ID =:8 AND B.MMC_LOC_APONTAM
= A.MMC_LOC_APONTAM)";
&cmdSQL = CreateSQL(&SQL, &V_MMC_ID_APONTAM, &V_INV_ITEM_TEMPLATE, &V_INV_LOT
_ID, &PAR_PRODUCTION_ID, &V_MMC_ID_APONTAM, &PAR_BUSINESS_UNIT, &V_MMC_CP_GRUPO,
&PAR_PRODUCTION_ID);
While &cmdSQL.fetch(&V_BUSINESS_UNIT, &V_MMC_CP_GRUPO, &V_MMC_ID_APONTAM, &V_
MMC_CABINE, &V_MMC_SEQ_PROCES, &V_MMC_LOC_APONTAM, &V_INV_ITEM_TEMPLATE, &V_INV_
LOT_ID, &V_PRODUCTION_ID, &V_MMC_SUFIXO_CHASSI);
/*&INSERT = "Insert into SYSADM.PS_MMC_PRS_APONTAM(BUSINESS_UNIT, MMC_CP_G

RUPO, MMC_ID_APONTAM, MMC_CABINE, MMC_SEQ_PROCES, MMC_LOC_APONTAM, INV_ITEM_TEMP
LATE, INV_LOT_ID, PRODUCTION_ID, MMC_SUFIXO_CHASSI, DT_TIMESTAMP)Values('" | &PA
R_BUSINESS_UNIT | "','" | &V_MMC_CP_GRUPO | "','" | &V_MMC_ID_APONTAM | "', ' ',
'" | &V_MMC_SEQ_PROCES | "', '" | &V_MMC_LOC_APONTAM | "', '" | &V_INV_ITEM_TEM
PLATE | "', '" | &V_INV_LOT_ID | "',TRIM('" | &PAR_PRODUCTION_ID | "'),'" | &V_M
MC_SUFIXO_CHASSI | "',SYSDATE)";
SQLExec(&INSERT);
*/
&INSERT = "Insert into SYSADM.PS_MMC_PRS_APONTAM(BUSINESS_UNIT, MMC_CP_GRU
PO, MMC_ID_APONTAM, MMC_CABINE, MMC_SEQ_PROCES, MMC_LOC_APONTAM, INV_ITEM_TEMPLA
TE, INV_LOT_ID, PRODUCTION_ID, MMC_SUFIXO_CHASSI, DT_TIMESTAMP) Values (:1, :2,
:3, :4,:5, :6, :7, :8,:9,:10,SYSDATE)";
SQLExec(&INSERT, &PAR_BUSINESS_UNIT, &V_MMC_CP_GRUPO, &V_MMC_ID_APONTAM, "
", &V_MMC_SEQ_PROCES, &V_MMC_LOC_APONTAM, &V_INV_ITEM_TEMPLATE, &V_INV_LOT_ID,
&PAR_PRODUCTION_ID, &V_MMC_SUFIXO_CHASSI);
End-While;
End-Function;
/*******************************************************************************
****************/
/*hd193198.en*/
/* mmcb.SDS5026.sn */
Function quantidadeReservadaBU(&bu, &item) Returns number
&qty_allocated_dmnd_inv = 0;
SQLExec("select SUM(MDI.QTY_ALLOCATED) FROM SYSADM.PS_MMC_DMND_INV MDI WHERE
MDI.BUSINESS_UNIT =:1 AND MDI.INV_ITEM_ID =:2", &bu, &item, &qty_allocated_dmnd_
inv);
&qty_allocated = 0;
SQLExec("select sum(qty_allocated) from SYSADM.PS_demand_inv where business_u
nit=:1 and inv_item_id =:2 and cancel_flag <> 'Y'", &bu, &item, &qty_allocated);
&qty_allocated_ship = 0;
&qty_shipped = 0;
SQLExec("select sum(qty_allocated), sum(qty_shipped) from SYSADM.PS_ship_inf_
inv a where a.business_unit =:1 and a.inv_item_id =:2 and a.confirmed_flag = 'Y'
and a.pssh_complete
= 'N' and a.pssh_run_status <> 3 and a.cancel_flag <
> 'Y' ", &bu, &item, &qty_allocated_ship, &qty_shipped);
&qty_allocated_ship2 = 0;
&qty_shipped_2 = 0;
SQLExec("select sum(qty_allocated),sum(qty_shipped) from SYSADM.PS_ship_inf_i
nv a where a.business_unit=:1 and a.inv_item_id=:2 and a.confirmed_flag
= '
Y' and a.pssh_complete
= 'Y' and a.pssh_run_status = 1 and a.cancel_flag <
> 'Y' ", &bu, &item, &qty_allocated_ship2, &qty_shipped_2);
If &qty_shipped <= 0 Then
&qty_res_bu = &qty_allocated_ship + &qty_allocated;
Else
&qty_res_bu = &qty_shipped + &qty_allocated;
End-If;
If &qty_shipped_2 <= 0 Then
&qty_res_bu = &qty_res_bu + &qty_allocated_ship2;

Else
&qty_res_bu = &qty_res_bu + &qty_shipped_2;
End-If;
&qty_pi_ar = 0;
SQLExec("SELECT SUM(PI_AR.QTY) FROM SYSADM.PS_PHYSICAL_INV PI_AR, SYSADM.PS_S
TOR_LOC_INV SL_AR WHERE PI_AR.BUSINESS_UNIT =:1 AND PI_AR.INV_ITEM_ID=:2 AND PI_
AR.SERIAL_ID = 'NONE' AND PI_AR.BUSINESS_UNIT = SL_AR.BUSINESS_UNIT AND PI_AR.ST
ORAGE_AREA = SL_AR.STORAGE_AREA AND PI_AR.STOR_LEVEL_1 = SL_AR.STOR_LEVEL_1 AND
PI_AR.STOR_LEVEL_2 = SL_AR.STOR_LEVEL_2 AND PI_AR.STOR_LEVEL_3 = SL_AR.STOR_LEVE
L_3 AND PI_AR.STOR_LEVEL_4 = SL_AR.STOR_LEVEL_4 AND SL_AR.WIP_LOC_FLG = 'Y' AND
SL_AR.NETTABLE_FLG = 'Y'", &bu, &item, &qty_pi_ar);
&QTY_RESERVED2 = 0;
SQLExec("SELECT SUM(A.QTY_RESERVED) FROM SYSADM.PS_PHYSICAL_INV A, SYSADM.PS_
BU_ITEMS_INV B WHERE A.BUSINESS_UNIT =:1 AND A.INV_ITEM_ID=:2 AND A.BUSINESS_UNI
T = B.BUSINESS_UNIT AND A.INV_ITEM_ID = B.INV_ITEM_ID", &bu, &item, &QTY_RESERV
ED2);
&atualizarReserva = 0;
&atualizarReserva = &QTY_RESERVED2 + &qty_pi_ar + &qty_res_bu + &qty_allocate
d_dmnd_inv;
Return &atualizarReserva;
End-Function;
/* mmcb.SDS5026.en */
Declare Function BUSCA_SETID PeopleCode MMC_BU_SETID.SETID SavePreChange; /*mmcb
.hd170820.ln*/
Function GRAVA_CONTROLE_MAT_TERC(&MAT_BUSINESS_UNIT, &MAT_NF_BRL_ID, &MAT_NF_BRL
_LINE_NUM, &MAT_NF_BRL, &MAT_NF_BRL_SERIES, &MAT_INV_ITEM_ID, &MAT_DESCR, &MAT_V
ENDOR_ID, &MAT_NF_BRL_DATE, &MAT_TRANSACTION_GROUP, &MAT_TRANSACTION_DATE, &MAT_
TAX_CLASS_BRL, &MAT_TOF_PBL, &MAT_SOURCE_BUS_UNIT, &MAT_ORDER_NO, &MAT_ORDER_INT
_LINE_NO, &MAT_BUSINESS_UNIT_BI, &MAT_MMC_NF_BRL_ID_OUT, &MAT_MMC_LINE_NUM_OUT,
&MAT_CUST_ID, &MAT_ACCOUNT, &MAT_MMC_TIPO_AJUST, &MAT_OPRID, &MAT_UNIT_OF_MEASUR
E, &MAT_MMC_OBS_AJUST, &MAT_MMC_ISSUE_QTY, &MAT_QTY_NF_BRL, &MAT_UNIT_PRICE, &MA
T_MERCHANDISE_AMT, &MAT_SHIPTO_ID)
/********************************* mmcb.hd173981.sn *************************
********/
/*Atualiza a unidade de medida para a padro, caso necessrio, atualizando tambm a
s quantidade e valores.*/
&SETID = BUSCA_SETID();
SQLExec("SELECT CONVERSION_RATE, DFLT_UOM_STOCK FROM SYSADM.PS_INV_ITEM_UOM W
HERE SETID = :1 AND INV_ITEM_ID = :2 AND UNIT_OF_MEASURE = :3", &SETID, &MAT_INV
_ITEM_ID, &MAT_UNIT_OF_MEASURE, &CAD_CONVERSION_RATE, &CAD_DFLT_UOM_STOCK);
If All(&CAD_CONVERSION_RATE, &CAD_DFLT_UOM_STOCK) And
&CAD_DFLT_UOM_STOCK = "N" Then
/*Recupera a unidade de medida padro*/
SQLExec("SELECT UNIT_OF_MEASURE FROM SYSADM.PS_INV_ITEM_UOM WHERE SETID =
:1 AND INV_ITEM_ID = :2 AND DFLT_UOM_STOCK = 'Y'", &SETID, &MAT_INV_ITEM_ID, &PD
_UNIT_OF_MEASURE);
If All(&PD_UNIT_OF_MEASURE) Then
/*Altera a unidade de medida, quanidade e valor*/

&MAT_UNIT_OF_MEASURE = &PD_UNIT_OF_MEASURE;
&MAT_MMC_ISSUE_QTY = (&MAT_MMC_ISSUE_QTY * &CAD_CONVERSION_RATE); /*mmc
b.sds5105.ln*/
&MAT_QTY_NF_BRL = (&MAT_QTY_NF_BRL * &CAD_CONVERSION_RATE);
&MAT_UNIT_PRICE = (&MAT_UNIT_PRICE / &CAD_CONVERSION_RATE);
End-If;
/********************************* mmcb.sds5105.sn ***********************
**********/
Else
/*Verifica se o item/unidade de medida no possuem cadastro*/
If None(&CAD_CONVERSION_RATE, &CAD_DFLT_UOM_STOCK) Then
Error ("O item " | &MAT_INV_ITEM_ID | " no pode ser movimentado na unida
de de medida " | &MAT_UNIT_OF_MEASURE | "! Favor verificar a parametrizao das unid
ades de medidas do item na tela Home > Manter Itens > Definir Itens > Usar > Def
inio de Item.");
End-If;
/********************************* mmcb.sds5105.en ***********************
**********/
End-If;
/********************************* mmcb.hd173981.en *************************
********/
&REC_MMC_TE_CONTR_MT = CreateRecord(Record.MMC_TE_CONTR_MT);
&REC_MMC_TE_CONTR_MT.BUSINESS_UNIT.VALUE = &MAT_BUSINESS_UNIT;
&REC_MMC_TE_CONTR_MT.NF_BRL_ID.VALUE = &MAT_NF_BRL_ID;
&REC_MMC_TE_CONTR_MT.NF_BRL_LINE_NUM.VALUE = &MAT_NF_BRL_LINE_NUM;
&REC_MMC_TE_CONTR_MT.DT_TIMESTAMP.VALUE = %Datetime;
&REC_MMC_TE_CONTR_MT.SEQ_NBR.VALUE = 1;
&REC_MMC_TE_CONTR_MT.NF_BRL.VALUE = &MAT_NF_BRL;
&REC_MMC_TE_CONTR_MT.NF_BRL_SERIES.VALUE = &MAT_NF_BRL_SERIES;
&REC_MMC_TE_CONTR_MT.INV_ITEM_ID.VALUE = &MAT_INV_ITEM_ID;
&REC_MMC_TE_CONTR_MT.DESCR.VALUE = &MAT_DESCR;
&REC_MMC_TE_CONTR_MT.VENDOR_ID.VALUE = &MAT_VENDOR_ID;
&REC_MMC_TE_CONTR_MT.NF_BRL_DATE.VALUE = &MAT_NF_BRL_DATE;
&REC_MMC_TE_CONTR_MT.TRANSACTION_GROUP.VALUE = &MAT_TRANSACTION_GROUP;
&REC_MMC_TE_CONTR_MT.TRANSACTION_DATE.VALUE = &MAT_TRANSACTION_DATE;
&REC_MMC_TE_CONTR_MT.TAX_CLASS_BRL.VALUE = &MAT_TAX_CLASS_BRL;
&REC_MMC_TE_CONTR_MT.TOF_PBL.VALUE = &MAT_TOF_PBL;
&REC_MMC_TE_CONTR_MT.SOURCE_BUS_UNIT.VALUE = &MAT_SOURCE_BUS_UNIT;
&REC_MMC_TE_CONTR_MT.ORDER_NO.VALUE = &MAT_ORDER_NO;
&REC_MMC_TE_CONTR_MT.ORDER_INT_LINE_NO.VALUE = &MAT_ORDER_INT_LINE_NO;
&REC_MMC_TE_CONTR_MT.CUST_ID.VALUE = &MAT_CUST_ID;
&REC_MMC_TE_CONTR_MT.BUSINESS_UNIT_BI.VALUE = &MAT_BUSINESS_UNIT_BI;
&REC_MMC_TE_CONTR_MT.MMC_NF_BRL_ID_OUT.VALUE = &MAT_MMC_NF_BRL_ID_OUT;
&REC_MMC_TE_CONTR_MT.MMC_LINE_NUM_OUT.VALUE = &MAT_MMC_LINE_NUM_OUT;
&REC_MMC_TE_CONTR_MT.ACCOUNT.VALUE = &MAT_ACCOUNT;
&REC_MMC_TE_CONTR_MT.MMC_TIPO_AJUST.VALUE = &MAT_MMC_TIPO_AJUST;
&REC_MMC_TE_CONTR_MT.OPRID.VALUE = %UserId;
&REC_MMC_TE_CONTR_MT.UNIT_OF_MEASURE.VALUE = &MAT_UNIT_OF_MEASURE;
&REC_MMC_TE_CONTR_MT.MMC_OBS_AJUST.VALUE = &MAT_MMC_OBS_AJUST;
&REC_MMC_TE_CONTR_MT.MMC_ISSUE_QTY.VALUE = &MAT_MMC_ISSUE_QTY;
&REC_MMC_TE_CONTR_MT.QTY_NF_BRL.VALUE = &MAT_QTY_NF_BRL;
&REC_MMC_TE_CONTR_MT.UNIT_PRICE.VALUE = &MAT_UNIT_PRICE;
&REC_MMC_TE_CONTR_MT.MERCHANDISE_AMT.VALUE = &MAT_MERCHANDISE_AMT;
&REC_MMC_TE_CONTR_MT.SHIPTO_ID.VALUE = &MAT_SHIPTO_ID;
&REC_MMC_TE_CONTR_MT.Insert();
/****************************mmcb.hd89739.so*********************************
***/
/*SQLExec("UPDATE SYSADM.PS_MMC_TE_CONTR_MT SET DESCR = UPPER(translate
DESCR,',','ACEIOUAEIOUAEIOUAOEUaceiouaeiouaeiouaoeu'
T, &MAT_NF_BRL_ID);*/
/****************************mmcb.hd89739.eo*********************************
***/
/****************************mmcb.hd89739.so*********************************
***/
SQLExec("UPDATE SYSADM.PS_MMC_TE_CONTR_MT SET DESCR = UPPER(translate(
DESCR,',','ACEIOUAEIOUAEIOUAOEUaceiouaeiouaeiouaoeu')
, &MAT_NF_BRL_ID);
/****************************mmcb.hd89739.eo*********************************
***/
End-Function;
Function ATUALIZA_CONTROLE_MAT_TERC(&MAT_BUSINESS_UNIT, &MAT_NF_BRL_ID, &MAT_NF_
BRL_LINE_NUM, &MAT_NF_BRL, &MAT_NF_BRL_SERIES, &MAT_INV_ITEM_ID, &MAT_DESCR, &MA
T_VENDOR_ID, &MAT_NF_BRL_DATE, &MAT_TRANSACTION_GROUP, &MAT_TRANSACTION_DATE, &M
AT_TAX_CLASS_BRL, &MAT_TOF_PBL, &MAT_SOURCE_BUS_UNIT, &MAT_ORDER_NO, &MAT_ORDER_
INT_LINE_NO, &MAT_BUSINESS_UNIT_BI, &MAT_MMC_NF_BRL_ID_OUT, &MAT_MMC_LINE_NUM_OU
T, &MAT_CUST_ID, &MAT_ACCOUNT, &MAT_MMC_TIPO_AJUST, &MAT_OPRID, &MAT_UNIT_OF_MEA
SURE, &MAT_MMC_OBS_AJUST, &MAT_MMC_ISSUE_QTY, &MAT_QTY_NF_BRL, &MAT_UNIT_PRICE,
&MAT_MERCHANDISE_AMT, &MAT_SHIPTO_ID)
SQLExec("delete SYSADM.PS_MMC_TE_CONTR_MT where BUSINESS_UNIT = :1 and NF_BRL
_ID = :2 and TRANSACTION_GROUP = '020'", &MAT_BUSINESS_UNIT, &MAT_NF_BRL_ID);
GRAVA_CONTROLE_MAT_TERC(&MAT_BUSINESS_UNIT, &MAT_NF_BRL_ID, &MAT_NF_BRL_LINE_
NUM, &MAT_NF_BRL, &MAT_NF_BRL_SERIES, &MAT_INV_ITEM_ID, &MAT_DESCR, &MAT_VENDOR_
ID, &MAT_NF_BRL_DATE, &MAT_TRANSACTION_GROUP, &MAT_TRANSACTION_DATE, &MAT_TAX_CL
ASS_BRL, &MAT_TOF_PBL, &MAT_SOURCE_BUS_UNIT, &MAT_ORDER_NO, &MAT_ORDER_INT_LINE_
NO, &MAT_BUSINESS_UNIT_BI, &MAT_MMC_NF_BRL_ID_OUT, &MAT_MMC_LINE_NUM_OUT, &MAT_C
UST_ID, &MAT_ACCOUNT, &MAT_MMC_TIPO_AJUST, &MAT_OPRID, &MAT_UNIT_OF_MEASURE, &MA
T_MMC_OBS_AJUST, &MAT_MMC_ISSUE_QTY, &MAT_QTY_NF_BRL, &MAT_UNIT_PRICE, &MAT_MERC
HANDISE_AMT, &MAT_SHIPTO_ID);
End-Function;
/************************* mmcb.sds2946.en ************************************
********/
Function GRAVA_STAGED_COST_INV(&SC_BUSINESS_UNIT, &SC_STAGING_ID, &SC_INV_LOT_ID

, &SC_CONTAINER_ID, &SC_INV_ITEM_ID, &SC_SERIAL_ID, &SC_RECEIVER_ID, &SC_RECV_LN
_NBR, &SC_STAGED_NUM, &SC_SOURCE_BUS_UNIT, &SC_RECV_SHIP_SEQ_NBR, &SC_DISTRIB_LI

NE_NUM, &SC_DISTRIB_SEQ_NUM, &SC_COST_ELEMENT, &SC_ACTUAL_COST, &SC_LC_COMP_FLAG
, &SC_PROCESS_INSTANCE, &SC_JOB_INSTANCE)
&REC_STAGED_COST_INV = CreateRecord(Record.STAGED_COST_INV);
&REC_STAGED_COST_INV.BUSINESS_UNIT.VALUE = &SC_BUSINESS_UNIT;
&REC_STAGED_COST_INV.STAGING_ID.VALUE = &SC_STAGING_ID;
&REC_STAGED_COST_INV.INV_LOT_ID.VALUE = &SC_INV_LOT_ID;
&REC_STAGED_COST_INV.CONTAINER_ID.VALUE = &SC_CONTAINER_ID;
&REC_STAGED_COST_INV.INV_ITEM_ID.VALUE = &SC_INV_ITEM_ID;
&REC_STAGED_COST_INV.SERIAL_ID.VALUE = &SC_SERIAL_ID;
&REC_STAGED_COST_INV.RECEIVER_ID.VALUE = &SC_RECEIVER_ID;
&REC_STAGED_COST_INV.RECV_LN_NBR.VALUE = &SC_RECV_LN_NBR;
&REC_STAGED_COST_INV.STAGED_NUM.VALUE = &SC_STAGED_NUM;
&REC_STAGED_COST_INV.SOURCE_BUS_UNIT.VALUE = &SC_SOURCE_BUS_UNIT;
&REC_STAGED_COST_INV.RECV_SHIP_SEQ_NBR.VALUE = &SC_RECV_SHIP_SEQ_NBR;
&REC_STAGED_COST_INV.DISTRIB_LINE_NUM.VALUE = &SC_DISTRIB_LINE_NUM;
&REC_STAGED_COST_INV.DISTRIB_SEQ_NUM.VALUE = &SC_DISTRIB_SEQ_NUM;
&REC_STAGED_COST_INV.COST_ELEMENT.VALUE = &SC_COST_ELEMENT;
&REC_STAGED_COST_INV.ACTUAL_COST.VALUE = &SC_ACTUAL_COST;
&REC_STAGED_COST_INV.LC_COMP_FLAG.VALUE = &SC_LC_COMP_FLAG;
&REC_STAGED_COST_INV.PROCESS_INSTANCE.VALUE = &SC_PROCESS_INSTANCE;
&REC_STAGED_COST_INV.JOB_INSTANCE.VALUE = &SC_JOB_INSTANCE;
&REC_STAGED_COST_INV.Insert();
End-Function;
/*******************************************************************************
******
* Faz Insert Tabela: SYSADM.PS_STAGED_ITEM_INV
*
********************************************************************************
*****/
Function GRAVA_STAGED_ITEM_INV(&S_BUSINESS_UNIT, &S_STAGING_ID, &S_INV_LOT_ID, &
S_CONTAINER_ID, &S_INV_ITEM_ID, &S_SERIAL_ID, &S_RECEIVER_ID, &S_RECV_LN_NBR, &S
_STAGED_NUM, &S_SOURCE_BUS_UNIT, &S_RECV_SHIP_SEQ_NBR, &S_DISTRIB_LINE_NUM, &S_D
ISTRIB_SEQ_NUM, &S_RMA_ID, &S_RMA_LINE_NBR, &S_PTWY_PLAN_ID, &S_PTWYPLAN_LN_NBR,
&S_STAGED_DATE, &S_LOT_BIRTHDATE, &S_EXPIRATION_DATE, &S_MA_PRDN_ID_FLG, &S_PRO
DUCTION_ID, &S_PRDN_AREA_CODE, &S_PRODUCTION_TYPE, &S_TO_PRODUCTION_ID, &S_OP_SE
QUENCE, &S_QTY_CODE, &S_INV_STOCK_TYPE, &S_QTY, &S_UNIT_OF_MEASURE, &S_QTY_BASE,
&S_QTY_CONV_FLAG, &S_PUTAWAY_STATUS, &S_CONVERSION_RATE, &S_TRANSFER_COST, &S_P
ROCESS_FLAG, &S_PROCESS_INSTANCE, &S_JOB_INSTANCE, &S_PUTAWAY_COMMENT, &S_FROM_S
TOR_AREA, &S_FROM_STOR_LEV1, &S_FROM_STOR_LEV2, &S_FROM_STOR_LEV3, &S_FROM_STOR_
LEV4, &S_FROM_UOM, &S_STORAGE_AREA, &S_STOR_LEVEL_1, &S_STOR_LEVEL_2, &S_STOR_LE
VEL_3, &S_STOR_LEVEL_4, &S_PUTAWAY_FLAG, &S_RECEIPT_TYPE, &S_PO_ID, &S_INTERUNIT
_ID, &S_INTERUNIT_LINE, &S_SF_KANBAN_ID, &S_INSPECT_STATUS, &S_INSPECTION_ID, &S
_LAST_PURCH_DATE, &S_NON_OWN_FLAG, &S_PURCH_LOT_ID, &S_VENDOR_ID, &S_STORAGE_COD
E, &S_OPRID, &S_STAGED_TYPE, &S_DISTRIB_TYPE, &S_PO_DT, &S_BUSINESS_UNIT_PO, &S_
TRANS_SOURCE, &S_CONFIG_CODE, &S_CANCEL_NETTABLE, &S_DT_TIMESTAMP, &S_CONTAINER_
TYPE, &S_SPEEDTYPE_KEY, &S_ACCOUNT, &S_ALTACCT, &S_OPERATING_UNIT, &S_DEPTID, &S
_PRODUCT, &S_PROJECT_ID, &S_ACTIVITY_ID, &S_RESOURCE_TYPE, &S_RESOURCE_CATEGORY,
&S_RESOURCE_SUB_CAT, &S_ANALYSIS_TYPE, &S_BUSINESS_UNIT_PC, &S_COMBO_VALID_FLG,
&S_CONSIGNED_FLAG)
&REC_STAGED_ITEM_INV = CreateRecord(Record.STAGED_ITEM_INV);
&REC_STAGED_ITEM_INV.BUSINESS_UNIT.VALUE = &S_BUSINESS_UNIT;
&REC_STAGED_ITEM_INV.STAGING_ID.VALUE = &S_STAGING_ID;
&REC_STAGED_ITEM_INV.INV_LOT_ID.VALUE = &S_INV_LOT_ID;
&REC_STAGED_ITEM_INV.CONTAINER_ID.VALUE = &S_CONTAINER_ID;
&REC_STAGED_ITEM_INV.INV_ITEM_ID.VALUE = &S_INV_ITEM_ID;
&REC_STAGED_ITEM_INV.SERIAL_ID.VALUE = &S_SERIAL_ID;
&REC_STAGED_ITEM_INV.RECEIVER_ID.VALUE = &S_RECEIVER_ID;
&REC_STAGED_ITEM_INV.RECV_LN_NBR.VALUE = &S_RECV_LN_NBR;
&REC_STAGED_ITEM_INV.STAGED_NUM.VALUE = &S_STAGED_NUM;
&REC_STAGED_ITEM_INV.SOURCE_BUS_UNIT.VALUE = &S_SOURCE_BUS_UNIT;
&REC_STAGED_ITEM_INV.RECV_SHIP_SEQ_NBR.VALUE = &S_RECV_SHIP_SEQ_NBR;
&REC_STAGED_ITEM_INV.DISTRIB_LINE_NUM.VALUE = &S_DISTRIB_LINE_NUM;
&REC_STAGED_ITEM_INV.DISTRIB_SEQ_NUM.VALUE = &S_DISTRIB_SEQ_NUM;
&REC_STAGED_ITEM_INV.RMA_ID.VALUE = &S_RMA_ID;
&REC_STAGED_ITEM_INV.RMA_LINE_NBR.VALUE = &S_RMA_LINE_NBR;
&REC_STAGED_ITEM_INV.PTWY_PLAN_ID.VALUE = &S_PTWY_PLAN_ID;
&REC_STAGED_ITEM_INV.PTWYPLAN_LN_NBR.VALUE = &S_PTWYPLAN_LN_NBR;
&REC_STAGED_ITEM_INV.STAGED_DATE.VALUE = &S_STAGED_DATE;
&REC_STAGED_ITEM_INV.LOT_BIRTHDATE.VALUE = &S_LOT_BIRTHDATE;
&REC_STAGED_ITEM_INV.EXPIRATION_DATE.VALUE = &S_EXPIRATION_DATE;
&REC_STAGED_ITEM_INV.MA_PRDN_ID_FLG.VALUE = &S_MA_PRDN_ID_FLG;
&REC_STAGED_ITEM_INV.PRODUCTION_ID.VALUE = &S_PRODUCTION_ID;
&REC_STAGED_ITEM_INV.PRDN_AREA_CODE.VALUE = &S_PRDN_AREA_CODE;
&REC_STAGED_ITEM_INV.PRODUCTION_TYPE.VALUE = &S_PRODUCTION_TYPE;
&REC_STAGED_ITEM_INV.TO_PRODUCTION_ID.VALUE = &S_TO_PRODUCTION_ID;
&REC_STAGED_ITEM_INV.OP_SEQUENCE.VALUE = &S_OP_SEQUENCE;
&REC_STAGED_ITEM_INV.QTY_CODE.VALUE = &S_QTY_CODE;
&REC_STAGED_ITEM_INV.INV_STOCK_TYPE.VALUE = &S_INV_STOCK_TYPE;
&REC_STAGED_ITEM_INV.QTY.VALUE = &S_QTY;
&REC_STAGED_ITEM_INV.UNIT_OF_MEASURE.VALUE = &S_UNIT_OF_MEASURE;
&REC_STAGED_ITEM_INV.QTY_BASE.VALUE = &S_QTY_BASE;
&REC_STAGED_ITEM_INV.QTY_CONV_FLAG.VALUE = &S_QTY_CONV_FLAG;
&REC_STAGED_ITEM_INV.PUTAWAY_STATUS.VALUE = &S_PUTAWAY_STATUS;
&REC_STAGED_ITEM_INV.CONVERSION_RATE.VALUE = &S_CONVERSION_RATE;
&REC_STAGED_ITEM_INV.TRANSFER_COST.VALUE = &S_TRANSFER_COST;
&REC_STAGED_ITEM_INV.PROCESS_FLAG.VALUE = &S_PROCESS_FLAG;
&REC_STAGED_ITEM_INV.PROCESS_INSTANCE.VALUE = &S_PROCESS_INSTANCE;
&REC_STAGED_ITEM_INV.JOB_INSTANCE.VALUE = &S_JOB_INSTANCE;
&REC_STAGED_ITEM_INV.PUTAWAY_COMMENT.VALUE = &S_PUTAWAY_COMMENT;
&REC_STAGED_ITEM_INV.FROM_STOR_AREA.VALUE = &S_FROM_STOR_AREA;
&REC_STAGED_ITEM_INV.FROM_STOR_LEV1.VALUE = &S_FROM_STOR_LEV1;
&REC_STAGED_ITEM_INV.FROM_UOM.VALUE = &S_FROM_UOM;
&REC_STAGED_ITEM_INV.STORAGE_AREA.VALUE = &S_STORAGE_AREA;
&REC_STAGED_ITEM_INV.STOR_LEVEL_1.VALUE = &S_STOR_LEVEL_1;
&REC_STAGED_ITEM_INV.PUTAWAY_FLAG.VALUE = &S_PUTAWAY_FLAG;
&REC_STAGED_ITEM_INV.RECEIPT_TYPE.VALUE = &S_RECEIPT_TYPE;
&REC_STAGED_ITEM_INV.PO_ID.VALUE = &S_PO_ID;
&REC_STAGED_ITEM_INV.INTERUNIT_ID.VALUE = &S_INTERUNIT_ID;
&REC_STAGED_ITEM_INV.INTERUNIT_LINE.VALUE = &S_INTERUNIT_LINE;
&REC_STAGED_ITEM_INV.SF_KANBAN_ID.VALUE = &S_SF_KANBAN_ID;
&REC_STAGED_ITEM_INV.INSPECT_STATUS.VALUE = &S_INSPECT_STATUS;
&REC_STAGED_ITEM_INV.INSPECTION_ID.VALUE = &S_INSPECTION_ID;
&REC_STAGED_ITEM_INV.LAST_PURCH_DATE.VALUE = &S_LAST_PURCH_DATE;
&REC_STAGED_ITEM_INV.NON_OWN_FLAG.VALUE = &S_NON_OWN_FLAG;
&REC_STAGED_ITEM_INV.PURCH_LOT_ID.VALUE = &S_PURCH_LOT_ID;
&REC_STAGED_ITEM_INV.VENDOR_ID.VALUE = &S_VENDOR_ID;
&REC_STAGED_ITEM_INV.STORAGE_CODE.VALUE = &S_STORAGE_CODE;
&REC_STAGED_ITEM_INV.OPRID.VALUE = &S_OPRID;
&REC_STAGED_ITEM_INV.STAGED_TYPE.VALUE = &S_STAGED_TYPE;
&REC_STAGED_ITEM_INV.DISTRIB_TYPE.VALUE = &S_DISTRIB_TYPE;
&REC_STAGED_ITEM_INV.PO_DT.VALUE = &S_PO_DT;
&REC_STAGED_ITEM_INV.BUSINESS_UNIT_PO.VALUE = &S_BUSINESS_UNIT_PO;
&REC_STAGED_ITEM_INV.TRANS_SOURCE.VALUE = &S_TRANS_SOURCE;
&REC_STAGED_ITEM_INV.CONFIG_CODE.VALUE = &S_CONFIG_CODE;
&REC_STAGED_ITEM_INV.CANCEL_NETTABLE.VALUE = &S_CANCEL_NETTABLE;
&REC_STAGED_ITEM_INV.DT_TIMESTAMP.VALUE = &S_DT_TIMESTAMP;
&REC_STAGED_ITEM_INV.CONTAINER_TYPE.VALUE = &S_CONTAINER_TYPE;
&REC_STAGED_ITEM_INV.SPEEDTYPE_KEY.VALUE = &S_SPEEDTYPE_KEY;
&REC_STAGED_ITEM_INV.ACCOUNT.VALUE = &S_ACCOUNT;
&REC_STAGED_ITEM_INV.ALTACCT.VALUE = &S_ALTACCT;
&REC_STAGED_ITEM_INV.OPERATING_UNIT.VALUE = &S_OPERATING_UNIT;
&REC_STAGED_ITEM_INV.DEPTID.VALUE = &S_DEPTID;
&REC_STAGED_ITEM_INV.PRODUCT.VALUE = &S_PRODUCT;
&REC_STAGED_ITEM_INV.PROJECT_ID.VALUE = &S_PROJECT_ID;
&REC_STAGED_ITEM_INV.ACTIVITY_ID.VALUE = &S_ACTIVITY_ID;
&REC_STAGED_ITEM_INV.RESOURCE_TYPE.VALUE = &S_RESOURCE_TYPE;
&REC_STAGED_ITEM_INV.RESOURCE_CATEGORY.VALUE = &S_RESOURCE_CATEGORY;
&REC_STAGED_ITEM_INV.RESOURCE_SUB_CAT.VALUE = &S_RESOURCE_SUB_CAT;
&REC_STAGED_ITEM_INV.ANALYSIS_TYPE.VALUE = &S_ANALYSIS_TYPE;
&REC_STAGED_ITEM_INV.BUSINESS_UNIT_PC.VALUE = &S_BUSINESS_UNIT_PC;
&REC_STAGED_ITEM_INV.COMBO_VALID_FLG.VALUE = &S_COMBO_VALID_FLG;
&REC_STAGED_ITEM_INV.CONSIGNED_FLAG.VALUE = &S_CONSIGNED_FLAG;
&REC_STAGED_ITEM_INV.Insert();
End-Function;
/*******************************************************************************
******
* Faz Insert Tabela: SYSADM.PS_STAGED_INF_INV
*
********************************************************************************
*****/
Function GRAVA_STAGED_INF_INV(&IN_BUSINESS_UNIT, &IN_INV_LOT_ID, &IN_CONTAINER_I
D, &IN_INV_ITEM_ID, &IN_SERIAL_ID, &IN_RECEIVER_ID, &IN_RECV_LN_NBR, &IN_SEQ_NUM
, &IN_SOURCE_BUS_UNIT, &IN_RECV_SHIP_SEQ_NBR, &IN_DISTRIB_LINE_NUM, &IN_DISTRIB_
SEQ_NUM, &IN_COST_ELEMENT, &IN_RMA_ID, &IN_RMA_LINE_NBR, &IN_LOT_BIRTHDATE, &IN_
EXPIRATION_DATE, &IN_PO_ID, &IN_INTERUNIT_ID, &IN_INTERUNIT_LINE, &IN_INSPECT_ST
ATUS, &IN_INSPECTION_ID, &IN_LAST_PURCH_DATE, &IN_ACTUAL_COST, &IN_CONVERSION_RA
TE, &IN_TRANSFER_COST, &IN_QTY, &IN_UNIT_OF_MEASURE, &IN_RECEIPT_TYPE, &IN_NON_O
WN_FLAG, &IN_INV_STOCK_TYPE, &IN_PURCH_LOT_ID, &IN_VENDOR_ID, &IN_MA_PRDN_ID_FLG
, &IN_PRODUCTION_ID, &IN_PRDN_AREA_CODE, &IN_PRODUCTION_TYPE, &IN_TO_PRODUCTION_
ID, &IN_OP_SEQUENCE, &IN_QTY_CODE, &IN_STORAGE_CODE, &IN_STORAGE_AREA, &IN_STOR_
LEVEL_1, &IN_STOR_LEVEL_2, &IN_STOR_LEVEL_3, &IN_STOR_LEVEL_4, &IN_DISTRIB_TYPE,
&IN_PO_DT, &IN_BUSINESS_UNIT_PO, &IN_TRANS_SOURCE, &IN_STAGED_STATUS, &IN_CONFI
G_CODE, &IN_OPRID, &IN_PROCESS_FLAG, &IN_PROCESS_INSTANCE, &IN_JOB_INSTANCE, &IN
_CONTAINER_TYPE, &IN_SPEEDTYPE_KEY, &IN_ACCOUNT, &IN_ALTACCT, &IN_OPERATING_UNIT
, &IN_DEPTID, &IN_PRODUCT, &IN_PROJECT_ID, &IN_ACTIVITY_ID, &IN_RESOURCE_TYPE, &
IN_RESOURCE_CATEGORY, &IN_RESOURCE_SUB_CAT, &IN_ANALYSIS_TYPE, &IN_BUSINESS_UNIT
_PC, &IN_COMBO_VALID_FLG, &IN_CONSIGNED_FLAG, &IN_SF_KANBAN_ID)
&REC_STAGED_INF_INV = CreateRecord(Record.STAGED_INF_INV);
&REC_STAGED_INF_INV.BUSINESS_UNIT.VALUE = &IN_BUSINESS_UNIT;
&REC_STAGED_INF_INV.INV_LOT_ID.VALUE = &IN_INV_LOT_ID;
&REC_STAGED_INF_INV.CONTAINER_ID.VALUE = &IN_CONTAINER_ID;
&REC_STAGED_INF_INV.INV_ITEM_ID.VALUE = &IN_INV_ITEM_ID;
&REC_STAGED_INF_INV.SERIAL_ID.VALUE = &IN_SERIAL_ID;
&REC_STAGED_INF_INV.RECEIVER_ID.VALUE = &IN_RECEIVER_ID;
&REC_STAGED_INF_INV.RECV_LN_NBR.VALUE = &IN_RECV_LN_NBR;
&REC_STAGED_INF_INV.SEQ_NUM.VALUE = &IN_SEQ_NUM;
&REC_STAGED_INF_INV.SOURCE_BUS_UNIT.VALUE = &IN_SOURCE_BUS_UNIT;
&REC_STAGED_INF_INV.RECV_SHIP_SEQ_NBR.VALUE = &IN_RECV_SHIP_SEQ_NBR;
&REC_STAGED_INF_INV.DISTRIB_LINE_NUM.VALUE = &IN_DISTRIB_LINE_NUM;
&REC_STAGED_INF_INV.DISTRIB_SEQ_NUM.VALUE = &IN_DISTRIB_SEQ_NUM;
&REC_STAGED_INF_INV.COST_ELEMENT.VALUE = &IN_COST_ELEMENT;
&REC_STAGED_INF_INV.RMA_ID.VALUE = &IN_RMA_ID;
&REC_STAGED_INF_INV.RMA_LINE_NBR.VALUE = &IN_RMA_LINE_NBR;
&REC_STAGED_INF_INV.LOT_BIRTHDATE.VALUE = &IN_LOT_BIRTHDATE;
&REC_STAGED_INF_INV.EXPIRATION_DATE.VALUE = &IN_EXPIRATION_DATE;
&REC_STAGED_INF_INV.PO_ID.VALUE = &IN_PO_ID;
&REC_STAGED_INF_INV.INTERUNIT_ID.VALUE = &IN_INTERUNIT_ID;
&REC_STAGED_INF_INV.INTERUNIT_LINE.VALUE = &IN_INTERUNIT_LINE;
&REC_STAGED_INF_INV.INSPECT_STATUS.VALUE = &IN_INSPECT_STATUS;
&REC_STAGED_INF_INV.INSPECTION_ID.VALUE = &IN_INSPECTION_ID;
&REC_STAGED_INF_INV.LAST_PURCH_DATE.VALUE = &IN_LAST_PURCH_DATE;
&REC_STAGED_INF_INV.ACTUAL_COST.VALUE = &IN_ACTUAL_COST;
&REC_STAGED_INF_INV.CONVERSION_RATE.VALUE = &IN_CONVERSION_RATE;
&REC_STAGED_INF_INV.TRANSFER_COST.VALUE = &IN_TRANSFER_COST;
&REC_STAGED_INF_INV.QTY.VALUE = &IN_QTY;
&REC_STAGED_INF_INV.UNIT_OF_MEASURE.VALUE = &IN_UNIT_OF_MEASURE;
&REC_STAGED_INF_INV.RECEIPT_TYPE.VALUE = &IN_RECEIPT_TYPE;
&REC_STAGED_INF_INV.NON_OWN_FLAG.VALUE = &IN_NON_OWN_FLAG;
&REC_STAGED_INF_INV.INV_STOCK_TYPE.VALUE = &IN_INV_STOCK_TYPE;
&REC_STAGED_INF_INV.PURCH_LOT_ID.VALUE = &IN_PURCH_LOT_ID;
&REC_STAGED_INF_INV.VENDOR_ID.VALUE = &IN_VENDOR_ID;
&REC_STAGED_INF_INV.MA_PRDN_ID_FLG.VALUE = &IN_MA_PRDN_ID_FLG;
&REC_STAGED_INF_INV.PRODUCTION_ID.VALUE = &IN_PRODUCTION_ID;
&REC_STAGED_INF_INV.PRDN_AREA_CODE.VALUE = &IN_PRDN_AREA_CODE;
&REC_STAGED_INF_INV.PRODUCTION_TYPE.VALUE = &IN_PRODUCTION_TYPE;
&REC_STAGED_INF_INV.TO_PRODUCTION_ID.VALUE = &IN_TO_PRODUCTION_ID;
&REC_STAGED_INF_INV.OP_SEQUENCE.VALUE = &IN_OP_SEQUENCE;
&REC_STAGED_INF_INV.QTY_CODE.VALUE = &IN_QTY_CODE;
&REC_STAGED_INF_INV.STORAGE_CODE.VALUE = &IN_STORAGE_CODE;
&REC_STAGED_INF_INV.STORAGE_AREA.VALUE = &IN_STORAGE_AREA;
&REC_STAGED_INF_INV.STOR_LEVEL_1.VALUE = &IN_STOR_LEVEL_1;
&REC_STAGED_INF_INV.DISTRIB_TYPE.VALUE = &IN_DISTRIB_TYPE;
&REC_STAGED_INF_INV.PO_DT.VALUE = &IN_PO_DT;
&REC_STAGED_INF_INV.BUSINESS_UNIT_PO.VALUE = &IN_BUSINESS_UNIT_PO;
&REC_STAGED_INF_INV.TRANS_SOURCE.VALUE = &IN_TRANS_SOURCE;
&REC_STAGED_INF_INV.STAGED_STATUS.VALUE = &IN_STAGED_STATUS;
&REC_STAGED_INF_INV.CONFIG_CODE.VALUE = &IN_CONFIG_CODE;
&REC_STAGED_INF_INV.OPRID.VALUE = &IN_OPRID;
&REC_STAGED_INF_INV.PROCESS_FLAG.VALUE = &IN_PROCESS_FLAG;
&REC_STAGED_INF_INV.PROCESS_INSTANCE.VALUE = &IN_PROCESS_INSTANCE;
&REC_STAGED_INF_INV.JOB_INSTANCE.VALUE = &IN_JOB_INSTANCE;
&REC_STAGED_INF_INV.CONTAINER_TYPE.VALUE = &IN_CONTAINER_TYPE;
&REC_STAGED_INF_INV.SPEEDTYPE_KEY.VALUE = &IN_SPEEDTYPE_KEY;
&REC_STAGED_INF_INV.ACCOUNT.VALUE = &IN_ACCOUNT;
&REC_STAGED_INF_INV.ALTACCT.VALUE = &IN_ALTACCT;
&REC_STAGED_INF_INV.OPERATING_UNIT.VALUE = &IN_OPERATING_UNIT;
&REC_STAGED_INF_INV.DEPTID.VALUE = &IN_DEPTID;
&REC_STAGED_INF_INV.PRODUCT.VALUE = &IN_PRODUCT;
&REC_STAGED_INF_INV.PROJECT_ID.VALUE = &IN_PROJECT_ID;
&REC_STAGED_INF_INV.ACTIVITY_ID.VALUE = &IN_ACTIVITY_ID;
&REC_STAGED_INF_INV.RESOURCE_TYPE.VALUE = &IN_RESOURCE_TYPE;
&REC_STAGED_INF_INV.RESOURCE_CATEGORY.VALUE = &IN_RESOURCE_CATEGORY;
&REC_STAGED_INF_INV.RESOURCE_SUB_CAT.VALUE = &IN_RESOURCE_SUB_CAT;
&REC_STAGED_INF_INV.ANALYSIS_TYPE.VALUE = &IN_ANALYSIS_TYPE;
&REC_STAGED_INF_INV.BUSINESS_UNIT_PC.VALUE = &IN_BUSINESS_UNIT_PC;
&REC_STAGED_INF_INV.COMBO_VALID_FLG.VALUE = &IN_COMBO_VALID_FLG;
&REC_STAGED_INF_INV.CONSIGNED_FLAG.VALUE = &IN_CONSIGNED_FLAG;
&REC_STAGED_INF_INV.SF_KANBAN_ID.VALUE = &IN_SF_KANBAN_ID;
&REC_STAGED_INF_INV.Insert();
End-Function;
/*******************************************************************************
**********************************
* Retorna maior CM_SEQ_COST tabela CM_ACTUAL_COST
********************************************************************************
*********************************/
Function max_cmseqcost_cmactualcost(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_D
T_TIMESTAMP, &PAR_SEQ_NBR, &PAR_COST_ELEMENT) Returns number
SQLExec("select case when max(cm_seq_cost) > 0 then max(cm_seq_cost)+1 else 1
end from sysadm.ps_cm_actual_cost where business_unit=:1 and inv_item_id=:2 an
d dt_timestamp= %datetimein(:3) and seq_nbr=:4 and cost_element=:5 ", &PAR_BUSIN
ESS_UNIT, &PAR_INV_ITEM_ID, &PAR_DT_TIMESTAMP, &PAR_SEQ_NBR, &PAR_COST_ELEMENT,
&CM_SEQ_COST);
Return &CM_SEQ_COST;
End-Function;
/*******************************************************************************
**********************************
* INSERE DADOS TAVELA CM_ACTUAL_COST
********************************************************************************
*********************************/
Function GRAVA_CM_ACTUAL_COST(&P_C_BUSINESS_UNIT, &P_C_INV_ITEM_ID, &P_C_DT_TIME
STAMP, &P_C_SEQ_NBR, &P_C_COST_ELEMENT, &P_C_CM_SEQ_COST, &P_C_BUSINESS_UNIT_REC
V, &P_C_RECEIVER_ID, &P_C_RECV_LN_NBR, &P_C_RECV_SHIP_SEQ_NBR, &P_C_DISTRIB_LINE
_NUM, &P_C_EFF_STATUS, &P_C_CM_DTTM_IN_EFFECT, &P_C_CM_DTTM_STAMP, &P_C_CM_ADJ_T
YPE, &P_C_CM_COST_SOURCE, &P_C_CM_UNIT_COST, &P_C_CURRENCY_CD, &P_C_PROCESS_INST
ANCE)
If None(&P_C_COST_ELEMENT) Or
&P_C_COST_ELEMENT = " " Or
Len(&P_C_COST_ELEMENT) = 0 Then
SQLExec("SELECT COST_ELEMENT FROM SYSADM.PS_BU_ITEMS_INV WHERE BUSINESS_UN
IT =:1 AND INV_ITEM_ID =:2 ", &P_C_BUSINESS_UNIT, &P_C_INV_ITEM_ID, &P_C_COST_EL
EMENT);
End-If;
&REC_CM_ACTUAL_COST = CreateRecord(Record.CM_ACTUAL_COST);
&REC_CM_ACTUAL_COST.BUSINESS_UNIT.VALUE = &P_C_BUSINESS_UNIT;
&REC_CM_ACTUAL_COST.INV_ITEM_ID.VALUE = &P_C_INV_ITEM_ID;
&REC_CM_ACTUAL_COST.DT_TIMESTAMP.VALUE = &P_C_DT_TIMESTAMP;
&REC_CM_ACTUAL_COST.SEQ_NBR.VALUE = &P_C_SEQ_NBR;
&REC_CM_ACTUAL_COST.COST_ELEMENT.VALUE = &P_C_COST_ELEMENT;
&REC_CM_ACTUAL_COST.CM_SEQ_COST.VALUE = &P_C_CM_SEQ_COST;
&REC_CM_ACTUAL_COST.BUSINESS_UNIT_RECV.VALUE = &P_C_BUSINESS_UNIT_RECV;
&REC_CM_ACTUAL_COST.RECEIVER_ID.VALUE = &P_C_RECEIVER_ID;
&REC_CM_ACTUAL_COST.RECV_LN_NBR.VALUE = &P_C_RECV_LN_NBR;
&REC_CM_ACTUAL_COST.RECV_SHIP_SEQ_NBR.VALUE = &P_C_RECV_SHIP_SEQ_NBR;
&REC_CM_ACTUAL_COST.DISTRIB_LINE_NUM.VALUE = &P_C_DISTRIB_LINE_NUM;
&REC_CM_ACTUAL_COST.EFF_STATUS.VALUE = &P_C_EFF_STATUS;
&REC_CM_ACTUAL_COST.CM_DTTM_IN_EFFECT.VALUE = &P_C_CM_DTTM_IN_EFFECT;
&REC_CM_ACTUAL_COST.CM_DTTM_STAMP.VALUE = &P_C_CM_DTTM_STAMP;
&REC_CM_ACTUAL_COST.CM_ADJ_TYPE.VALUE = &P_C_CM_ADJ_TYPE;
&REC_CM_ACTUAL_COST.CM_COST_SOURCE.VALUE = &P_C_CM_COST_SOURCE;
&REC_CM_ACTUAL_COST.CM_UNIT_COST.VALUE = &P_C_CM_UNIT_COST;
&REC_CM_ACTUAL_COST.CURRENCY_CD.VALUE = &P_C_CURRENCY_CD;
&REC_CM_ACTUAL_COST.PROCESS_INSTANCE.VALUE = &P_C_PROCESS_INSTANCE;
&REC_CM_ACTUAL_COST.Insert();
End-Function;
/*******************************************************************************
**********************************
* INSERE DADOS TAVELA CM_PERPAVG_COST
********************************************************************************
*********************************/
Function GRAVA_CM_PERPAVG_COST(&P1_BUSINESS_UNIT, &P1_INV_ITEM_ID, &P1_DT_TIMEST
AMP, &P1_SEQ_NBR, &P1_TRANSACTION_DT, &P1_CM_COST_SOURCE, &P1_CM_UNIT_COST, &P1_
CURRENCY_CD)
&REC_CM_PERPAVG_COST = CreateRecord(Record.CM_PERPAVG_COST);
&REC_CM_PERPAVG_COST.BUSINESS_UNIT.VALUE = &P1_BUSINESS_UNIT;
&REC_CM_PERPAVG_COST.INV_ITEM_ID.VALUE = &P1_INV_ITEM_ID;
&REC_CM_PERPAVG_COST.DT_TIMESTAMP.VALUE = &P1_DT_TIMESTAMP;
&REC_CM_PERPAVG_COST.SEQ_NBR.VALUE = &P1_SEQ_NBR;
&REC_CM_PERPAVG_COST.TRANSACTION_DT.VALUE = &P1_TRANSACTION_DT;
&REC_CM_PERPAVG_COST.CM_COST_SOURCE.VALUE = &P1_CM_COST_SOURCE;
&REC_CM_PERPAVG_COST.CM_UNIT_COST.VALUE = &P1_CM_UNIT_COST;
&REC_CM_PERPAVG_COST.CURRENCY_CD.VALUE = &P1_CURRENCY_CD;
&REC_CM_PERPAVG_COST.Insert();
End-Function;
/*******************************************************************************
**********************************
* CUSTO ITEM
********************************************************************************
*********************************/
Function BUSCA_CUSTO_ITEM(&C_BUSINESS_UNIT, &C_INV_ITEM_ID, &C_DT_TIMESTAMP, &C_
CONFIG_CODE) Returns number
/*
SOURCE_CODE = '1' = Fabricado
SOURCE_CODE = '2' = Comprado
*/
/************************************* mmcb.hd170820.sn *********************
****************/
/*Recupera o SETID*/
/*Recupera se o item e controlado por lote*/
SQLExec("SELECT LOT_CONTROL FROM SYSADM.PS_MASTER_ITEM_TBL WHERE SETID = :1 A
ND INV_ITEM_ID = :2", &SETID, &C_INV_ITEM_ID, &LOT_CONTROL);
/*Atualiza a varivel C_CONFIG_CODE, caso o item no seja controlado por lote*/
If &LOT_CONTROL = "N" Then
&C_CONFIG_CODE = " ";
End-If;
/************************************* mmcb.hd170820.en *********************
****************/
SQLExec("select source_code from sysadm.ps_bu_items_inv where business_unit =
:1 and inv_item_id=:2", &C_BUSINESS_UNIT, &C_INV_ITEM_ID, &SOURCE_CODE);
If None(&SOURCE_CODE) Then
Error ("Item :" | &C_INV_ITEM_ID | "no est parametrizado.");
End-If;
&QTDE_DIAS = %Date - Date3(1998, 1, 1);
&DIA_INICIAL = 0;
&DIA_FINAL = 30;
&CUSTO_COMPRADO = 0;
&CUSTO_FABRICADO = 0;
While (&DIA_INICIAL <= &QTDE_DIAS)
If &SOURCE_CODE = "2" Then
SQLExec("select cc.cm_unit_cost from sysadm.ps_cm_perpavg_cost cc where
cc.business_unit =:1 and cc.inv_item_id =:2 and cc.dt_timestamp = ( select max(
bc.dt_timestamp ) from sysadm.ps_cm_perpavg_cost bc where bc.business_unit = cc
.business_unit and bc.inv_item_id = cc.inv_item_id and bc.dt_timestamp >= %datet
imein(:3) - :4 and bc.dt_timestamp <= %datetimein(:5) - :6 ) and cc.seq_nbr = (
select max( bc1.seq_nbr ) from sysadm.ps_cm_perpavg_cost bc1 where bc1.business_
unit = cc.business_unit and bc1.inv_item_id = cc.inv_item_id and bc1.dt_timestam
p
= cc.dt_timestamp )", &C_BUSINESS_UNIT, &C_INV_ITEM_ID, &C_DT_TIMESTAMP, &D
IA_FINAL, &C_DT_TIMESTAMP, &DIA_INICIAL, &CUSTO_COMPRADO);
If &CUSTO_COMPRADO > 0 Then
Return &CUSTO_COMPRADO;
End-If;
End-If;
If &SOURCE_CODE = "1" Then
SQLExec("select sum(tl_cost + ll_cost) from sysadm.ps_cm_prodcost cc wh
ere cc.business_unit =:1 and cc.inv_item_id =:2 and cc.config_code =:3 and cc.ef
fdt = ( select max(bc.effdt) from sysadm.ps_cm_prodcost bc where bc.business_un
it = cc.business_unit and bc.inv_item_id = cc.inv_item_id and bc.config_code = c
c.config_code and bc.effdt >= %datetimein(:4) - :5 and bc.effdt <= %datetimein(:
6) - :7 )", &C_BUSINESS_UNIT, &C_INV_ITEM_ID, &C_CONFIG_CODE, &C_DT_TIMESTAMP, &
DIA_FINAL, &C_DT_TIMESTAMP, &DIA_INICIAL, &CUSTO_FABRICADO);
If &CUSTO_FABRICADO > 0 Then
Return &CUSTO_FABRICADO;
End-If;
End-If;
&DIA_INICIAL = &DIA_INICIAL + 30;

&DIA_FINAL = &DIA_FINAL + 30;
End-While;
Return 0;
End-Function;
Function GERA_CUSTO_MEDIO_ITEM(&P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_QTY_ENTRADA,
&P_DT_TIMESTAMP, &P_SEQ_NBR, &P_BUSINESS_UNIT_RECV, &P_RECEIVER_ID, &P_RECV_LN_
NBR, &PAR_RECV_SHIP_SEQ_NBR, &P_CUSTO_ENTRADA, &P_CONFIG_CODE, &P_TRANSACTION_DT
, &P_PARAMETRO_OPCIONAL)
If &P_PARAMETRO_OPCIONAL <> "USA_CUSTO_UNIDADE_ORIGEM" And
&P_PARAMETRO_OPCIONAL <> "USA_CUSTO_ENTRADA_NF" Then
&CUSTO_ATUAL = BUSCA_CUSTO_ITEM(&P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_DT_TI
MESTAMP, &P_CONFIG_CODE);
SQLExec("select qty_available, cost_element from sysadm.ps_bu_items_inv w
here business_unit=:1 and inv_item_id =:2 ", &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &
QTD_ATUAL_ITEM, &COST_ELEMENT);
Else
&CUSTO_ATUAL = &P_CUSTO_ENTRADA;
End-If;
&VAR_CUSTO1 = ((&QTD_ATUAL_ITEM * &CUSTO_ATUAL) + (&P_QTY_ENTRADA * &P_CUSTO_
ENTRADA));
&VAR_CUSTO2 = (&QTD_ATUAL_ITEM + &P_QTY_ENTRADA);
If &VAR_CUSTO1 <= 0 Then
&VAR_CUSTO1 = 1;
End-If;
If &VAR_CUSTO2 <= 0 Then
&VAR_CUSTO2 = 1;
End-If;
&NOVO_CUSTO = &VAR_CUSTO1 / &VAR_CUSTO2;
&P_C_BUSINESS_UNIT = &P_BUSINESS_UNIT;
&P_C_INV_ITEM_ID = &P_INV_ITEM_ID;
&P_C_DT_TIMESTAMP = &P_DT_TIMESTAMP;
&P_C_SEQ_NBR = &P_SEQ_NBR;
&P_C_COST_ELEMENT = &COST_ELEMENT;
&P_C_CM_SEQ_COST = max_cmseqcost_cmactualcost(&P_BUSINESS_UNIT, &P_INV_ITEM_I
D, &P_DT_TIMESTAMP, &P_SEQ_NBR, &COST_ELEMENT);
&P_C_BUSINESS_UNIT_RECV = &P_BUSINESS_UNIT_RECV;
&P_C_RECEIVER_ID = &P_RECEIVER_ID;
&P_C_RECV_LN_NBR = &P_RECV_LN_NBR;
&P_C_RECV_SHIP_SEQ_NBR = &PAR_RECV_SHIP_SEQ_NBR;
&P_C_DISTRIB_LINE_NUM = 0;
&P_C_EFF_STATUS = "A";
&P_C_CM_DTTM_IN_EFFECT = &P_DT_TIMESTAMP;
&P_C_CM_DTTM_STAMP = &P_DT_TIMESTAMP;
&P_C_CM_ADJ_TYPE = 0;
&P_C_CM_COST_SOURCE = "2";
&P_C_CM_UNIT_COST = &CUSTO_ATUAL;
&P_C_CURRENCY_CD = "BRL";
&P_C_PROCESS_INSTANCE = 0;
GRAVA_CM_ACTUAL_COST(&P_C_BUSINESS_UNIT, &P_C_INV_ITEM_ID, &P_C_DT_TIMESTAMP,
&P_C_SEQ_NBR, &P_C_COST_ELEMENT, &P_C_CM_SEQ_COST, &P_C_BUSINESS_UNIT_RECV, &P_
C_RECEIVER_ID, &P_C_RECV_LN_NBR, &P_C_RECV_SHIP_SEQ_NBR, &P_C_DISTRIB_LINE_NUM,
&P_C_EFF_STATUS, &P_C_CM_DTTM_IN_EFFECT, &P_C_CM_DTTM_STAMP, &P_C_CM_ADJ_TYPE, &
P_C_CM_COST_SOURCE, &P_C_CM_UNIT_COST, &P_C_CURRENCY_CD, &P_C_PROCESS_INSTANCE);
&P1_BUSINESS_UNIT = &P_BUSINESS_UNIT;
&P1_INV_ITEM_ID = &P_INV_ITEM_ID;
&P1_DT_TIMESTAMP = &P_DT_TIMESTAMP;
&P1_SEQ_NBR = &P_SEQ_NBR;
&P1_TRANSACTION_DT = &P_TRANSACTION_DT;
&P1_CM_COST_SOURCE = "2";
&P1_CM_UNIT_COST = &NOVO_CUSTO;
&P1_CURRENCY_CD = "BRL";
GRAVA_CM_PERPAVG_COST(&P1_BUSINESS_UNIT, &P1_INV_ITEM_ID, &P1_DT_TIMESTAMP, &
P1_SEQ_NBR, &P1_TRANSACTION_DT, &P1_CM_COST_SOURCE, &P1_CM_UNIT_COST, &P1_CURREN
CY_CD)
End-Function;
/*******************************************************************************
**********************************
* Retorna maior SEQ_NBR PS_TRANSACTION_INV
********************************************************************************
*********************************/
Function max_seqnbr_transaction(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_DT_TI
MESTAMP) Returns number
SQLExec("select case when max(seq_nbr)>0 then max(seq_nbr)+1 else 1 end from
sysadm.ps_transaction_inv where business_unit=:1 and inv_item_id=:2 and dt_times
tamp =%datetimein(:3)", &PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_DT_TIMESTAMP,
&V_SEQ_NBR);
Return &V_SEQ_NBR;
End-Function;
/*******************************************************************************
**********************************
* Insere uma nova linha na tabela PHYSICAL_INV
********************************************************************************
*********************************/
Function GRAVA_PHYSICAL_INV(&PAR_BUSINESS_UNIT, &PAR_STAGED_DATE, &PAR_INV_LOT_I
D, &PAR_INV_ITEM_ID, &PAR_SERIAL_ID, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1, &PAR_
STOR_LEVEL_2, &PAR_STOR_LEVEL_3, &PAR_STOR_LEVEL_4, &PAR_CONTAINER_ID, &PAR_UNIT
_OF_MEASURE, &PAR_LAST_TRANSACT_TYPE, &PAR_LAST_ISSUE_DATE, &PAR_QTY, &PAR_QTY_R
ESERVED, &PAR_QTY_BASE, &PAR_QTY_RESERVED_BASE, &PAR_AVAIL_STATUS, &PAR_DT_TIMES
TAMP)
&REC_PHYSICAL_INV = CreateRecord(Record.PHYSICAL_INV);
&REC_PHYSICAL_INV.BUSINESS_UNIT.VALUE = &PAR_BUSINESS_UNIT;
&REC_PHYSICAL_INV.STAGED_DATE.VALUE = &PAR_STAGED_DATE;
&REC_PHYSICAL_INV.INV_LOT_ID.VALUE = &PAR_INV_LOT_ID;
&REC_PHYSICAL_INV.INV_ITEM_ID.VALUE = &PAR_INV_ITEM_ID;
&REC_PHYSICAL_INV.SERIAL_ID.VALUE = &PAR_SERIAL_ID;
&REC_PHYSICAL_INV.STORAGE_AREA.VALUE = &PAR_STORAGE_AREA;
&REC_PHYSICAL_INV.STOR_LEVEL_1.VALUE = &PAR_STOR_LEVEL_1;
&REC_PHYSICAL_INV.CONTAINER_ID.VALUE = &PAR_CONTAINER_ID;
&REC_PHYSICAL_INV.UNIT_OF_MEASURE.VALUE = &PAR_UNIT_OF_MEASURE;
&REC_PHYSICAL_INV.LAST_TRANSACT_TYPE.VALUE = &PAR_LAST_TRANSACT_TYPE;
&REC_PHYSICAL_INV.LAST_ISSUE_DATE.VALUE = &PAR_LAST_ISSUE_DATE;
&REC_PHYSICAL_INV.QTY.VALUE = &PAR_QTY;
&REC_PHYSICAL_INV.QTY_RESERVED.VALUE = &PAR_QTY_RESERVED;
&REC_PHYSICAL_INV.QTY_BASE.VALUE = &PAR_QTY_BASE;
&REC_PHYSICAL_INV.QTY_RESERVED_BASE.VALUE = &PAR_QTY_RESERVED_BASE;
&REC_PHYSICAL_INV.AVAIL_STATUS.VALUE = &PAR_AVAIL_STATUS;
&REC_PHYSICAL_INV.AVAIL_STATUS_TYPE.VALUE = " ";
&REC_PHYSICAL_INV.REASON_CD.VALUE = " ";
&REC_PHYSICAL_INV.DT_TIMESTAMP.VALUE = &PAR_DT_TIMESTAMP;
&REC_PHYSICAL_INV.DESCR254.VALUE = " ";
&REC_PHYSICAL_INV.Insert();
End-Function;
/*******************************************************************************
**********************************
* Faz atualizao de QTDs na tabela PHYSICAL_INV ou Cria uma nova linha caso no exist
a.
********************************************************************************
*********************************/
Function ATUALIZA_PHYSICAL_INV_020(&PAR_BUSINESS_UNIT, &PAR_STAGED_DATE, &PAR_IN
V_LOT_ID, &PAR_INV_ITEM_ID, &PAR_SERIAL_ID, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1
, &PAR_STOR_LEVEL_2, &PAR_STOR_LEVEL_3, &PAR_STOR_LEVEL_4, &PAR_CONTAINER_ID, &P
AR_UNIT_OF_MEASURE, &PAR_QTY, &PAR_QTY_BASE)
SQLExec("select 'Y' from sysadm.ps_physical_inv where business_unit=:1 and s
taged_date= %datein(:2) and inv_lot_id=:3 and inv_item_id=:4 and serial_id=:5 an
d storage_area=:6 and stor_level_1=:7 and stor_level_2=:8 and stor_level_3=:9 an
d stor_level_4=:10 and container_id=:11 and unit_of_measure=:12", &PAR_BUSINESS_
UNIT, &PAR_STAGED_DATE, &PAR_INV_LOT_ID, &PAR_INV_ITEM_ID, &PAR_SERIAL_ID, &PAR_
STORAGE_AREA, &PAR_STOR_LEVEL_1, &PAR_STOR_LEVEL_2, &PAR_STOR_LEVEL_3, &PAR_STOR
_LEVEL_4, &PAR_CONTAINER_ID, &PAR_UNIT_OF_MEASURE, &EXISTE);
If &EXISTE = "Y" Then
&REC_PHYSICAL_INV.SelectByKey();
&REC_PHYSICAL_INV.QTY.VALUE = &REC_PHYSICAL_INV.QTY.VALUE + &PAR_QTY;
&REC_PHYSICAL_INV.QTY_BASE.VALUE = &REC_PHYSICAL_INV.QTY_BASE.VALUE + &PAR
_QTY_BASE;
&REC_PHYSICAL_INV.DT_TIMESTAMP.VALUE = %Datetime;
&REC_PHYSICAL_INV.UPDATE();
Else
&PAR_LAST_TRANSACT_TYPE = "020";
&PAR_LAST_ISSUE_DATE = %Date;
&PAR_QTY_RESERVED = 0;
&PAR_QTY_RESERVED_BASE = 0;
&PAR_AVAIL_STATUS = "1";
&PAR_DT_TIMESTAMP = %Datetime;
GRAVA_PHYSICAL_INV(&PAR_BUSINESS_UNIT, &PAR_STAGED_DATE, &PAR_INV_LOT_ID,
&PAR_INV_ITEM_ID, &PAR_SERIAL_ID, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1, &PAR_STO
R_LEVEL_2, &PAR_STOR_LEVEL_3, &PAR_STOR_LEVEL_4, &PAR_CONTAINER_ID, &PAR_UNIT_OF
_MEASURE, &PAR_LAST_TRANSACT_TYPE, &PAR_LAST_ISSUE_DATE, &PAR_QTY, &PAR_QTY_RESE
RVED, &PAR_QTY_BASE, &PAR_QTY_RESERVED_BASE, &PAR_AVAIL_STATUS, &PAR_DT_TIMESTAM
P)
End-If;
End-Function;
/********************************************** mmcb.sds4289.sn ****************

**********************************/
/*******************************************************************************
**********************************
* Faz atualizao de QTDs na tabela PHYSICAL_INV ou Cria uma nova linha caso no exist
a.
********************************************************************************
*********************************/
Function ATUALIZA_PHYSICAL_INV_720(&PAR_BUSINESS_UNIT, &PAR_STAGED_DATE, &PAR_IN
V_LOT_ID, &PAR_INV_ITEM_ID, &PAR_SERIAL_ID, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1
, &PAR_STOR_LEVEL_2, &PAR_STOR_LEVEL_3, &PAR_STOR_LEVEL_4, &PAR_CONTAINER_ID, &P
AR_UNIT_OF_MEASURE, &PAR_QTY, &PAR_QTY_BASE)
_QTY_BASE;
Else
&PAR_LAST_TRANSACT_TYPE = "720";
P)
End-If;
End-Function;
/********************************************** mmcb.sds4289.en ****************
**********************************/
/*******************************************************************************
***
Faz atualizaes QTDs na tabela BU_ITEMS_INV nas Transaes '020' e '030'
********************************************************************************
***/
Function ATUALIZA_BU_ITEMS_INV(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_QTY, &
PAR_TRANSACTION_GROUP, &PAR_LAST_ORDER, &FLAG_AREA_ACEITA_RESERVA)
&REC_BU_ITEMS_INV = CreateRecord(Record.BU_ITEMS_INV);
&REC_BU_ITEMS_INV.BUSINESS_UNIT.VALUE = &PAR_BUSINESS_UNIT;
&REC_BU_ITEMS_INV.INV_ITEM_ID.VALUE = &PAR_INV_ITEM_ID;
&REC_BU_ITEMS_INV.SelectByKey();
/************************************ mmcb.at2603 - s.n */
Evaluate &PAR_TRANSACTION_GROUP
When = "020"
If &FLAG_AREA_ACEITA_RESERVA = "Y" Then
&REC_BU_ITEMS_INV.QTY_AVAILABLE.VALUE = &REC_BU_ITEMS_INV.QTY_AVAILABLE
.VALUE + &PAR_QTY;
End-If;
/* mmcb.SDS5026.so/
/*If (&FLAG_AREA_WIP = "Y") Then
&REC_BU_ITEMS_INV.QTY_RESERVED.VALUE = &REC_BU_ITEMS_INV.QTY_RESERVED.V
ALUE + &PAR_QTY;
End-If;*/
&reservado = quantidadeReservadaBU(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID);
/* mmcb.SDS5026.ln */
&REC_BU_ITEMS_INV.QTY_RESERVED.VALUE = &reservado; /* mmcb.SDS5026.ln */
&REC_BU_ITEMS_INV.QTY_OWNED.VALUE = &REC_BU_ITEMS_INV.QTY_OWNED.VALUE + &P
AR_QTY;
&REC_BU_ITEMS_INV.QTY_ONHAND.VALUE = &REC_BU_ITEMS_INV.QTY_ONHAND.VALUE +
&PAR_QTY;
Break;
When = "021"
&REC_BU_ITEMS_INV.QTY_AVAILABLE.VALUE = &REC_BU_ITEMS_INV.QTY_AVAILABLE.VA
LUE + &PAR_QTY;
AR_QTY;
&PAR_QTY;
Break;
When = "030"
/* mmcb.SDS5026.sn */
If ((&REC_BU_ITEMS_INV.QTY_RESERVED.VALUE - &PAR_QTY) < 0) Then
&PAR_QTY_RESERVA = &REC_BU_ITEMS_INV.QTY_RESERVED.VALUE;
Else
&PAR_QTY_RESERVA = &PAR_QTY;
End-If;
/* mmcb.SDS5026.en */
&REC_BU_ITEMS_INV.QTY_OWNED.VALUE = &REC_BU_ITEMS_INV.QTY_OWNED.VALUE - &P
AR_QTY;
&REC_BU_ITEMS_INV.QTY_ONHAND.VALUE = &REC_BU_ITEMS_INV.QTY_ONHAND.VALUE &PAR_QTY;
/*&REC_BU_ITEMS_INV.QTY_RESERVED.VALUE = &REC_BU_ITEMS_INV.QTY_RESERVED.VA
LUE - &PAR_QTY;
mmcb.SDS5026.lo */
&REC_BU_ITEMS_INV.QTY_RESERVED.VALUE = &REC_BU_ITEMS_INV.QTY_RESERVED.VALU
E - &PAR_QTY_RESERVA; /* mmcb.SDS5026.ln */
&REC_BU_ITEMS_INV.DT_TIMESTAMP.VALUE = %Datetime;
&REC_BU_ITEMS_INV.LAST_ORDER.VALUE = &PAR_LAST_ORDER;
&REC_BU_ITEMS_INV.LAST_ORDER_DATE.VALUE = %Date;
Break;
/********************** mmcb.sds4289.sn ***********************/
When = "720"
If &FLAG_AREA_ACEITA_RESERVA = "Y" Then
&REC_BU_ITEMS_INV.QTY_AVAILABLE.VALUE = &REC_BU_ITEMS_INV.QTY_AVAILABLE
.VALUE + &PAR_QTY;
End-If;
AR_QTY;
&PAR_QTY;
Break;
/********************** mmcb.sds4289.en ***********************/
End-Evaluate;
/************************************ mmcb.at2603 - e.n */

&REC_BU_ITEMS_INV.UPDATE();
End-Function;
/*******************************************************************************
***
Insere uma nova linha tabela BU_ITEMS_INV
********************************************************************************
***/
Function GRAVA_BU_ITEMS_INV(&P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_QTY)
&R_BU_ITEMS_INV = CreateRecord(Record.BU_ITEMS_INV);
&R_BU_ITEMS_INV.BUSINESS_UNIT.VALUE = &P_BUSINESS_UNIT;
&R_BU_ITEMS_INV.INV_ITEM_ID.VALUE = &P_INV_ITEM_ID;
&R_BU_ITEMS_INV.LAST_ORDER.VALUE = " ";
&R_BU_ITEMS_INV.LAST_PUTAWAY_DATE.VALUE = %Date;
&R_BU_ITEMS_INV.QTY_AVAILABLE.VALUE = &P_QTY;
&R_BU_ITEMS_INV.QTY_RESERVED.VALUE = 0;
&R_BU_ITEMS_INV.QTY_OWNED.VALUE = &P_QTY;
&R_BU_ITEMS_INV.QTY_ONHAND.VALUE = &P_QTY;
&R_BU_ITEMS_INV.LAST_DEMAND_CALC.VALUE = " ";
&R_BU_ITEMS_INV.LAST_MO_DEMAND.VALUE = 0;
&R_BU_ITEMS_INV.LAST_QTR_DEMAND.VALUE = 0;
&R_BU_ITEMS_INV.LAST_2QTR_DEMAND.VALUE = 0;
&R_BU_ITEMS_INV.LAST_ANNUAL_DEMAND.VALUE = 0;
&R_BU_ITEMS_INV.LAST_UD_DEMAND.VALUE = 0;
&R_BU_ITEMS_INV.REPLENISH_CLASS.VALUE = " ";
&R_BU_ITEMS_INV.REPL_CALC_PERIOD.VALUE = 0;
&R_BU_ITEMS_INV.REPLENISH_LEAD.VALUE = 0;
&R_BU_ITEMS_INV.HISTORICAL_LEAD.VALUE = 0;
&R_BU_ITEMS_INV.PROJECTED_LEAD.VALUE = 0;
&R_BU_ITEMS_INV.SAFETY_STOCK.VALUE = 0;
&R_BU_ITEMS_INV.STOCKOUT_RATE.VALUE = 0;
&R_BU_ITEMS_INV.REORDER_POINT.VALUE = 0;
&R_BU_ITEMS_INV.REORDER_QTY.VALUE = 0;
&R_BU_ITEMS_INV.QTY_IUT_PAR.VALUE = 0;
&R_BU_ITEMS_INV.EOQ.VALUE = 0;
&R_BU_ITEMS_INV.AOQ.VALUE = 1;
&R_BU_ITEMS_INV.FOQ.VALUE = 0;
&R_BU_ITEMS_INV.QTY_MAXIMUM.VALUE = 0;
&R_BU_ITEMS_INV.DAYS_SUPPLY.VALUE = 0;
&R_BU_ITEMS_INV.ORDER_MULTIPLE.VALUE = 0;
&R_BU_ITEMS_INV.SAFETY_LEAD_TIME.VALUE = 0;
&R_BU_ITEMS_INV.TARGET_LEVEL.VALUE = 0;
&R_BU_ITEMS_INV.EXCESS_BU.VALUE = " ";
&R_BU_ITEMS_INV.LAST_ISS_EXCESS.VALUE = 0;
&R_BU_ITEMS_INV.USE_UP_QOH.VALUE = "N";
&R_BU_ITEMS_INV.INSPECT_TIME.VALUE = 0;
&R_BU_ITEMS_INV.DOCK_TO_STOCK.VALUE = 0;
&R_BU_ITEMS_INV.COST_ELEMENT.VALUE = "MPI";
&R_BU_ITEMS_INV.COST_GROUP_CD.VALUE = " ";
&R_BU_ITEMS_INV.LAST_CYCLE_COUNT.VALUE = %Date;
&R_BU_ITEMS_INV.RELATED_ITEM_ID.VALUE = " ";
&R_BU_ITEMS_INV.ROPC_INSTANCE.VALUE = 0;
&R_BU_ITEMS_INV.ROPC_STATUS.VALUE = "1";
&R_BU_ITEMS_INV.SSTC_INSTANCE.VALUE = 0;
&R_BU_ITEMS_INV.SSTC_STATUS.VALUE = "1";
&R_BU_ITEMS_INV.EOQC_INSTANCE.VALUE = 0;
&R_BU_ITEMS_INV.EOQC_STATUS.VALUE = "1";
&R_BU_ITEMS_INV.HLDC_INSTANCE.VALUE = 0;
&R_BU_ITEMS_INV.HLDC_STATUS.VALUE = "1";
&R_BU_ITEMS_INV.ANNDM_INSTANCE.VALUE = 0;
&R_BU_ITEMS_INV.ANNDM_STATUS.VALUE = "1";
&R_BU_ITEMS_INV.CYCLE_INSTANCE.VALUE = 0;
&R_BU_ITEMS_INV.NO_REPLENISH_FLG.VALUE = "Y";
&R_BU_ITEMS_INV.INCL_WIP_QTY_FLG.VALUE = " ";
&R_BU_ITEMS_INV.SOURCE_CODE.VALUE = "2";
&R_BU_ITEMS_INV.PHANTOM_ITEM_FLAG.VALUE = "N";
&R_BU_ITEMS_INV.BOM_USAGE.VALUE = "1";
&R_BU_ITEMS_INV.DT_TIMESTAMP.VALUE = %Date;
&R_BU_ITEMS_INV.LAST_PRICE_PAID.VALUE = 0;
&R_BU_ITEMS_INV.AVERAGE_COST.VALUE = 2;
&R_BU_ITEMS_INV.CURRENT_COST.VALUE = 0;
&R_BU_ITEMS_INV.DFLT_ACTUAL_COST.VALUE = 0;
&R_BU_ITEMS_INV.EXCESS_INVENTORY.VALUE = "N";
&R_BU_ITEMS_INV.REVISION_CONTROL.VALUE = "N";
&R_BU_ITEMS_INV.ISSUE_METHOD.VALUE = "ISS";
&R_BU_ITEMS_INV.STAGED_DATE_FLAG.VALUE = "N";
&R_BU_ITEMS_INV.ISSUE_MULTIPLE.VALUE = 1;
&R_BU_ITEMS_INV.REPLENISH_POINT.VALUE = 0;
&R_BU_ITEMS_INV.WIP_MIN_QTY.VALUE = 0;
&R_BU_ITEMS_INV.PLANNER_CD.VALUE = " ";
&R_BU_ITEMS_INV.YIELD_CALC_FLG.VALUE = "N";
&R_BU_ITEMS_INV.PRDN_AREA_CODE.VALUE = " ";
&R_BU_ITEMS_INV.TRANSIT_COST_TYP.VALUE = "F";
&R_BU_ITEMS_INV.UOM_CONV_FLAG.VALUE = "0";
&R_BU_ITEMS_INV.MASTER_RTG_OPT.VALUE = "ITM";
&R_BU_ITEMS_INV.REF_ROUTING_ITEM.VALUE = &P_INV_ITEM_ID;
&R_BU_ITEMS_INV.STD_PACK_UOM.VALUE = "PC";
&R_BU_ITEMS_INV.FORECAST_ITEM_FLAG.VALUE = "N";
&R_BU_ITEMS_INV.COUNTRY_IST_ORIGINV.VALUE = " ";
&R_BU_ITEMS_INV.IST_REGION_ORIGIN.VALUE = " ";
SQLExec("select itm_status_effdt from sysadm.ps_master_item_tbl where setid='
MMCSA' and inv_item_id =:1 ", &P_INV_ITEM_ID, &V_ITM_STATUS_EFFDT);
If None(&V_ITM_STATUS_EFFDT) Then
Error ("O Item: " | &P_INV_ITEM_ID | " no est parametrizado. ");
End-If;
&R_BU_ITEMS_INV.ITM_STATUS_EFFDT.VALUE = &V_ITM_STATUS_EFFDT;
&R_BU_ITEMS_INV.ITM_STATUS_CURRENT.VALUE = "1";
&R_BU_ITEMS_INV.ITM_STATUS_FUTURE.VALUE = " ";
&R_BU_ITEMS_INV.DECLARED_VALUE.VALUE = 0;
&R_BU_ITEMS_INV.SF_WIP_MAX_QTY.VALUE = 0;
&R_BU_ITEMS_INV.SF_RPL_MODE.VALUE = "1";
&R_BU_ITEMS_INV.SF_RPL_SOURCE.VALUE = "1";
&R_BU_ITEMS_INV.SF_RPL_METHOD.VALUE = "3";
&R_BU_ITEMS_INV.SF_RPL_TYPE.VALUE = "1";
&R_BU_ITEMS_INV.SF_DISPATCH_MODE.VALUE = "1";
&R_BU_ITEMS_INV.SF_RPL_STOR_AREA.VALUE = " ";
&R_BU_ITEMS_INV.SF_RPL_STOR_LEV1.VALUE = " ";
&R_BU_ITEMS_INV.SF_RPL_VENDOR_ID.VALUE = " ";
&R_BU_ITEMS_INV.SF_RPL_VNDR_LOC.VALUE = " ";
&R_BU_ITEMS_INV.SF_RPL_PRDN_AREA.VALUE = " ";

&R_BU_ITEMS_INV.AVERAGE_COST_MAT.VALUE = 2;
&R_BU_ITEMS_INV.EN_AUTO_REV.VALUE = " ";
&R_BU_ITEMS_INV.FORECASTER.VALUE = " ";
&R_BU_ITEMS_INV.TRANSFER_MIN_ORDER.VALUE = 0;
&R_BU_ITEMS_INV.TRANSFER_YIELD.VALUE = 0;
&R_BU_ITEMS_INV.NON_OWN_FLAG.VALUE = "N";
&R_BU_ITEMS_INV.INV_STOCK_TYPE.VALUE = " ";
&R_BU_ITEMS_INV.SHIP_TYPE_ID.VALUE = " ";
&R_BU_ITEMS_INV.ISOLATE_ITEM_FLG.VALUE = "N";
&R_BU_ITEMS_INV.INVENTORY_ITEM.VALUE = "Y";
&R_BU_ITEMS_INV.MG_PRDN_OPTION.VALUE = "01";
&R_BU_ITEMS_INV.MG_VALID_PRDN_OPT.VALUE = "N";
&R_BU_ITEMS_INV.MG_ASSOCIATED_BOM.VALUE = &P_INV_ITEM_ID;
&R_BU_ITEMS_INV.SHELF_LIFE.VALUE = 0;
&R_BU_ITEMS_INV.AVAIL_LEAD_TIME.VALUE = 0;
&R_BU_ITEMS_INV.RETEST_LEAD_TIME.VALUE = 0;
&R_BU_ITEMS_INV.MATERIAL_RECON_FLG.VALUE = " ";
&R_BU_ITEMS_INV.USG_TRCKNG_METHOD.VALUE = " ";
&R_BU_ITEMS_INV.CHARGE_MARKUP_PCNT.VALUE = 0;
&R_BU_ITEMS_INV.CHARGE_MARKUP_AMT.VALUE = 0;
&R_BU_ITEMS_INV.CHARGE_CODE.VALUE = " ";
&R_BU_ITEMS_INV.MFG_COSTED_FLAG.VALUE = "Y";
&R_BU_ITEMS_INV.CONSIGNED_FLAG.VALUE = "N";
&R_BU_ITEMS_INV.VENDOR_ID.VALUE = " ";
&R_BU_ITEMS_INV.VNDR_LOC.VALUE = " ";
&R_BU_ITEMS_INV.BOM_CODE.VALUE = 0;
&R_BU_ITEMS_INV.RTG_CODE.VALUE = 0;
&R_BU_ITEMS_INV.MFG_LEADTIME_F.VALUE = 0;
&R_BU_ITEMS_INV.MFG_LEADTIME_V.VALUE = 0;
&R_BU_ITEMS_INV.MFG_LTRATEF.VALUE = "HR";
&R_BU_ITEMS_INV.MFG_LTRATEV.VALUE = "HR";
&R_BU_ITEMS_INV.OVERSIZED.VALUE = "N";
&R_BU_ITEMS_INV.ADD_HANDLING.VALUE = "N";
&R_BU_ITEMS_INV.ITEM_FIELD_C30_A.VALUE = " ";
&R_BU_ITEMS_INV.ITEM_FIELD_C30_B.VALUE = " ";
&R_BU_ITEMS_INV.ITEM_FIELD_C30_C.VALUE = " ";
&R_BU_ITEMS_INV.ITEM_FIELD_C30_D.VALUE = " ";
&R_BU_ITEMS_INV.ITEM_FIELD_C2.VALUE = " ";
&R_BU_ITEMS_INV.ITEM_FIELD_N12_A.VALUE = 0;
&R_BU_ITEMS_INV.ITEM_FIELD_N12_B.VALUE = 0;
&R_BU_ITEMS_INV.ITEM_FIELD_N12_C.VALUE = 0;
&R_BU_ITEMS_INV.ITEM_FIELD_N12_D.VALUE = 0;
&R_BU_ITEMS_INV.ITEM_FIELD_N15_A.VALUE = 0;
&R_BU_ITEMS_INV.ITEM_FIELD_N15_B.VALUE = 0;
&R_BU_ITEMS_INV.ITEM_FIELD_N15_C.VALUE = 0;
&R_BU_ITEMS_INV.ITEM_FIELD_N15_D.VALUE = 0;
&R_BU_ITEMS_INV.EXPORTER_ECCN.VALUE = " ";
&R_BU_ITEMS_INV.EXPORT_LIC_NBR.VALUE = " ";
&R_BU_ITEMS_INV.EXPORT_LIC_NBR.Insert();
End-Function;
/*******************************************************************************
********************
Insere uma nova linha Tabela TRANSACTION_INV para transaes '020' e '030'
********************************************************************************
*******************/
Function GRAVA_TRANSACTION(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_DT_TIMESTA
MP, &PAR_SEQ_NBR, &PAR_SOURCE_BUS_UNIT, &PAR_ORDER_NO, &PAR_ORDER_INT_LINE_NO, &
PAR_SCHED_LINE_NO, &PAR_DEMAND_LINE_NO, &PAR_STAGED_DATE, &PAR_INV_LOT_ID, &PAR_
SERIAL_ID, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1, &PAR_STOR_LEVEL_2, &PAR_STOR_LE
VEL_3, &PAR_STOR_LEVEL_4, &PAR_RECEIVER_ID, &PAR_RECV_LN_NBR, &PAR_TRANSACTION_G
ROUP, &PAR_TRANSACTION_DATE, &PAR_QTY_BASE, &PAR_QTY, &PAR_UNIT_MEASURE_STD, &PA
R_UNIT_OF_MEASURE, &PAR_OPRID, &PAR_ACCOUNT, &PAR_DEPTID, &PAR_PO_ID, &PAR_DISTR
IB_LINE_NUM, &PAR_DISTRIB_SEQ_NUM, &PAR_RECV_SHIP_SEQ_NBR, &PAR_PRICE_PO, &PAR_A
NALYSIS_TYPE, &PAR_VENDOR_ID, &PAR_STAGED_TYPE, &PAR_DISTRIB_TYPE, &PAR_BUSINESS
_UNIT_PO, &PAR_TRANSACTION_SOURCE, &PAR_CONVERSION_RATE, &PAR_PROCESS_INSTANCE,
&PAR_PROCESS_FLAG, &PAR_SHIP_ID)
&REC_TRANSACTION = CreateRecord(Record.TRANSACTION_INV);
&REC_TRANSACTION.BUSINESS_UNIT.Value = &PAR_BUSINESS_UNIT;
&REC_TRANSACTION.INV_ITEM_ID.Value = &PAR_INV_ITEM_ID;
&REC_TRANSACTION.DT_TIMESTAMP.Value = &PAR_DT_TIMESTAMP;
&REC_TRANSACTION.SEQ_NBR.Value = &PAR_SEQ_NBR;
&REC_TRANSACTION.SOURCE_BUS_UNIT.Value = &PAR_SOURCE_BUS_UNIT;
&REC_TRANSACTION.ORDER_NO.Value = &PAR_ORDER_NO;
&REC_TRANSACTION.ORDER_INT_LINE_NO.Value = &PAR_ORDER_INT_LINE_NO;
&REC_TRANSACTION.SCHED_LINE_NO.Value = &PAR_SCHED_LINE_NO;
&REC_TRANSACTION.DEMAND_LINE_NO.Value = &PAR_DEMAND_LINE_NO;
&REC_TRANSACTION.STAGED_DATE.Value = &PAR_STAGED_DATE;
&REC_TRANSACTION.INV_LOT_ID.Value = &PAR_INV_LOT_ID;
&REC_TRANSACTION.SERIAL_ID.Value = &PAR_SERIAL_ID;
&REC_TRANSACTION.STORAGE_AREA.Value = &PAR_STORAGE_AREA;
&REC_TRANSACTION.STOR_LEVEL_1.Value = &PAR_STOR_LEVEL_1;
&REC_TRANSACTION.CONTAINER_ID.Value = " ";
&REC_TRANSACTION.RECEIVER_ID.Value = &PAR_RECEIVER_ID;
&REC_TRANSACTION.RECV_LN_NBR.Value = &PAR_RECV_LN_NBR;
&REC_TRANSACTION.COUNTING_EVENT_ID.Value = 0;
&REC_TRANSACTION.TRANSACTION_GROUP.Value = &PAR_TRANSACTION_GROUP;
&REC_TRANSACTION.TRANSACTION_DATE.Value = &PAR_TRANSACTION_DATE;
&REC_TRANSACTION.QTY_BASE.Value = &PAR_QTY_BASE;
&REC_TRANSACTION.QTY.Value = &PAR_QTY;
&REC_TRANSACTION.UNIT_MEASURE_STD.Value = &PAR_UNIT_MEASURE_STD;
&REC_TRANSACTION.UNIT_OF_MEASURE.Value = &PAR_UNIT_OF_MEASURE;
&REC_TRANSACTION.TO_CONTAINER_ID.Value = " ";
&REC_TRANSACTION.TO_STORAGE_AREA.Value = " ";
&REC_TRANSACTION.TO_STOR_LEVEL_1.Value = " ";
&REC_TRANSACTION.TO_UOM.Value = " ";
&REC_TRANSACTION.ADJUST_TYPE.Value = " ";
&REC_TRANSACTION.REASON_CD.Value = " ";
&REC_TRANSACTION.DOCUMENT_ID.Value = " ";
&REC_TRANSACTION.NON_COST_FLAG.Value = " ";

&REC_TRANSACTION.NON_OWN_FLAG.Value = "N";
&REC_TRANSACTION.COSTED_FLAG.Value = "N";
&REC_TRANSACTION.WT_AVE_COST.Value = 0;
&REC_TRANSACTION.OPRID.Value = &PAR_OPRID;
&REC_TRANSACTION.ACCOUNT.Value = &PAR_ACCOUNT;
&REC_TRANSACTION.ALTACCT.Value = " ";
&REC_TRANSACTION.OPERATING_UNIT.Value = " ";
&REC_TRANSACTION.DEPTID.Value = &PAR_DEPTID;
&REC_TRANSACTION.PRODUCT.Value = " ";
&REC_TRANSACTION.PROJECT_ID.Value = " ";
&REC_TRANSACTION.CURRENCY_CD.Value = " ";
&REC_TRANSACTION.STATISTICS_CODE.Value = " ";
&REC_TRANSACTION.PO_ID.Value = &PAR_PO_ID;
&REC_TRANSACTION.DISTRIB_LINE_NUM.Value = &PAR_DISTRIB_LINE_NUM;
&REC_TRANSACTION.DISTRIB_SEQ_NUM.Value = &PAR_DISTRIB_SEQ_NUM;
&REC_TRANSACTION.RECV_SHIP_SEQ_NBR.Value = &PAR_RECV_SHIP_SEQ_NBR;
&REC_TRANSACTION.PRICE_PO.Value = &PAR_PRICE_PO;
&REC_TRANSACTION.REQ_ID.Value = " ";
&REC_TRANSACTION.REQ_LINE_NBR.Value = 0;
&REC_TRANSACTION.REQ_SCHED_NBR.Value = 0;
&REC_TRANSACTION.REQ_DISTRIB_NBR.Value = 0;
&REC_TRANSACTION.RMA_ID.Value = " ";
&REC_TRANSACTION.RMA_LINE_NBR.Value = 0;
&REC_TRANSACTION.RTV_ID.Value = " ";
&REC_TRANSACTION.RTV_LN_NBR.Value = 0;
&REC_TRANSACTION.RTV_DISTRIB_NUM.Value = 0;
&REC_TRANSACTION.ACTIVITY_ID.Value = " ";
&REC_TRANSACTION.RESOURCE_TYPE.Value = " ";
&REC_TRANSACTION.RESOURCE_CATEGORY.Value = " ";
&REC_TRANSACTION.RESOURCE_SUB_CAT.Value = " ";
&REC_TRANSACTION.ANALYSIS_TYPE.Value = &PAR_ANALYSIS_TYPE;
&REC_TRANSACTION.INTERUNIT_ID.Value = " ";
&REC_TRANSACTION.INTERUNIT_LINE.Value = 0;
&REC_TRANSACTION.DESTIN_BU.Value = " ";
&REC_TRANSACTION.INSPECTION_ID.Value = " ";
&REC_TRANSACTION.TRANSFER_COST.Value = 0;
&REC_TRANSACTION.PURCH_LOT_ID.Value = " ";
&REC_TRANSACTION.VENDOR_ID.Value = &PAR_VENDOR_ID;
&REC_TRANSACTION.PRODUCTION_ID.Value = " ";
&REC_TRANSACTION.MA_PRDN_ID_FLG.Value = "N";
&REC_TRANSACTION.PRDN_AREA_CODE.Value = " ";
&REC_TRANSACTION.PRODUCTION_TYPE.Value = " ";
&REC_TRANSACTION.PUTAWAY_COMMENT.Value = " ";
&REC_TRANSACTION.STAGED_TYPE.Value = &PAR_STAGED_TYPE;
&REC_TRANSACTION.DISTRIB_TYPE.Value = &PAR_DISTRIB_TYPE;
&REC_TRANSACTION.STORAGE_CODE.Value = " ";
&REC_TRANSACTION.INV_STOCK_TYPE.Value = " ";
&REC_TRANSACTION.RECEIPT_TYPE.Value = " ";
&REC_TRANSACTION.BUSINESS_UNIT_PO.Value = &PAR_BUSINESS_UNIT_PO;
&REC_TRANSACTION.BUSINESS_UNIT_PC.Value = " ";
&REC_TRANSACTION.TRANSACTION_SOURCE.Value = &PAR_TRANSACTION_SOURCE;
&REC_TRANSACTION.CONVERSION_RATE.Value = &PAR_CONVERSION_RATE;
&REC_TRANSACTION.EIP_CTL_ID.Value = " ";
&REC_TRANSACTION.EIP_TRANS_SRC.Value = " ";
&REC_TRANSACTION.TRANSACTION_CODE.Value = " ";
&REC_TRANSACTION.BCT_SOURCE.Value = " ";
&REC_TRANSACTION.JOB_INSTANCE.Value = 0;
&REC_TRANSACTION.PROCESS_INSTANCE.Value = &PAR_PROCESS_INSTANCE;
&REC_TRANSACTION.PROCESS_FLAG.Value = &PAR_PROCESS_FLAG;
&REC_TRANSACTION.SHIP_ID.Value = &PAR_SHIP_ID;
&REC_TRANSACTION.CONSIGNED_FLAG.Value = "N";
&REC_TRANSACTION.TO_CONSIGNED_FLG.Value = " ";
&REC_TRANSACTION.TO_NON_OWN_FLG.Value = " ";
&REC_TRANSACTION.EXPORT.Value = "N";
&REC_TRANSACTION.REPLACEMENT_FLG.Value = "NA";
&REC_TRANSACTION.IST_RETURN_FLG_IUT.Value = "N";
&REC_TRANSACTION.IST_TXN_FLG.Value = "N";
&REC_TRANSACTION.TRANSFER_COST_DEST.Value = 0;
&REC_TRANSACTION.SF_KANBAN_ID.Value = " ";
&REC_TRANSACTION.Insert();
End-Function;
/*******************************************************************************
********************
Fabiano Cunha - MMC - mmcb.at2603 Insere uma nova linha Tabela TRANSACTION_INV para transao '021'
********************************************************************************
*******************/
Function GRAVA_TRANSACTION_021(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_DT_TIM
ESTAMP, &PAR_SEQ_NBR, &PAR_INV_LOT_ID, &PAR_SERIAL_ID, &PAR_STORAGE_AREA, &PAR_S
TOR_LEVEL_1, &PAR_STOR_LEVEL_2, &PAR_STOR_LEVEL_3, &PAR_STOR_LEVEL_4, &PAR_TRANS
ACTION_DATE, &PAR_QTY_BASE, &PAR_QTY, &PAR_UNIT_MEASURE_STD, &PAR_UNIT_OF_MEASUR
E, &PAR_OPRID, &PAR_PRODUCTION_ID, &PAR_PRDN_AREA_CODE, &PAR_PROCESS_INSTANCE)
&REC_TRANSACTION = CreateRecord(Record.TRANSACTION_INV);
&REC_TRANSACTION.BUSINESS_UNIT.Value = &PAR_BUSINESS_UNIT;
&REC_TRANSACTION.INV_ITEM_ID.Value = &PAR_INV_ITEM_ID;
&REC_TRANSACTION.DT_TIMESTAMP.Value = &PAR_DT_TIMESTAMP;
&REC_TRANSACTION.SEQ_NBR.Value = &PAR_SEQ_NBR;
&REC_TRANSACTION.SOURCE_BUS_UNIT.Value = " ";
&REC_TRANSACTION.ORDER_NO.Value = " ";
&REC_TRANSACTION.ORDER_INT_LINE_NO.Value = 0;
&REC_TRANSACTION.SCHED_LINE_NO.Value = 0;
&REC_TRANSACTION.DEMAND_LINE_NO.Value = 0;
&REC_TRANSACTION.STAGED_DATE.Value = Date3(1900, 1, 1);
&REC_TRANSACTION.INV_LOT_ID.Value = &PAR_INV_LOT_ID;
&REC_TRANSACTION.SERIAL_ID.Value = &PAR_SERIAL_ID;
&REC_TRANSACTION.STORAGE_AREA.Value = &PAR_STORAGE_AREA;
&REC_TRANSACTION.CONTAINER_ID.Value = " ";
&REC_TRANSACTION.RECEIVER_ID.Value = "ALL";
&REC_TRANSACTION.RECV_LN_NBR.Value = "99999";
&REC_TRANSACTION.COUNTING_EVENT_ID.Value = 0;
&REC_TRANSACTION.TRANSACTION_GROUP.Value = "021";
&REC_TRANSACTION.TRANSACTION_DATE.Value = &PAR_TRANSACTION_DATE;
&REC_TRANSACTION.QTY_BASE.Value = &PAR_QTY_BASE;
&REC_TRANSACTION.QTY.Value = &PAR_QTY;
&REC_TRANSACTION.UNIT_MEASURE_STD.Value = &PAR_UNIT_MEASURE_STD;
&REC_TRANSACTION.UNIT_OF_MEASURE.Value = &PAR_UNIT_OF_MEASURE;
&REC_TRANSACTION.TO_CONTAINER_ID.Value = " ";
&REC_TRANSACTION.TO_STORAGE_AREA.Value = " ";

&REC_TRANSACTION.TO_UOM.Value = " ";
&REC_TRANSACTION.ADJUST_TYPE.Value = " ";
&REC_TRANSACTION.REASON_CD.Value = " ";
&REC_TRANSACTION.DOCUMENT_ID.Value = " ";
&REC_TRANSACTION.NON_COST_FLAG.Value = " ";
&REC_TRANSACTION.NON_OWN_FLAG.Value = "N";
&REC_TRANSACTION.COSTED_FLAG.Value = "N";
&REC_TRANSACTION.WT_AVE_COST.Value = 0;
&REC_TRANSACTION.OPRID.Value = &PAR_OPRID;
&REC_TRANSACTION.ACCOUNT.Value = " ";
&REC_TRANSACTION.ALTACCT.Value = " ";
&REC_TRANSACTION.OPERATING_UNIT.Value = " ";
&REC_TRANSACTION.DEPTID.Value = " ";
&REC_TRANSACTION.PRODUCT.Value = " ";
&REC_TRANSACTION.PROJECT_ID.Value = " ";
&REC_TRANSACTION.CURRENCY_CD.Value = " ";
&REC_TRANSACTION.STATISTICS_CODE.Value = " ";
&REC_TRANSACTION.PO_ID.Value = " ";
&REC_TRANSACTION.DISTRIB_LINE_NUM.Value = "0";
&REC_TRANSACTION.DISTRIB_SEQ_NUM.Value = "0";
&REC_TRANSACTION.RECV_SHIP_SEQ_NBR.Value = "0";
&REC_TRANSACTION.PRICE_PO.Value = "0";
&REC_TRANSACTION.REQ_ID.Value = " ";
&REC_TRANSACTION.REQ_LINE_NBR.Value = 0;
&REC_TRANSACTION.REQ_SCHED_NBR.Value = 0;
&REC_TRANSACTION.REQ_DISTRIB_NBR.Value = 0;
&REC_TRANSACTION.RMA_ID.Value = " ";
&REC_TRANSACTION.RMA_LINE_NBR.Value = 0;
&REC_TRANSACTION.RTV_ID.Value = " ";
&REC_TRANSACTION.RTV_LN_NBR.Value = 0;
&REC_TRANSACTION.RTV_DISTRIB_NUM.Value = 0;
&REC_TRANSACTION.ACTIVITY_ID.Value = " ";
&REC_TRANSACTION.RESOURCE_TYPE.Value = " ";
&REC_TRANSACTION.RESOURCE_CATEGORY.Value = " ";
&REC_TRANSACTION.RESOURCE_SUB_CAT.Value = " ";
&REC_TRANSACTION.ANALYSIS_TYPE.Value = " ";
&REC_TRANSACTION.INTERUNIT_ID.Value = " ";
&REC_TRANSACTION.INTERUNIT_LINE.Value = 0;
&REC_TRANSACTION.DESTIN_BU.Value = " ";
&REC_TRANSACTION.INSPECTION_ID.Value = " ";
&REC_TRANSACTION.TRANSFER_COST.Value = 0;
&REC_TRANSACTION.PURCH_LOT_ID.Value = " ";
&REC_TRANSACTION.VENDOR_ID.Value = " ";
&REC_TRANSACTION.PRODUCTION_ID.Value = &PAR_PRODUCTION_ID;
&REC_TRANSACTION.MA_PRDN_ID_FLG.Value = "Y";
&REC_TRANSACTION.PRDN_AREA_CODE.Value = &PAR_PRDN_AREA_CODE;
&REC_TRANSACTION.PRODUCTION_TYPE.Value = "PR";
&REC_TRANSACTION.PUTAWAY_COMMENT.Value = " ";
&REC_TRANSACTION.STAGED_TYPE.Value = "1";
&REC_TRANSACTION.DISTRIB_TYPE.Value = " ";
&REC_TRANSACTION.STORAGE_CODE.Value = " ";
&REC_TRANSACTION.INV_STOCK_TYPE.Value = " ";
&REC_TRANSACTION.RECEIPT_TYPE.Value = " ";
&REC_TRANSACTION.BUSINESS_UNIT_PO.Value = " ";
&REC_TRANSACTION.BUSINESS_UNIT_PC.Value = " ";
&REC_TRANSACTION.TRANSACTION_SOURCE.Value = "WL";
&REC_TRANSACTION.CONVERSION_RATE.Value = "0";
&REC_TRANSACTION.EIP_CTL_ID.Value = " ";
&REC_TRANSACTION.EIP_TRANS_SRC.Value = " ";
&REC_TRANSACTION.TRANSACTION_CODE.Value = " ";

&REC_TRANSACTION.BCT_SOURCE.Value = " ";
&REC_TRANSACTION.JOB_INSTANCE.Value = 0;
&REC_TRANSACTION.PROCESS_INSTANCE.Value = &PAR_PROCESS_INSTANCE;
&REC_TRANSACTION.PROCESS_FLAG.Value = "N";
&REC_TRANSACTION.SHIP_ID.Value = " ";
&REC_TRANSACTION.CONSIGNED_FLAG.Value = "N";
&REC_TRANSACTION.TO_CONSIGNED_FLG.Value = " ";
&REC_TRANSACTION.TO_NON_OWN_FLG.Value = " ";
&REC_TRANSACTION.EXPORT.Value = "N";
&REC_TRANSACTION.REPLACEMENT_FLG.Value = "NA";
&REC_TRANSACTION.IST_RETURN_FLG_IUT.Value = "N";
&REC_TRANSACTION.IST_TXN_FLG.Value = "N";
&REC_TRANSACTION.TRANSFER_COST_DEST.Value = 0;
&REC_TRANSACTION.SF_KANBAN_ID.Value = " ";
&REC_TRANSACTION.Insert();
End-Function;
/*******************************************************************************
**********************************
Fabiano Cunha - MMC - mmcb.at2603 Faz atualizao de QTDs na tabela PHYSICAL_INV ou Cria uma nova linha caso no exista
.
********************************************************************************
*********************************/
Function ATUALIZA_PHYSICAL_INV(&PAR_BUSINESS_UNIT, &PAR_STAGED_DATE, &PAR_INV_LO
T_ID, &PAR_INV_ITEM_ID, &PAR_SERIAL_ID, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1, &P
AR_STOR_LEVEL_2, &PAR_STOR_LEVEL_3, &PAR_STOR_LEVEL_4, &PAR_CONTAINER_ID, &PAR_U
NIT_OF_MEASURE, &PAR_QTY, &PAR_QTY_BASE, &PAR_TRANSACTION_GROUP)
/***************************************************************************
mmcb.at2603 - s.n ******************/
/* Buscar o Lote e Serie default, quando o item no for controlado por serie e
lote */
SQLExec("SELECT DFLT_SERIAL_ID, DFLT_INV_LOT_ID FROM SYSADM.PS_INSTALLATION_I
N", &DFLT_SERIAL_ID, &DFLT_INV_LOT_ID);
/*Verificar se o item controlado por lote e serie */
SQLExec("SELECT A.LOT_CONTROL, A.SERIAL_CONTROL FROM SYSADM.PS_MASTER_ITEM_TB
L A, SYSADM.PS_SET_CNTRL_REC B WHERE A.SETID = B.SETID AND A.INV_ITEM_ID = :1 A
ND B.RECNAME = 'MASTER_ITEM_TBL' AND B.REC_GROUP_ID = 'FS_18' AND B.SETCNTRLVALU
E = :2", &PAR_INV_ITEM_ID, &PAR_BUSINESS_UNIT, &FLG_INV_LOT_ID, &FLG_SERIAL_ID);
If &FLG_INV_LOT_ID = "N" Then
If None(&PAR_INV_LOT_ID) Then
&PAR_INV_LOT_ID = &DFLT_INV_LOT_ID
End-If;
End-If;
If &FLG_INV_LOT_ID = "Y" Then
SQLExec("SELECT 'X',SYSDATe FROM PS_LOT_CONTROL_INV WHERE BUSINESS_UNIT =
:1 AND INV_ITEM_ID = :2 AND INV_LOT_ID = :3", &PAR_BUSINESS_UNIT, &PAR_INV_ITEM_
ID, &PAR_INV_LOT_ID, &EXISTE_LOT, &HOJE);
If None(&EXISTE_LOT) Then
&HOJE = %Date;
&HOJE99 = &HOJE;
&HOJE99 = AddToDate(&HOJE, 99, 0, 0);
SQLExec("INSERT INTO PS_LOT_CONTROL_INV( BUSINESS_UNIT, INV_ITEM_ID, IN

V_LOT_ID, DESCR, LOT_BIRTHDATE, EXPIRATION_DATE, AVAIL_STATUS, AVAIL_STATUS_TYPE
, REASON_CD, WARNING_MSG, PURCH_LOT_ID, INV_PROD_GRADE, QTY_ONHAND, QTY_AVAILABL
E, QTY_ALLOCATED, CONFIG_CODE, CONFIG_LOT_ASSIGN, DT_TIMESTAMP, OPRID, DESCR254_
MIXED )VALUES ( :1, :2, :3, :4, TO_DATE( :5, 'YYYY-MM-DD' ), TO_DATE( :6, 'YYYYMM-DD' ), :7, :8, :9, :10, :11, :12, :13, :14, :15, :16, :17, TO_DATE( SUBSTR( S
YSDATE, 0, 19 ), 'YYYY-MM-DD-HH24.MI.SS' ), :18, :19 )", &PAR_BUSINESS_UNIT, &PA
R_INV_ITEM_ID, &PAR_INV_LOT_ID, "CADASTRO AUTOMTICO", &HOJE, &HOJE99, "1", " ", "
", " ", " ", " ", &PAR_QTY, &PAR_QTY, 0, &PAR_INV_LOT_ID, "N", %OperatorId, " "
);
Else
SQLExec("UPDATE PS_LOT_CONTROL_INV SET QTY_ONHAND=QTY_ONHAND +:1 , QTY_
AVAILABLE = QTY_AVAILABLE +:2 WHERE BUSINESS_UNIT = :3 AND INV_ITEM_ID = :4 AND
INV_LOT_ID = :5", &PAR_QTY, &PAR_QTY, &PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR
_INV_LOT_ID);
End-If;
End-If;
If &FLG_SERIAL_ID = "N" Then
If None(&PAR_SERIAL_ID) Then
&PAR_SERIAL_ID = &DFLT_SERIAL_ID
End-If;
End-If;
/***************************************************************************
mmcb.at2603 - e.n ******************/
_QTY_BASE;
Else
&PAR_LAST_TRANSACT_TYPE = &PAR_TRANSACTION_GROUP;
P)
End-If;
End-Function;
/*******************************************************************************
*******************
Cria uma Entrada de Estoque (Transao 020)
********************************************************************************
*******************/
Function ENTRADA_ESTOQUE(&P_BUSINESS_UNIT, &P_STAGED_DATE, &P_INV_LOT_ID, &P_INV
_ITEM_ID, &P_SERIAL_ID, &P_STORAGE_AREA, &P_STOR_LEVEL_1, &P_STOR_LEVEL_2, &P_ST
OR_LEVEL_3, &P_STOR_LEVEL_4, &P_CONTAINER_ID, &P_UNIT_OF_MEASURE, &P_QTY, &P_DEP
TO, &P_DISTRIB_TYPE, &P_DT_TIMESTAMP, &P_BUSINESS_UNIT_RECV, &P_RECEIVER_ID, &P_
RECV_LN_NBR, &P_RECV_SHIP_SEQ_NBR, &P_SOURCE_BUS_UNIT, &P_ORDER_NO, &P_ORDER_INT
_LINE_NO, &P_CUSTO, &P_CONFIG_CODE, &P_PARAMETRO_OPCIONAL)
/************************************ mmcb.hd226465.sn **********************
**************/
/*Verifica se o item esta cadastrado na UN de estoque*/
SQLExec("SELECT 'Y' AS EXISTE_BU FROM SYSADM.PS_BU_ITEMS_INV WHERE BUSINESS_U
NIT = :1 AND INV_ITEM_ID = :2 AND ITM_STATUS_CURRENT = '1' AND ITM_STATUS_EFFDT
<= TRUNC(SYSDATE)", &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &EXISTE_BU);
If None(&EXISTE_BU) Then
Error ("O item " | &P_INV_ITEM_ID | " no esta cadastrado na UN de estoque "
| &P_BUSINESS_UNIT | "! Favor verificar a tela Home > Manter Itens > Definir It
ens > Usar > Definio do Item da UN.");
End-If;
/************************************ mmcb.hd226465.en **********************
**************/
If None(&P_BUSINESS_UNIT_RECV) Or
&P_BUSINESS_UNIT_RECV = "" Or
&P_BUSINESS_UNIT_RECV = " " Then
Error ("Erro Funo: ENTRADA_ESTOQUE Parametro &P_BUSINESS_UNIT_RECV UN: " | &
P_BUSINESS_UNIT | " Item: " | &P_INV_ITEM_ID);
End-If;
If None(&P_RECEIVER_ID) Or
&P_RECEIVER_ID = "" Or
&P_RECEIVER_ID = " " Then
Error ("Erro Funo: ENTRADA_ESTOQUE Parametro &P_RECEIVER_ID UN: " | &P_BUSIN
ESS_UNIT | " Item: " | &P_INV_ITEM_ID);
End-If;
/* If None(&P_RECV_LN_NBR) Or
&P_RECV_LN_NBR <= 0 Then
Error ("Erro Funo: ENTRADA_ESTOQUE Parametro &P_RECV_LN_NBR UN: " | &P_BUSIN
ESS_UNIT | " Item: " | &P_INV_ITEM_ID);
End-If;
If None(&P_RECV_SHIP_SEQ_NBR) Or
&P_RECV_SHIP_SEQ_NBR <= 0 Then
Error ("Erro Funo: ENTRADA_ESTOQUE Parametro &P_RECV_SHIP_SEQ_NBR UN: " | &P
_BUSINESS_UNIT | " Item: " | &P_INV_ITEM_ID);
End-If;*/
If None(&P_DISTRIB_TYPE) Or
&P_DISTRIB_TYPE = "" Or
&P_DISTRIB_TYPE = " " Then
Error ("Erro Funo: ENTRADA_ESTOQUE Parametro &P_DISTRIB_TYPE UN: " | &P_BUSI
NESS_UNIT | " Item: " | &P_INV_ITEM_ID);
End-If;
If None(&P_PARAMETRO_OPCIONAL) Or
&P_PARAMETRO_OPCIONAL = "" Or
&P_PARAMETRO_OPCIONAL = " " Then
Error ("Erro Funo: ENTRADA_ESTOQUE Parametro &P_PARAMETRO_OPCIONAL: " | &P_P
ARAMETRO_OPCIONAL | " retornada em branco.");
End-If;
&PAR_BUSINESS_UNIT = &P_BUSINESS_UNIT;
&PAR_STAGED_DATE = &P_STAGED_DATE;
&PAR_INV_LOT_ID = &P_INV_LOT_ID;
&PAR_INV_ITEM_ID = &P_INV_ITEM_ID;
&PAR_SERIAL_ID = &P_SERIAL_ID;
&PAR_STORAGE_AREA = &P_STORAGE_AREA;
&PAR_STOR_LEVEL_1 = &P_STOR_LEVEL_1;
&PAR_CONTAINER_ID = &P_CONTAINER_ID;
&PAR_UNIT_OF_MEASURE = &P_UNIT_OF_MEASURE;
&PAR_QTY = &P_QTY;
&PAR_QTY_BASE = &P_QTY;
&PAR_DT_TIMESTAMP = &P_DT_TIMESTAMP;
&PAR_SEQ_NBR = max_seqnbr_transaction(&P_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PA
R_DT_TIMESTAMP);;
&PAR_SOURCE_BUS_UNIT = &P_SOURCE_BUS_UNIT;
&PAR_ORDER_NO = &P_ORDER_NO;
&PAR_ORDER_INT_LINE_NO = &P_ORDER_INT_LINE_NO;
&PAR_SCHED_LINE_NO = 0;
&PAR_DEMAND_LINE_NO = 0;
&PAR_RECEIVER_ID = &P_RECEIVER_ID;
&PAR_RECV_LN_NBR = &P_RECV_LN_NBR;
&PAR_TRANSACTION_GROUP = "020";
&PAR_TRANSACTION_DATE = %Date;
&PAR_QTY_BASE = &P_QTY;
&PAR_QTY = &P_QTY;
&PAR_UNIT_MEASURE_STD = &PAR_UNIT_OF_MEASURE;
&PAR_UNIT_OF_MEASURE = &PAR_UNIT_OF_MEASURE;
&PAR_OPRID = %UserId;
&PAR_DEPTID = &P_DEPTO;
&PAR_PO_ID = " ";
&PAR_DISTRIB_LINE_NUM = 0;
&PAR_DISTRIB_SEQ_NUM = 0;
&PAR_RECV_SHIP_SEQ_NBR = &P_RECV_SHIP_SEQ_NBR;
&PAR_PRICE_PO = 0;
&PAR_ANALYSIS_TYPE = "ACT";
&PAR_VENDOR_ID = " ";
&PAR_STAGED_TYPE = "1";
&PAR_DISTRIB_TYPE = &P_DISTRIB_TYPE;
&PAR_BUSINESS_UNIT_PO = " ";
&PAR_TRANSACTION_SOURCE = "IN";
&PAR_CONVERSION_RATE = 0;
&PAR_PROCESS_INSTANCE = 0;
&PAR_PROCESS_FLAG = "N";
&PAR_SHIP_ID = " ";
GRAVA_TRANSACTION(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_DT_TIMESTAMP, &P
AR_SEQ_NBR, &PAR_SOURCE_BUS_UNIT, &PAR_ORDER_NO, &PAR_ORDER_INT_LINE_NO, &PAR_SC
HED_LINE_NO, &PAR_DEMAND_LINE_NO, &PAR_STAGED_DATE, &PAR_INV_LOT_ID, &PAR_SERIAL
_ID, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1, &PAR_STOR_LEVEL_2, &PAR_STOR_LEVEL_3,
&PAR_STOR_LEVEL_4, &PAR_RECEIVER_ID, &PAR_RECV_LN_NBR, &PAR_TRANSACTION_GROUP,
&PAR_TRANSACTION_DATE, &PAR_QTY_BASE, &PAR_QTY, &PAR_UNIT_MEASURE_STD, &PAR_UNIT
_OF_MEASURE, &PAR_OPRID, &PAR_ACCOUNT, &PAR_DEPTID, &PAR_PO_ID, &PAR_DISTRIB_LIN
E_NUM, &PAR_DISTRIB_SEQ_NUM, &PAR_RECV_SHIP_SEQ_NBR, &PAR_PRICE_PO, &PAR_ANALYSI
S_TYPE, &PAR_VENDOR_ID, &PAR_STAGED_TYPE, &PAR_DISTRIB_TYPE, &PAR_BUSINESS_UNIT_
PO, &PAR_TRANSACTION_SOURCE, &PAR_CONVERSION_RATE, &PAR_PROCESS_INSTANCE, &PAR_P
ROCESS_FLAG, &PAR_SHIP_ID);
SQLExec("select qty_available, cost_element, source_code from sysadm.ps_bu_it
ems_inv where business_unit=:1 and inv_item_id=:2", &P_BUSINESS_UNIT, &P_INV_ITE
M_ID, &BU_QTY_AVAILABLE, &BU_COST_ELEMENT, &BU_SOURCE_CODE);
If &BU_SOURCE_CODE = "2" Then
GERA_CUSTO_MEDIO_ITEM(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_QTY, &PAR
_DT_TIMESTAMP, &PAR_SEQ_NBR, &P_BUSINESS_UNIT_RECV, &PAR_RECEIVER_ID, &PAR_RECV_
LN_NBR, &PAR_RECV_SHIP_SEQ_NBR, &P_CUSTO, &P_CONFIG_CODE, &PAR_TRANSACTION_DATE,
&P_PARAMETRO_OPCIONAL);
End-If;
ATUALIZA_PHYSICAL_INV_020(&PAR_BUSINESS_UNIT, &PAR_STAGED_DATE, &PAR_INV_LOT_
ID, &PAR_INV_ITEM_ID, &PAR_SERIAL_ID, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1, &PAR
_STOR_LEVEL_2, &PAR_STOR_LEVEL_3, &PAR_STOR_LEVEL_4, &PAR_CONTAINER_ID, &PAR_UNI
T_OF_MEASURE, &PAR_QTY, &PAR_QTY);
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
=
=
=
=
=
=
=
=
=
"";
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
|
|
|
|
|
|
|
|
" SELECT NETTABLE_FLG ";

" FROM SYSADM.PS_STOR_LOC_INV ";
" WHERE BUSINESS_UNIT = :1 ";
" AND STORAGE_AREA = :2 ";
" AND STOR_LEVEL_1 = :3 ";
SQLExec(&SQL, &PAR_BUSINESS_UNIT, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1, &PAR_

STOR_LEVEL_2, &PAR_STOR_LEVEL_3, &PAR_STOR_LEVEL_4, &FLAG_AREA_ACEITA_RESERVA);
ATUALIZA_BU_ITEMS_INV(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_QTY, "020",

" ", &FLAG_AREA_ACEITA_RESERVA);
End-Function;
/*******************************************************************************
******************************
FAZ Reduo do Estoque.
********************************************************************************
*****************************/
Function REDUCAO_ESTOQUE(&P_BUSINESS_UNIT, &P_SHIP_ID)
SQLExec("SELECT DISTINCT SHIP_ID, shipped_flag, cancel_flag, pssh_complete,
pssh_run_status, deplete_inv_flg FROM SYSADM.PS_SHIP_INF_INV WHERE BUSINESS_UNIT
=:1 AND SHIP_ID=:2 AND SHIPPED_FLAG='Y' AND CANCEL_FLAG = 'N' AND PSSH_COMPLETE
= 'N' AND PSSH_RUN_STATUS = '1'", &P_BUSINESS_UNIT, &P_SHIP_ID, &SHIPID_VALIDO,
&a, &b, &c, &d, &e);
If None(&SHIPID_VALIDO) Then
Error ("O SHIPID: " | &P_BUSINESS_UNIT | " - " | &P_SHIP_ID | " no est pende
nte na lista de Reduo");
End-If;
SQLExec("update ps_ship_inf_inv set pssh_run_status = '2', pssh_complete = 'N
' where business_unit =:1 and ship_id =:2 and shipped_flag='Y' and cancel_flag =
'N' and pssh_complete = 'N' and pssh_run_status = '1' and deplete_inv_flg = 'Y'
", &P_BUSINESS_UNIT, &P_SHIP_ID);
&SQL = "select a.demand_source, a.source_bus_unit, a.order_no, a.order_int_li
ne_no, a.sched_line_no, a.inv_item_id, a.demand_line_no, a.destin_bu, a.interuni
t_flg, b.non_own_flag, c.nettable_flg, b.avail_status, a.unit_measure_ship, a.pr
ice_po, sum(b.last_qty_ship_base), c.inspect_flg,b.storage_area,b.stor_level_1,b
.stor_level_2,b.stor_level_3,b.stor_level_4,b.inv_lot_id, b.serial_id,a.deptid,a
.distrib_type from sysadm.ps_ship_inf_inv a, sysadm.ps_demand_phys_inv b, sysadm
.ps_stor_loc_inv c where a.business_unit =:1 and a.ship_id=:2 and a.pssh_run_sta
tus = '2' and a.pssh_complete = 'N' and b.business_unit = a.business_unit and b.
demand_source = a.demand_source and b.source_bus_unit = a.source_bus_unit and b.
order_no = a.order_no and b.order_int_line_no = a.order_int_line_no and b.sched_
line_no = a.sched_line_no and b.demand_line_no = a.demand_line_no and b.inv_item
_id = a.inv_item_id and c.business_unit = b.business_unit and c.storage_area = b
.storage_area and c.stor_level_1 = ";
&SQL = &SQL | " b.stor_level_1 and c.stor_level_2 = b.stor_level_2 and c.stor
_level_3 = b.stor_level_3 and c.stor_level_4 = b.stor_level_4 group by a.busines
s_unit, a.demand_source, a.source_bus_unit, a.order_no, a.order_int_line_no, a.s
ched_line_no, a.inv_item_id, a.demand_line_no, a.destin_bu, a.interunit_flg, b.n
on_own_flag, c.nettable_flg, b.avail_status, a.unit_measure_ship, a.price_po, c.
inspect_flg,b.storage_area,b.stor_level_1,b.stor_level_2,b.stor_level_3,b.stor_l
evel_4, b.inv_lot_id, b.serial_id,a.deptid,a.distrib_type order by a.order_no, a
.order_int_line_no, a.sched_line_no, a.demand_line_no ";
&cmdSQL = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_SHIP_ID);
While &cmdSQL.Fetch(&v_demand_source, &V_SOURCE_BUS_UNIT, &v_order_no, &v_ord
er_int_line_no, &v_sched_line_no, &V_INV_ITEM_ID, &v_demand_line_no, &v_destin_b
u, &v_interunit_flg, &V_NON_OWN_FLAG, &v_nettable_flg, &v_avail_status, &v_unit_
measure_ship, &v_price_po, &v_qty_ship_base, &v_inspect_flg, &V_STORAGE_AREA, &V
_STOR_LEVEL_1, &V_STOR_LEVEL_2, &V_STOR_LEVEL_3, &V_STOR_LEVEL_4, &V_INV_LOT_ID,
&V_SERIAL_ID, &V_DEPTID, &V_DISTRIB_TYPE)
/************************************ mmcb.hd226465.sn *******************
*****************/
SQLExec("SELECT 'Y' AS EXISTE_BU FROM SYSADM.PS_BU_ITEMS_INV WHERE BUSINES
S_UNIT = :1 AND INV_ITEM_ID = :2 AND ITM_STATUS_CURRENT = '1' AND ITM_STATUS_EFF
DT <= TRUNC(SYSDATE)", &P_BUSINESS_UNIT, &V_INV_ITEM_ID, &EXISTE_BU);
Error ("O item " | &V_INV_ITEM_ID | " no esta cadastrado na UN de estoqu
e " | &P_BUSINESS_UNIT | "! Favor verificar a tela Home > Manter Itens > Definir
Itens > Usar > Definio do Item da UN.");
End-If;
/************************************ mmcb.hd226465.en *******************
*****************/
&PAR_BUSINESS_UNIT = &P_BUSINESS_UNIT;
&PAR_INV_ITEM_ID = &V_INV_ITEM_ID;
&PAR_SEQ_NBR = max_seqnbr_transaction(&P_BUSINESS_UNIT, &PAR_INV_ITEM_ID,
&PAR_DT_TIMESTAMP);
&PAR_SOURCE_BUS_UNIT = &V_SOURCE_BUS_UNIT;
&PAR_ORDER_NO = &v_order_no;
&PAR_ORDER_INT_LINE_NO = &v_order_int_line_no;
&PAR_SCHED_LINE_NO = &v_sched_line_no;
&PAR_DEMAND_LINE_NO = &v_demand_line_no;
&PAR_STAGED_DATE = Date3(1900, 1, 1);
&PAR_INV_LOT_ID = &V_INV_LOT_ID;
&PAR_SERIAL_ID = &V_SERIAL_ID;
&PAR_STORAGE_AREA = &V_STORAGE_AREA;
&PAR_STOR_LEVEL_1 = &V_STOR_LEVEL_1;
&PAR_RECEIVER_ID = " ";
&PAR_RECV_LN_NBR = 0;
&PAR_TRANSACTION_DATE = %Date;
&PAR_QTY_BASE = &v_qty_ship_base;
&PAR_QTY = &v_qty_ship_base;
&PAR_UNIT_MEASURE_STD = &v_unit_measure_ship;
&PAR_UNIT_OF_MEASURE = &v_unit_measure_ship;
&PAR_ACCOUNT = " ";
&PAR_DEPTID = &V_DEPTID;
&PAR_PO_ID = " ";
&PAR_RECV_SHIP_SEQ_NBR = 0;
&PAR_PRICE_PO = 0;
&PAR_STAGED_TYPE = " ";
&PAR_DISTRIB_TYPE = &V_DISTRIB_TYPE;
&PAR_SHIP_ID = &P_SHIP_ID;
GRAVA_TRANSACTION(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_DT_TIMESTAMP,
&PAR_SEQ_NBR, &PAR_SOURCE_BUS_UNIT, &PAR_ORDER_NO, &PAR_ORDER_INT_LINE_NO, &PAR
_SCHED_LINE_NO, &PAR_DEMAND_LINE_NO, &PAR_STAGED_DATE, &PAR_INV_LOT_ID, &PAR_SER

IAL_ID, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1, &PAR_STOR_LEVEL_2, &PAR_STOR_LEVEL
_3, &PAR_STOR_LEVEL_4, &PAR_RECEIVER_ID, &PAR_RECV_LN_NBR, &PAR_TRANSACTION_GROU
P, &PAR_TRANSACTION_DATE, &PAR_QTY_BASE, &PAR_QTY, &PAR_UNIT_MEASURE_STD, &PAR_U
NIT_OF_MEASURE, &PAR_OPRID, &PAR_ACCOUNT, &PAR_DEPTID, &PAR_PO_ID, &PAR_DISTRIB_
LINE_NUM, &PAR_DISTRIB_SEQ_NUM, &PAR_RECV_SHIP_SEQ_NBR, &PAR_PRICE_PO, &PAR_ANAL
YSIS_TYPE, &PAR_VENDOR_ID, &PAR_STAGED_TYPE, &PAR_DISTRIB_TYPE, &PAR_BUSINESS_UN
IT_PO, &PAR_TRANSACTION_SOURCE, &PAR_CONVERSION_RATE, &PAR_PROCESS_INSTANCE, &PA
R_PROCESS_FLAG, &PAR_SHIP_ID);
ATUALIZA_BU_ITEMS_INV(&P_BUSINESS_UNIT, &V_INV_ITEM_ID, &v_qty_ship_base,
"030", &v_order_no, "Y");
End-While;
&cmdSQL.Close();
SQLExec("update ps_ship_inf_inv set pssh_run_status = '3' , pssh_complete = '
Y' , depleted_date =sysdate where business_unit=:1 and ship_id=:2", &P_BUSINESS
_UNIT, &P_SHIP_ID);
End-Function;
/*******************************************************************************
******
* Faz as rotinas do processo de Armazenagem estoque
*
* PROCESSO: Home > Controlar Estoque > Armazenar Estoque > Processar >
*
* Carreg Itens Armazenados
*
********************************************************************************
*****/
Function CARREGAR_ITENS_ARMAZENADOS(&P_BUSINESS_UNIT, &P_RECEIVER_ID)
SQLExec("select count(*) from ps_staged_inf_inv where business_unit =:1 and r
eceiver_id =:2 and (process_flag = 'N' or (process_flag = 'Y' and receiver_id li
ke 'RT%')) ", &P_BUSINESS_UNIT, &P_RECEIVER_ID, &CONTADOR);
If &CONTADOR = 0 Then
Error ("Recebimento: " | &P_RECEIVER_ID | " no est na lista de Armazenagens"
);
End-If;
SQLExec("update sysadm.ps_bus_unit_tbl_in set staging_id = staging_id + 1 whe
re business_unit = :1 ", &P_BUSINESS_UNIT);
SQLExec("select staging_id from ps_bus_unit_tbl_in where business_unit = :1 "
, &P_BUSINESS_UNIT, &LAST_STAGING_ID);
&SQL1 = "select business_unit , inv_lot_id , container_id , inv_item_id , ser
ial_id , receiver_id , recv_ln_nbr , source_bus_unit , recv_ship_seq_nbr , distr
ib_line_num , distrib_seq_num , rma_id , rma_line_nbr , %DateOut(lot_birthdate)
, %dateOut(expiration_date) , ma_prdn_id_flg , production_id , prdn_area_code ,
production_type , to_production_id , op_sequence , qty_code , inv_stock_type , q
ty , unit_of_measure , conversion_rate , transfer_cost , process_flag , process_
instance , job_instance , ";
&SQL2 = "storage_area , stor_level_1 , stor_level_2 , stor_level_3 , stor_lev
el_4 , receipt_type , po_id , interunit_id , interunit_line , sf_kanban_id , ins
pect_status , inspection_id , %DateOut(last_purch_date) , non_own_flag , purch_l
ot_id , vendor_id , storage_code ,oprid , distrib_type , %DateOut(po_dt) , busin

ess_unit_po , trans_source , config_code , container_type , speedtype_key , acc
ount , altacct , operating_unit , deptid , product , project_id , activity_id ,
resource_type , resource_category , resource_sub_cat , analysis_type , business_
unit_pc , combo_valid_flg , consigned_flag, actual_cost from sysadm.ps_staged_i
nf_inv where business_unit =:1 and receiver_id =:2 and (process_flag = 'N' or (
process_flag = 'Y' and receiver_id like 'RT%')) ";
&SQL = &SQL1 | &SQL2;
&cmdSQL = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_RECEIVER_ID);
While &cmdSQL.fetch(&V_BUSINESS_UNIT, &V_INV_LOT_ID, &V_CONTAINER_ID, &V_INV_
ITEM_ID, &V_SERIAL_ID, &V_RECEIVER_ID, &V_RECV_LN_NBR, &V_SOURCE_BUS_UNIT, &V_RE
CV_SHIP_SEQ_NBR, &V_DISTRIB_LINE_NUM, &V_DISTRIB_SEQ_NUM, &V_RMA_ID, &V_RMA_LINE
_NBR, &V_LOT_BIRTHDATE, &V_EXPIRATION_DATE, &V_MA_PRDN_ID_FLG, &V_PRODUCTION_ID,
&V_PRDN_AREA_CODE, &V_PRODUCTION_TYPE, &V_TO_PRODUCTION_ID, &V_OP_SEQUENCE, &V_
QTY_CODE, &V_INV_STOCK_TYPE, &V_QTY, &V_UNIT_OF_MEASURE, &V_CONVERSION_RATE, &V_
TRANSFER_COST, &V_PROCESS_FLAG, &V_PROCESS_INSTANCE, &V_JOB_INSTANCE, &V_STORAGE
_AREA, &V_STOR_LEVEL_1, &V_STOR_LEVEL_2, &V_STOR_LEVEL_3, &V_STOR_LEVEL_4, &V_RE
CEIPT_TYPE, &V_PO_ID, &V_INTERUNIT_ID, &V_INTERUNIT_LINE, &V_SF_KANBAN_ID, &V_IN
SPECT_STATUS, &V_INSPECTION_ID, &V_LAST_PURCH_DATE, &V_NON_OWN_FLAG, &V_PURCH_LO
T_ID, &V_VENDOR_ID, &V_STORAGE_CODE, &V_OPRID, &V_DISTRIB_TYPE, &V_PO_DT, &V_BUS
INESS_UNIT_PO, &V_TRANS_SOURCE, &V_CONFIG_CODE, &V_CONTAINER_TYPE, &V_SPEEDTYPE_
KEY, &V_ACCOUNT, &V_ALTACCT, &V_OPERATING_UNIT, &V_DEPTID, &V_PRODUCT, &V_PROJEC
T_ID, &V_ACTIVITY_ID, &V_RESOURCE_TYPE, &V_RESOURCE_CATEGORY, &V_RESOURCE_SUB_CA
T, &V_ANALYSIS_TYPE, &V_BUSINESS_UNIT_PC, &V_COMBO_VALID_FLG, &V_CONSIGNED_FLAG,
&V_ACTUAL_COST);
&S_BUSINESS_UNIT = &V_BUSINESS_UNIT;
&S_STAGING_ID = &LAST_STAGING_ID;
&S_INV_LOT_ID = &V_INV_LOT_ID;
&S_CONTAINER_ID = &V_CONTAINER_ID;
&S_INV_ITEM_ID = &V_INV_ITEM_ID;
&S_SERIAL_ID = &V_SERIAL_ID;
&S_RECEIVER_ID = &V_RECEIVER_ID;
&S_RECV_LN_NBR = &V_RECV_LN_NBR;
&S_STAGED_NUM = 1;
&S_SOURCE_BUS_UNIT = &V_SOURCE_BUS_UNIT;
&S_RECV_SHIP_SEQ_NBR = &V_RECV_SHIP_SEQ_NBR;
&S_DISTRIB_LINE_NUM = &V_DISTRIB_LINE_NUM;
&S_DISTRIB_SEQ_NUM = &V_DISTRIB_SEQ_NUM;
&S_RMA_ID = &V_RMA_ID;
&S_RMA_LINE_NBR = &V_RMA_LINE_NBR;
&S_PTWY_PLAN_ID = 0;
&S_PTWYPLAN_LN_NBR = 0;
&S_STAGED_DATE = %Date;
&S_LOT_BIRTHDATE = &V_LOT_BIRTHDATE;
&S_EXPIRATION_DATE = &V_EXPIRATION_DATE;
&S_MA_PRDN_ID_FLG = &V_MA_PRDN_ID_FLG;
&S_PRODUCTION_ID = &V_PRODUCTION_ID;
&S_PRDN_AREA_CODE = &V_PRDN_AREA_CODE;
&S_PRODUCTION_TYPE = &V_PRODUCTION_TYPE;
&S_TO_PRODUCTION_ID = &V_TO_PRODUCTION_ID;
&S_OP_SEQUENCE = &V_OP_SEQUENCE;
&S_QTY_CODE = &V_QTY_CODE;
&S_INV_STOCK_TYPE = &V_INV_STOCK_TYPE;
&S_QTY = &V_QTY;
&S_UNIT_OF_MEASURE = &V_UNIT_OF_MEASURE;
&S_QTY_BASE = &V_QTY;
&S_QTY_CONV_FLAG = "1";
&S_PUTAWAY_STATUS = "1";
&S_CONVERSION_RATE = &V_CONVERSION_RATE;
&S_TRANSFER_COST = &V_TRANSFER_COST;
&S_PROCESS_FLAG = "N";
&S_PROCESS_INSTANCE = 0;
&S_JOB_INSTANCE = 0;
&S_PUTAWAY_COMMENT = " ";
&S_FROM_STOR_AREA = " ";
&S_FROM_STOR_LEV1 = " ";
&S_FROM_UOM = " ";
&S_STORAGE_AREA = &V_STORAGE_AREA;
&S_STOR_LEVEL_1 = &V_STOR_LEVEL_1;
&S_PUTAWAY_FLAG = "Y";
&S_RECEIPT_TYPE = &V_RECEIPT_TYPE;
&S_PO_ID = &V_PO_ID;
&S_INTERUNIT_ID = &V_INTERUNIT_ID;
&S_INTERUNIT_LINE = &V_INTERUNIT_LINE;
&S_SF_KANBAN_ID = &V_SF_KANBAN_ID;
&S_INSPECT_STATUS = &V_INSPECT_STATUS;
&S_INSPECTION_ID = &V_INSPECTION_ID;
&S_LAST_PURCH_DATE = &V_LAST_PURCH_DATE;
&S_NON_OWN_FLAG = &V_NON_OWN_FLAG;
&S_PURCH_LOT_ID = &V_PURCH_LOT_ID;
&S_VENDOR_ID = &V_VENDOR_ID;
&S_STORAGE_CODE = &V_STORAGE_CODE;
&S_OPRID = %UserId;
&S_STAGED_TYPE = "1";
&S_DISTRIB_TYPE = &V_DISTRIB_TYPE;
&S_PO_DT = &V_PO_DT;
&S_BUSINESS_UNIT_PO = &V_BUSINESS_UNIT_PO;
&S_TRANS_SOURCE = &V_TRANS_SOURCE;
&S_CONFIG_CODE = &V_CONFIG_CODE;
&S_CANCEL_NETTABLE = "N";
&S_DT_TIMESTAMP = %Datetime;
&S_CONTAINER_TYPE = &V_CONTAINER_TYPE;
&S_SPEEDTYPE_KEY = &V_SPEEDTYPE_KEY;
&S_ACCOUNT = &V_ACCOUNT;
&S_ALTACCT = &V_ALTACCT;
&S_OPERATING_UNIT = &V_OPERATING_UNIT;
&S_DEPTID = &V_DEPTID;
&S_PRODUCT = &V_PRODUCT;
&S_PROJECT_ID = &V_PROJECT_ID;
&S_ACTIVITY_ID = &V_ACTIVITY_ID;
&S_RESOURCE_TYPE = &V_RESOURCE_TYPE;
&S_RESOURCE_CATEGORY = &V_RESOURCE_CATEGORY;
&S_RESOURCE_SUB_CAT = &V_RESOURCE_SUB_CAT;
&S_ANALYSIS_TYPE = &V_ANALYSIS_TYPE;
&S_BUSINESS_UNIT_PC = &V_BUSINESS_UNIT_PC;
&S_COMBO_VALID_FLG = &V_COMBO_VALID_FLG;
&S_CONSIGNED_FLAG = &V_CONSIGNED_FLAG;
GRAVA_STAGED_ITEM_INV(&S_BUSINESS_UNIT, &S_STAGING_ID, &S_INV_LOT_ID, &S_C
ONTAINER_ID, &S_INV_ITEM_ID, &S_SERIAL_ID, &S_RECEIVER_ID, &S_RECV_LN_NBR, &S_ST
AGED_NUM, &S_SOURCE_BUS_UNIT, &S_RECV_SHIP_SEQ_NBR, &S_DISTRIB_LINE_NUM, &S_DIST

RIB_SEQ_NUM, &S_RMA_ID, &S_RMA_LINE_NBR, &S_PTWY_PLAN_ID, &S_PTWYPLAN_LN_NBR, &S
_STAGED_DATE, &S_LOT_BIRTHDATE, &S_EXPIRATION_DATE, &S_MA_PRDN_ID_FLG, &S_PRODUC
TION_ID, &S_PRDN_AREA_CODE, &S_PRODUCTION_TYPE, &S_TO_PRODUCTION_ID, &S_OP_SEQUE
NCE, &S_QTY_CODE, &S_INV_STOCK_TYPE, &S_QTY, &S_UNIT_OF_MEASURE, &S_QTY_BASE, &S
_QTY_CONV_FLAG, &S_PUTAWAY_STATUS, &S_CONVERSION_RATE, &S_TRANSFER_COST, &S_PROC
ESS_FLAG, &S_PROCESS_INSTANCE, &S_JOB_INSTANCE, &S_PUTAWAY_COMMENT, &S_FROM_STOR
_AREA, &S_FROM_STOR_LEV1, &S_FROM_STOR_LEV2, &S_FROM_STOR_LEV3, &S_FROM_STOR_LEV
4, &S_FROM_UOM, &S_STORAGE_AREA, &S_STOR_LEVEL_1, &S_STOR_LEVEL_2, &S_STOR_LEVEL
_3, &S_STOR_LEVEL_4, &S_PUTAWAY_FLAG, &S_RECEIPT_TYPE, &S_PO_ID, &S_INTERUNIT_ID
, &S_INTERUNIT_LINE, &S_SF_KANBAN_ID, &S_INSPECT_STATUS, &S_INSPECTION_ID, &S_LA
ST_PURCH_DATE, &S_NON_OWN_FLAG, &S_PURCH_LOT_ID, &S_VENDOR_ID, &S_STORAGE_CODE,
&S_OPRID, &S_STAGED_TYPE, &S_DISTRIB_TYPE, &S_PO_DT, &S_BUSINESS_UNIT_PO, &S_TRA
NS_SOURCE, &S_CONFIG_CODE, &S_CANCEL_NETTABLE, &S_DT_TIMESTAMP, &S_CONTAINER_TYP
E, &S_SPEEDTYPE_KEY, &S_ACCOUNT, &S_ALTACCT, &S_OPERATING_UNIT, &S_DEPTID, &S_PR
ODUCT, &S_PROJECT_ID, &S_ACTIVITY_ID, &S_RESOURCE_TYPE, &S_RESOURCE_CATEGORY, &S
_RESOURCE_SUB_CAT, &S_ANALYSIS_TYPE, &S_BUSINESS_UNIT_PC, &S_COMBO_VALID_FLG, &S
_CONSIGNED_FLAG);
&SC_BUSINESS_UNIT = &S_BUSINESS_UNIT;
&SC_STAGING_ID = &S_STAGING_ID;
&SC_INV_LOT_ID = &S_INV_LOT_ID;
&SC_CONTAINER_ID = &S_CONTAINER_ID;
&SC_INV_ITEM_ID = &S_INV_ITEM_ID;
&SC_SERIAL_ID = &S_SERIAL_ID;
&SC_RECEIVER_ID = &S_RECEIVER_ID;
&SC_RECV_LN_NBR = &S_RECV_LN_NBR;
&SC_STAGED_NUM = &S_STAGED_NUM;
&SC_SOURCE_BUS_UNIT = &S_SOURCE_BUS_UNIT;
&SC_RECV_SHIP_SEQ_NBR = &S_RECV_SHIP_SEQ_NBR;
&SC_DISTRIB_LINE_NUM = &S_DISTRIB_LINE_NUM;
&SC_DISTRIB_SEQ_NUM = &S_DISTRIB_SEQ_NUM;
SQLExec("select cost_element from sysadm.ps_bu_items_inv where business_un
it=:1 and inv_item_id=:2", &V_BUSINESS_UNIT, &V_INV_ITEM_ID, &SC_COST_ELEMENT);
&SC_ACTUAL_COST = &V_ACTUAL_COST;
&SC_LC_COMP_FLAG = "N";
&SC_PROCESS_INSTANCE = 0;
&SC_JOB_INSTANCE = 0;
GRAVA_STAGED_COST_INV(&SC_BUSINESS_UNIT, &SC_STAGING_ID, &SC_INV_LOT_ID, &
SC_CONTAINER_ID, &SC_INV_ITEM_ID, &SC_SERIAL_ID, &SC_RECEIVER_ID, &SC_RECV_LN_NB
R, &SC_STAGED_NUM, &SC_SOURCE_BUS_UNIT, &SC_RECV_SHIP_SEQ_NBR, &SC_DISTRIB_LINE_
NUM, &SC_DISTRIB_SEQ_NUM, &SC_COST_ELEMENT, &SC_ACTUAL_COST, &SC_LC_COMP_FLAG, &
SC_PROCESS_INSTANCE, &SC_JOB_INSTANCE)
End-While;
SQLExec("update ps_staged_inf_inv set process_flag = 'Y' where business_unit
=:1 and staged_status = '02' and process_flag = 'N' and receiver_id =:2", &P_BUS
INESS_UNIT, &P_RECEIVER_ID);
End-Function;
/*******************************************************************************
******
* Faz as rotinas do processo de Armazenagem estoque
*
* PROCESSO: Home > Controlar Estoque > Armazenar Estoque > Processar >
*
* Armazenagem
*
********************************************************************************
*****/
Function ARMAZENAGEM(&PAR_BUSINESS_UNIT, &PAR_STAGING_ID)
SQLExec("select distinct staging_id from sysadm.ps_staged_item_inv where busi
ness_unit=:1 and staging_id=:2 and putaway_status = '1' and
putaway_flag = 'Y
' and process_flag = 'N'", &PAR_BUSINESS_UNIT, &PAR_STAGING_ID, &EXISTE_STAGINGI
D);
If None(&EXISTE_STAGINGID) Then
Error ("O ID de Armazenagem Temporaria: " | &PAR_STAGING_ID | " no est na li
sta de Processos.");
End-If;
&SQL1 = "select a.business_unit, a.staged_date, a.inv_lot_id, a.inv_item_id,
a.serial_id, a.storage_area, a.stor_level_1, a.stor_level_2, a.stor_level_3, a.s
tor_level_4, a.container_id, a.unit_of_measure, a.qty, a.deptid, a.distrib_type,
a.dt_timestamp, a.receiver_id, a.recv_ln_nbr, a.recv_ship_seq_nbr, a.source_bus
_unit, a.config_code, b.actual_cost from sysadm.ps_staged_item_inv a, sysadm.ps_
staged_cost_inv b where a.business_unit=:1 and a.staging_id=:2 and a.putaway_sta
tus = '1' and a.putaway_flag = 'Y' and a.process_flag = 'N' and a.business_unit
= b.business_unit and a.staging_id = b.staging_id and a.inv_lot_id = b.inv_lot_
id and ";
&SQL2 = " a.container_id = b.container_id and a.inv_item_id = b.inv_item_id a
nd a.serial_id = b.serial_id and a.receiver_id = b.receiver_id and a.recv_ln_nbr
= b.recv_ln_nbr and a.staged_num = b.staged_num and a.source_bus_unit = b.sourc
e_bus_unit and a.recv_ship_seq_nbr = b.recv_ship_seq_nbr and a.distrib_line_num
= b.distrib_line_num and a.distrib_seq_num = b.distrib_seq_num order by a.recei
ver_id, a.recv_ln_nbr";
&SQLCMD = &SQL1 | &SQL2;
&SQL = CreateSQL(&SQLCMD, &PAR_BUSINESS_UNIT, &PAR_STAGING_ID);
While &SQL.Fetch(&V_BUSINESS_UNIT, &V_STAGED_DATE, &V_INV_LOT_ID, &V_INV_ITEM
_ID, &V_SERIAL_ID, &V_STORAGE_AREA, &V_STOR_LEVEL_1, &V_STOR_LEVEL_2, &V_STOR_LE
VEL_3, &V_STOR_LEVEL_4, &V_CONTAINER_ID, &V_UNIT_OF_MEASURE, &V_QTY, &V_DEPTID,
&V_DISTRIB_TYPE, &V_DT_TIMESTAMP, &V_RECEIVER_ID, &V_RECV_LN_NBR, &V_RECV_SHIP_S
EQ_NBR, &V_SOURCE_BUS_UNIT, &V_CONFIG_CODE, &ACTUAL_COST)
&P_BUSINESS_UNIT = &V_BUSINESS_UNIT;
&P_STAGED_DATE = Date3(1900, 1, 1);
&P_INV_LOT_ID = &V_INV_LOT_ID;
&P_INV_ITEM_ID = &V_INV_ITEM_ID;
&P_SERIAL_ID = &V_SERIAL_ID;
&P_STORAGE_AREA = &V_STORAGE_AREA;
&P_STOR_LEVEL_1 = &V_STOR_LEVEL_1;
&P_CONTAINER_ID = &V_CONTAINER_ID;
&P_UNIT_OF_MEASURE = &V_UNIT_OF_MEASURE;
&P_QTY = &V_QTY;
&P_DEPTO = &V_DEPTID;
&P_DISTRIB_TYPE = &V_DISTRIB_TYPE;
&P_DT_TIMESTAMP = %Datetime;
&P_BUSINESS_UNIT_RECV = &V_SOURCE_BUS_UNIT;
&P_RECEIVER_ID = &V_RECEIVER_ID;
&P_RECV_LN_NBR = &V_RECV_LN_NBR;
&P_RECV_SHIP_SEQ_NBR = &V_RECV_SHIP_SEQ_NBR;
SQLExec("select business_unit, nf_brl_id, nf_brl_line_num from sysadm.ps_n
f_ln_brl where business_unit_recv =:1 and receiver_id =:2 and recv_ln_nbr=:3 and
recv_ship_seq_nbr=:4", &P_BUSINESS_UNIT_RECV, &P_RECEIVER_ID, &P_RECV_LN_NBR, &
P_RECV_SHIP_SEQ_NBR, &P_SOURCE_BUS_UNIT, &P_ORDER_NO, &P_ORDER_INT_LINE_NO);
&P_CONFIG_CODE = &V_CONFIG_CODE;
&P_CUSTO = &ACTUAL_COST;
ENTRADA_ESTOQUE(&P_BUSINESS_UNIT, &P_STAGED_DATE, &P_INV_LOT_ID, &P_INV_IT
EM_ID, &P_SERIAL_ID, &P_STORAGE_AREA, &P_STOR_LEVEL_1, &P_STOR_LEVEL_2, &P_STOR_
LEVEL_3, &P_STOR_LEVEL_4, &P_CONTAINER_ID, &P_UNIT_OF_MEASURE, &P_QTY, &P_DEPTO,
&P_DISTRIB_TYPE, &P_DT_TIMESTAMP, &P_BUSINESS_UNIT_RECV, &P_RECEIVER_ID, &P_REC
V_LN_NBR, &P_RECV_SHIP_SEQ_NBR, &P_SOURCE_BUS_UNIT, &P_ORDER_NO, &P_ORDER_INT_LI
NE_NO, &P_CUSTO, &P_CONFIG_CODE, &P_PARAMETRO_OPCIONAL);
End-While;
SQLExec("update sysadm.ps_staged_item_inv set process_flag = 'Y' where busine
ss_unit = :1 and staging_id = :2 and putaway_status = '1' and putaway_flag = 'Y'
and process_flag = 'N'", &PAR_BUSINESS_UNIT, &PAR_STAGING_ID);
End-Function;
Function BAIXA_ESTOQUE(&B_BUSINESS_UNIT, &B_INV_ITEM_ID, &B_INV_LOT_ID, &B_QTD,
&B_UNIT_OF_MEASURE, &B_SERIAL_ID, &B_DT_TIMESTAMP, &B_ORDER_NO, &B_ORDER_INT_LIN
E_NO, &B_TRANSACTION_DATE, &B_STORAGE_AREA, &B_STOR_LEVEL_1, &B_STOR_LEVEL_2, &B
_STOR_LEVEL_3, &B_STOR_LEVEL_4, &B_DEPTID, &B_DISTRIB_TYPE, &B_SHIP_ID, &B_SOURC
E_BUS_UNIT)
If None(&B_ORDER_NO) Or
&B_ORDER_NO = "" Or
&B_ORDER_NO = " " Then
Error ("Erro Funo: BAIXA_ESTOQUE parametro: &B_ORDER_NO est em branco UN: " |
&B_BUSINESS_UNIT | " Item: " | &B_INV_ITEM_ID);
End-If;
If None(&B_ORDER_INT_LINE_NO) Or
&B_ORDER_INT_LINE_NO <= 0 Then
Error ("Erro Funo: BAIXA_ESTOQUE parametro: &B_ORDER_INT_LINE_NO est em branc
o UN: " | &B_BUSINESS_UNIT | " Item: " | &B_INV_ITEM_ID);
End-If;
/************************************ mmcb.hd226465.sn **********************
**************/
SQLExec("SELECT 'Y' AS EXISTE_BU FROM SYSADM.PS_BU_ITEMS_INV WHERE BUSINESS_U
NIT = :1 AND INV_ITEM_ID = :2 AND ITM_STATUS_CURRENT = '1' AND ITM_STATUS_EFFDT
<= TRUNC(SYSDATE)", &B_BUSINESS_UNIT, &B_INV_ITEM_ID, &EXISTE_BU);
Error ("O item " | &B_INV_ITEM_ID | " no esta cadastrado na UN de estoque "
| &B_BUSINESS_UNIT | "! Favor verificar a tela Home > Manter Itens > Definir It
ens > Usar > Definio do Item da UN.");
End-If;
/************************************ mmcb.hd226465.en **********************
**************/
SQLExec("select qty - QTY_RESERVED FROM sysadm.ps_physical_inv where business
_unit = :1 and inv_item_id = :2 and inv_lot_id = :3 and serial_id = :4 and stora
ge_area = :5 and stor_level_1 = :6 and stor_level_2 = :7 and stor_level_3= :8 an
d stor_level_4 = :9", &B_BUSINESS_UNIT, &B_INV_ITEM_ID, &B_INV_LOT_ID, &B_SERIA
L_ID, &B_STORAGE_AREA, &B_STOR_LEVEL_1, &B_STOR_LEVEL_2, &B_STOR_LEVEL_3, &B_STO
R_LEVEL_4, &V_QTD_DISPONIVEL);
If &V_QTD_DISPONIVEL < &B_QTD Then
Error ("No existe Saldo em Estoque suficiente para Item: " | &B_INV_ITEM_ID
| " Endereo: " | &B_STORAGE_AREA | " - " | &B_STOR_LEVEL_1 | " - " | &B_STOR_LEV
EL_2 | " - " | &B_STOR_LEVEL_3);
End-If;
SQLExec("update sysadm.ps_physical_inv set last_transact_type = '030', last_i
ssue_date = to_date(sysdate), qty = qty - :1, qty_base = qty_base - :2, dt_times
tamp = to_date(sysdate) where business_unit = :3 and inv_item_id = :4 and inv_lo
t_id = :5 and serial_id = :6 and storage_area = :7 and stor_level_1 = :8 and sto
r_level_2 = :9 and stor_level_3 = :10 and stor_level_4 = :11", &B_QTD, &B_QTD, &
B_BUSINESS_UNIT, &B_INV_ITEM_ID, &B_INV_LOT_ID, &B_SERIAL_ID, &B_STORAGE_AREA, &
B_STOR_LEVEL_1, &B_STOR_LEVEL_2, &B_STOR_LEVEL_3, &B_STOR_LEVEL_4);
&PAR_BUSINESS_UNIT = &B_BUSINESS_UNIT;
&PAR_INV_ITEM_ID = &B_INV_ITEM_ID;
&PAR_DT_TIMESTAMP = &B_DT_TIMESTAMP;
&PAR_SEQ_NBR = max_seqnbr_transaction(&B_BUSINESS_UNIT, &B_INV_ITEM_ID, &B_DT
_TIMESTAMP);
&PAR_SOURCE_BUS_UNIT = &B_SOURCE_BUS_UNIT;
&PAR_ORDER_NO = &B_ORDER_NO;
&PAR_ORDER_INT_LINE_NO = &B_ORDER_INT_LINE_NO;
&PAR_SCHED_LINE_NO = &B_ORDER_INT_LINE_NO;
&PAR_DEMAND_LINE_NO = &B_ORDER_INT_LINE_NO;
&PAR_INV_LOT_ID = &B_INV_LOT_ID;
&PAR_SERIAL_ID = &B_SERIAL_ID;
&PAR_STORAGE_AREA = &B_STORAGE_AREA;
&PAR_STOR_LEVEL_1 = &B_STOR_LEVEL_1;
&PAR_RECEIVER_ID = " ";
&PAR_RECV_LN_NBR = 0;
&PAR_TRANSACTION_DATE = &B_TRANSACTION_DATE;
&PAR_QTY_BASE = &B_QTD;
&PAR_QTY = &B_QTD;
&PAR_UNIT_MEASURE_STD = &B_UNIT_OF_MEASURE;
&PAR_UNIT_OF_MEASURE = &B_UNIT_OF_MEASURE;
&PAR_ACCOUNT = " ";
&PAR_DEPTID = &B_DEPTID;
&PAR_PO_ID = " ";

&PAR_PRICE_PO = 0;
&PAR_STAGED_TYPE = " ";
&PAR_DISTRIB_TYPE = &B_DISTRIB_TYPE;
&PAR_SHIP_ID = &B_SHIP_ID;
GRAVA_TRANSACTION(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_DT_TIMESTAMP, &P
AR_SEQ_NBR, &PAR_SOURCE_BUS_UNIT, &PAR_ORDER_NO, &PAR_ORDER_INT_LINE_NO, &PAR_SC
HED_LINE_NO, &PAR_DEMAND_LINE_NO, &PAR_STAGED_DATE, &PAR_INV_LOT_ID, &PAR_SERIAL
_ID, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1, &PAR_STOR_LEVEL_2, &PAR_STOR_LEVEL_3,
&PAR_STOR_LEVEL_4, &PAR_RECEIVER_ID, &PAR_RECV_LN_NBR, &PAR_TRANSACTION_GROUP,
&PAR_TRANSACTION_DATE, &PAR_QTY_BASE, &PAR_QTY, &PAR_UNIT_MEASURE_STD, &PAR_UNIT
_OF_MEASURE, &PAR_OPRID, &PAR_ACCOUNT, &PAR_DEPTID, &PAR_PO_ID, &PAR_DISTRIB_LIN
E_NUM, &PAR_DISTRIB_SEQ_NUM, &PAR_RECV_SHIP_SEQ_NBR, &PAR_PRICE_PO, &PAR_ANALYSI
S_TYPE, &PAR_VENDOR_ID, &PAR_STAGED_TYPE, &PAR_DISTRIB_TYPE, &PAR_BUSINESS_UNIT_
PO, &PAR_TRANSACTION_SOURCE, &PAR_CONVERSION_RATE, &PAR_PROCESS_INSTANCE, &PAR_P
ROCESS_FLAG, &PAR_SHIP_ID);
SQLExec("update sysadm.ps_bu_items_inv set qty_available = qty_available - :1
, qty_owned = qty_owned - :2, qty_onhand = qty_onhand - :3, dt_timestamp = sysd
ate, last_order = :4, last_order_date = sysdate where business_unit=:5 and inv_i
tem_id=:6 ", &B_QTD, &B_QTD, &B_QTD, &B_ORDER_NO, &B_BUSINESS_UNIT, &B_INV_ITEM_
ID);
End-Function;
[MMC_IN_LIB.TO_STORAGE_AREA.SavePostChange]
/*******************************************************************************
*****
* Wagner Sorio - MMC - 21/07/2010 - mmcb.sds3346 - Cancela Reserva Automatica
*
* Funo para Fazer Transferencia entre Area Estoque
*
********************************************************************************
*****/
/******************************** mmcb.sds3346.SN ******************************
****/
Function TRANSFE_ENTRE_AREAS_ESTOQUE(&P_SETID, &P_BUSINESS_UNIT, &P_INV_ITEM_ID,
&P_QTY_SOLICITADA, &P_FROM_STORAGE_AREA, &P_FROM_STOR_LEVEL_1, &P_FROM_STOR_LEV
EL_2, &P_FROM_STOR_LEVEL_3, &P_FROM_STOR_LEVEL_4, &P_TO_STORAGE_AREA, &P_TO_STOR
_LEVEL_1, &P_TO_STOR_LEVEL_2, &P_TO_STOR_LEVEL_3, &P_TO_STOR_LEVEL_4, &OUT_STATU
S_TRANSFERENCIA, &OUT_MMC_TRAN_BU, &OUT_MMC_TRAN_ITEM, &OUT_MMC_TRAN_TIMESTAMP,
&OUT_MMC_TRAN_SEQ_NBR)
&OUT_STATUS_TRANSFERENCIA = "ERRO";
If None(&P_BUSINESS_UNIT) Then
Error ("Erro na funo: TRANSFE_ENTRE_AREAS_ESTOQUE o parametro: &P_BUSINESS_U
NIT est em branco.");
End-If;
If None(&P_INV_ITEM_ID) Then
Error ("Erro na funo: TRANSFE_ENTRE_AREAS_ESTOQUE o parametro: &P_INV_ITEM_I
D est em branco.");
End-If;
If None(&P_QTY_SOLICITADA) Then
Error ("Erro na funo: TRANSFE_ENTRE_AREAS_ESTOQUE o parametro: &P_QTY_SOLICI
TADA est em branco.");
End-If;
If None(&P_FROM_STORAGE_AREA) Then
Error ("Erro na funo: TRANSFE_ENTRE_AREAS_ESTOQUE o parametro: &P_FROM_STORA
GE_AREA est em branco.");
End-If;
If None(&P_FROM_STOR_LEVEL_1) Then
Error ("Erro na funo: TRANSFE_ENTRE_AREAS_ESTOQUE o parametro: &P_FROM_STOR_
LEVEL_1 est em branco.");
End-If;
End-If;
End-If;
End-If;
If None(&P_TO_STORAGE_AREA) Then
Error ("Erro na funo: TRANSFE_ENTRE_AREAS_ESTOQUE o parametro: &P_TO_STORAGE
_AREA est em branco.");
End-If;
If None(&P_TO_STOR_LEVEL_1) Then
Error ("Erro na funo: TRANSFE_ENTRE_AREAS_ESTOQUE o parametro: &P_TO_STOR_LE
VEL_1 est em branco.");
End-If;
End-If;
End-If;
End-If;
If &P_QTY_SOLICITADA <= 0 Then
Error ("Erro QTD do endereo de Origem: " | &P_BUSINESS_UNIT | " - " | &P_IN
V_ITEM_ID | " - " | &P_FROM_STORAGE_AREA | " - " | &P_FROM_STOR_LEVEL_1 | " - "
| &P_FROM_STOR_LEVEL_2 | " - " | &P_FROM_STOR_LEVEL_3 | " - " | &P_FROM_STOR_LEV
EL_4 | " no pode ser nenor ou igual a zero.");
End-If;
If &P_FROM_STORAGE_AREA = &P_TO_STORAGE_AREA And
&P_FROM_STOR_LEVEL_1 = &P_TO_STOR_LEVEL_1 And
&P_FROM_STOR_LEVEL_4 = &P_TO_STOR_LEVEL_4 Then
Error ("Erro durante Transferencia do Item: " | &P_BUSINESS_UNIT | " - " |
&P_INV_ITEM_ID | " endereo de origem e destino so iguais.");
End-If;
&ITEM_EXISTE_FLAG = "N";
&SQL
&SQL
&SQL
&SQL
&SQL
=
=
=
=
=
"";
&SQL
&SQL
&SQL
&SQL
|
|
|
|
" SELECT 'Y'

"
FROM SYSADM.PS_BU_ITEMS_INV
" WHERE BUSINESS_UNIT
= :1
"
AND INV_ITEM_ID
= :2
";
";
";
";
SQLExec(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &ITEM_EXISTE_FLAG);

If &ITEM_EXISTE_FLAG <> "Y" Then
Error ("Erro: Item " | &P_INV_ITEM_ID | " no cadastrada para Unidade de Neg
ocio: " | &P_BUSINESS_UNIT | ".");
End-If;
&AREA_ORIGEM_EXISTE_FLAG = "N";
&SQL = "";
&SQL = &SQL | " SELECT DISTINCT 'Y'
&SQL = &SQL | "
FROM SYSADM.PS_PHYSICAL_INV
&SQL = &SQL | " WHERE BUSINESS_UNIT
&SQL = &SQL | "
AND INV_ITEM_ID
&SQL = &SQL | "
AND STORAGE_AREA
&SQL = &SQL | "
AND STOR_LEVEL_1
&SQL = &SQL | "
AND STOR_LEVEL_2
&SQL = &SQL | "
AND STOR_LEVEL_3
&SQL = &SQL | "
AND STOR_LEVEL_4
=
=
=
=
=
=
=
:1
:2
:3
:4
:5
:6
:7
";
";
";
";
";
";
";
";
";
SQLExec(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_FROM_STORAGE_AREA, &P_FROM

_STOR_LEVEL_1, &P_FROM_STOR_LEVEL_2, &P_FROM_STOR_LEVEL_3, &P_FROM_STOR_LEVEL_4,
&AREA_ORIGEM_EXISTE_FLAG);
If &AREA_ORIGEM_EXISTE_FLAG <> "Y" Then
Error ("Erro: Item " | &P_BUSINESS_UNIT | " - " | &P_INV_ITEM_ID | " no exi
ste no endereo: " | &P_FROM_STORAGE_AREA | " - " | &P_FROM_STOR_LEVEL_1 | " - " |
&P_FROM_STOR_LEVEL_2 | " - " | &P_FROM_STOR_LEVEL_3 | " - " | &P_FROM_STOR_LEVE
L_4 | " de origem.");

End-If;
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
"";
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
" SELECT
";
"
PI.INV_LOT_ID
"
, PI.SERIAL_ID
"
, PI.UNIT_OF_MEASURE
"
, PI.QTY
"
, PI.QTY_RESERVED
"
, SLI.NETTABLE_FLG
"
, SLI.WIP_LOC_FLG
" FROM SYSADM.PS_PHYSICAL_INV PI,
"
SYSADM.PS_STOR_LOC_INV SLI
" WHERE PI.BUSINESS_UNIT
=
"
AND PI.INV_ITEM_ID
=
"
AND PI.STORAGE_AREA
=
"
AND PI.STOR_LEVEL_1
=
"
AND PI.STOR_LEVEL_2
=
"
AND PI.STOR_LEVEL_3
=
"
AND PI.STOR_LEVEL_4
=
"
AND PI.BUSINESS_UNIT
=
"
AND PI.STORAGE_AREA
=
"
AND PI.STOR_LEVEL_1
=
"
AND PI.STOR_LEVEL_2
=
"
AND PI.STOR_LEVEL_3
=
"
AND PI.STOR_LEVEL_4
=
"
AND PI.QTY - PI.QTY_RESERVED
>
";
";
";
";
";
";
";
:1
:2
:3
:4
:5
:6
:7
SLI.BUSINESS_UNIT
SLI.STORAGE_AREA
SLI.STOR_LEVEL_1
SLI.STOR_LEVEL_2
SLI.STOR_LEVEL_3
SLI.STOR_LEVEL_4
0
";
";
";
";
";
";
";
";
";
";
";
";
";
";
";
";
&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_FROM_STORAGE_

AREA, &P_FROM_STOR_LEVEL_1, &P_FROM_STOR_LEVEL_2, &P_FROM_STOR_LEVEL_3, &P_FROM_
STOR_LEVEL_4);
&sqlStmt.Fetch(&E_ORIG_INV_LOT_ID, &E_ORIG_SERIAL_ID, &E_ORIG_UNIT_OF_MEASURE
, &E_ORIG_QTY, &E_ORIG_QTY_RESERVED, &E_ORIG_NETTABLE_FLG, &E_ORIG_WIP_LOC_FLG);
&sqlStmt.Close();
If &E_ORIG_QTY < 0 Then
Error ("Quantidade do endereo Origem: " | &P_BUSINESS_UNIT | " - " | &P_INV
_ITEM_ID | " - " | &P_FROM_STORAGE_AREA | " - " | &P_FROM_STOR_LEVEL_1 | " - " |
&P_FROM_STOR_LEVEL_2 | " - " | &P_FROM_STOR_LEVEL_3 | " - " | &P_FROM_STOR_LEVE
L_4 | " est negativa.");
End-If;
If &E_ORIG_QTY_RESERVED < 0 Then
Error ("Quantidade reservada do endereo Origem: " | &P_BUSINESS_UNIT | " " | &P_INV_ITEM_ID | " - " | &P_FROM_STORAGE_AREA | " - " | &P_FROM_STOR_LEVEL_1
| " - " | &P_FROM_STOR_LEVEL_2 | " - " | &P_FROM_STOR_LEVEL_3 | " - " | &P_FROM
_STOR_LEVEL_4 | " est negativa.");
End-If;
&E_ORIG_QTY_DISPONIVEL = &E_ORIG_QTY - &E_ORIG_QTY_RESERVED;
If &P_QTY_SOLICITADA > &E_ORIG_QTY_DISPONIVEL Then
Error ("Quantidade disponivel do endereo Origem: " | &P_BUSINESS_UNIT | " " | &P_INV_ITEM_ID | " - " | &P_FROM_STORAGE_AREA | " - " | &P_FROM_STOR_LEVEL_
1 | " - " | &P_FROM_STOR_LEVEL_2 | " - " | &P_FROM_STOR_LEVEL_3 | " - " | &P_FRO
M_STOR_LEVEL_4 | ": " | &E_ORIG_QTY_DISPONIVEL | " menor que a quantidade solici
tada: " | &P_QTY_SOLICITADA | ".");

End-If;
If &E_ORIG_INV_LOT_ID <> "NONE" Then
Error ("Erro: No possivel fazer a Transferncia para o Item: " | &P_BUSINESS_
UNIT | " - " | &P_INV_ITEM_ID | ". Por que ele controlado por Lote");
End-If;
If &E_ORIG_SERIAL_ID <> "NONE" Then
Error ("Erro: No possivel fazer a Transferncia para o Item: " | &P_BUSINESS_
UNIT | " - " | &P_INV_ITEM_ID | ". Por que ele controlado por Serie");
End-If;
REM *************************************************************************
********************;
REM ! Checa se a quantidade disponvel maior que a quantidade requisitada
;
REM ! e transfere todo o saldo disponvel para as reas destinadas.
;
REM *************************************************************************
********************;
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
=
=
=
=
=
=
=
=
"";
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
|
|
|
|
|
|
|
" SELECT BII.QTY_AVAILABLE

"
, BII.QTY_OWNED
"
, BII.QTY_RESERVED
" FROM SYSADM.PS_BU_ITEMS_INV BII
" WHERE BII.BUSINESS_UNIT
= :1
"
AND BII.INV_ITEM_ID
= :2
"
AND (BII.QTY_ONHAND - BII.QTY_RESERVED) > 0
";
";
";
";
";
";
";
&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID);

&sqlStmt.Fetch(&BU_QTY_AVAILABLE, &BU_QTY_OWNED, &BU_QTY_RESERVED);
&sqlStmt.Close();
REM *************************************************************************
********************;
REM ! Essa lgica foi feita porque quando tentamos transferir itens de uma rea
;
REM ! que no aceita reserva, a quantidade disponvel nunca a real, pois a
;
REM ! quantidade que fica em reas que no aceitam reservas no ficam disponveis
;
REM ! no estoque.
;
REM *************************************************************************
********************;
REM *************************************************************************
********************;
REM ! Para sabermos a quantidade REAL disponivel no estoque, sem a mesma esta
r reservada
;
REM ! precisamos subtrair da quantidade propria a quantidade reservada, com i
sso temos
;
REM ! o saldo REAL do estoque, mesmo esta pea estando em reas que no aceitam res
erva.
;
REM *************************************************************************
********************;
&QTY_DISPONIVEL = 0;
If &BU_QTY_OWNED > &BU_QTY_RESERVED Then
&QTY_DISPONIVEL = &BU_QTY_OWNED - &BU_QTY_RESERVED;
End-If;
REM *************************************************************************
********************;
REM ! Aqui temos um caso onde temos item em rea que no aceita reserva, pois a q
uantidade
;
REM ! disponivel na BU_ITEMS_INV est menor que a quantidade disponvel REAL.
;
REM *************************************************************************
********************;
If &BU_QTY_AVAILABLE < &QTY_DISPONIVEL Then
&BU_QTY_AVAILABLE = &QTY_DISPONIVEL;
End-If;
REM *************************************************************************
********************;
REM ! Se a quantidade da BU for menor ou igual a zero, devemos abandonar
;
REM ! o loop mesmo se existirem quantidades na PHYSICAL, pois estas quantidad
es
;
REM ! j esto alocadas.
;
REM *************************************************************************
********************;
If &BU_QTY_AVAILABLE <= 0 Then
Error ("Erro: No existe saldo na Unidade Negocio: " | &P_BUSINESS_UNIT | "
disponivel para transferir o Item: " | &P_INV_ITEM_ID | ".");
End-If;
If &P_QTY_SOLICITADA > &BU_QTY_AVAILABLE Then
Error ("Erro: No existe saldo na Unidade Negocio: " | &P_BUSINESS_UNIT | "
disponivel para transferir o Item: " | &P_INV_ITEM_ID | ".");
End-If;
&EXISTE_AREAPHYSICAL_DESTINO = "N";
&SQL = "";
&SQL = &SQL | " SELECT DISTINCT 'Y'
&SQL = &SQL | "
FROM SYSADM.PS_PHYSICAL_INV PI_E
&SQL = &SQL | " WHERE PI_E.BUSINESS_UNIT
= :1
&SQL = &SQL | "
AND PI_E.INV_ITEM_ID
= :2
";
";
";
";
&SQL
&SQL
&SQL
&SQL
&SQL
=
=
=
=
=
&SQL
&SQL
&SQL
&SQL
&SQL
|
|
|
|
|
"
"
"
"
"
AND
AND
AND
AND
AND
PI_E.STORAGE_AREA
PI_E.STOR_LEVEL_1
PI_E.STOR_LEVEL_2
PI_E.STOR_LEVEL_3
PI_E.STOR_LEVEL_4
=
=
=
=
=
:3
:4
:5
:6
:7
";
";
";
";
";
&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_TO_STORAGE_AR

EA, &P_TO_STOR_LEVEL_1, &P_TO_STOR_LEVEL_2, &P_TO_STOR_LEVEL_3, &P_TO_STOR_LEVEL
_4);
&sqlStmt.Fetch(&EXISTE_AREAPHYSICAL_DESTINO);
&sqlStmt.Close();
&EXISTE_LOCACAO_DESTINO
&SQL = "";
&SQL = &SQL | " SELECT
&SQL = &SQL | "
&SQL = &SQL | "
&SQL = &SQL | "
&SQL = &SQL | "
&SQL = &SQL | "
&SQL = &SQL | "
&SQL = &SQL | "
FROM
&SQL = &SQL | " WHERE
&SQL = &SQL | "
AND
&SQL = &SQL | "
AND
&SQL = &SQL | "
AND
&SQL = &SQL | "
AND
&SQL = &SQL | "
AND
= "N";
'Y'
, SLI_E.SUSPEND_FLG
, SLI_E.PHYS_CYC_INV_FLG
, SLI_E.NETTABLE_FLG
, SLI_E.WIP_LOC_FLG
, SLI_E.INSPECT_FLG
, SLI_E.DELETE_STORLOC_FLG
SYSADM.PS_STOR_LOC_INV SLI_E
SLI_E.BUSINESS_UNIT
SLI_E.STORAGE_AREA
SLI_E.STOR_LEVEL_1
SLI_E.STOR_LEVEL_2
SLI_E.STOR_LEVEL_3
SLI_E.STOR_LEVEL_4
=
=
=
=
=
=
:1
:2
:3
:4
:5
:6
";
";
";
";
";
";
";
";
";
";
";
";
";
";
&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_TO_STORAGE_AREA, &P_TO_STOR_L

EVEL_1, &P_TO_STOR_LEVEL_2, &P_TO_STOR_LEVEL_3, &P_TO_STOR_LEVEL_4);
&sqlStmt.Fetch(&EXISTE_LOCACAO_DESTINO, &E_DEST_SUSPEND_FLG, &E_DEST_PHYS_CYC
_INV_FLG, &E_DEST_NETTABLE_FLG, &E_DEST_WIP_LOC_FLG, &E_DEST_INSPECT_FLG, &E_DES
T_DELETE_STORLOC_FLG);
&sqlStmt.Close();
If &EXISTE_LOCACAO_DESTINO <> "Y" Then
Error ("Locao de Destino: " | &P_BUSINESS_UNIT | " - " | &P_TO_STORAGE_AREA
| " - " | &P_TO_STOR_LEVEL_1 | " - " | &P_TO_STOR_LEVEL_2 | " - " | &P_TO_STOR_L
EVEL_3 | " - " | &P_TO_STOR_LEVEL_4 | " no est cadastrada.");
End-If;
If &E_DEST_SUSPEND_FLG = "Y" Then
EVEL_3 | " - " | &P_TO_STOR_LEVEL_4 | " est suspensa.");
End-If;
If &E_DEST_PHYS_CYC_INV_FLG = "Y" Then
EVEL_3 | " - " | &P_TO_STOR_LEVEL_4 | " est em contagem cclica.");
End-If;
If &E_DEST_INSPECT_FLG = "Y" Then

EVEL_3 | " - " | &P_TO_STOR_LEVEL_4 | " est em inspeo.");
End-If;
If &E_DEST_DELETE_STORLOC_FLG = "Y" Then
EVEL_3 | " - " | &P_TO_STOR_LEVEL_4 | " est fechada.");
End-If;
REM *************************************************************************
********************;
REM ! Insere ou Atualiza Saldo na PHYSICAL_INV
;
REM *************************************************************************
********************;
REM *************************************************************************
********************;
REM ! Baixando Saldo na Origem
;
REM *************************************************************************
********************;
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
=
=
=
=
=
=
=
=
=
=
=
"";
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
|
|
|
|
|
|
|
|
|
|
" UPDATE SYSADM.PS_PHYSICAL_INV

"
SET QTY
"
, QTY_BASE
" WHERE BUSINESS_UNIT
"
AND INV_ITEM_ID
"
AND STORAGE_AREA
"
AND STOR_LEVEL_1
"
AND STOR_LEVEL_2
"
AND STOR_LEVEL_3
"
AND STOR_LEVEL_4
=
=
=
=
=
=
=
=
=
QTY
QTY_BASE -
:1
:2
:3
:4
:5
:6
:7
:8
:9
";
";
";
";
";
";
";
";
";
";
&sqlStmt = CreateSQL(&SQL, &P_QTY_SOLICITADA, &P_QTY_SOLICITADA, &P_BUSINESS_

UNIT, &P_INV_ITEM_ID, &P_FROM_STORAGE_AREA, &P_FROM_STOR_LEVEL_1, &P_FROM_STOR_L
EVEL_2, &P_FROM_STOR_LEVEL_3, &P_FROM_STOR_LEVEL_4);
&sqlStmt.Close();
&SQL = "";
&SQL = &SQL | " SELECT A.QTY - A.QTY_RESERVED
";
&SQL = &SQL | "
FROM PS_PHYSICAL_INV A
";
&SQL = &SQL | "
WHERE A.BUSINESS_UNIT
= :1
";
&SQL = &SQL | "
AND A.INV_ITEM_ID
= :2
";
&SQL = &SQL | "
AND A.STORAGE_AREA
= :3
";
&SQL = &SQL | "
AND A.STOR_LEVEL_1
= :4
";
&SQL = &SQL | "
AND A.STOR_LEVEL_2
= :5
";
&SQL = &SQL | "
AND A.STOR_LEVEL_3
= :6
";
&SQL = &SQL | "
AND A.STOR_LEVEL_4
= :7
";
&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_FROM_STORAGE_
AREA, &P_FROM_STOR_LEVEL_1, &P_FROM_STOR_LEVEL_2, &P_FROM_STOR_LEVEL_3, &P_FROM_

STOR_LEVEL_4);
&sqlStmt.Fetch(&QTY_DISPO_APOS_UPDATE);
&sqlStmt.Close();
If &QTY_DISPO_APOS_UPDATE < 0 Then
Error ("Saldo do endereo Origem: " | &P_BUSINESS_UNIT | " - " | &P_INV_ITEM
_ID | " - " | &P_FROM_STORAGE_AREA | " - " | &P_FROM_STOR_LEVEL_1 | " - " | &P_F
ROM_STOR_LEVEL_2 | " - " | &P_FROM_STOR_LEVEL_3 | " - " | &P_FROM_STOR_LEVEL_4 |
" ficar negativa apos a transferencia.");
End-If;
REM *************************************************************************
********************;
REM ! Aumentando Saldo no Destino
;
REM *************************************************************************
********************;
If &EXISTE_AREAPHYSICAL_DESTINO = "Y" Then
&SQL = "";
&SQL = &SQL | " UPDATE SYSADM.PS_PHYSICAL_INV
";
&SQL = &SQL | "
SET QTY
QTY
+ :1
QTY_BASE
+ :2
";
&SQL = &SQL | "
, QTY_BASE
";
&SQL = &SQL | "
WHERE BUSINESS_UNIT
:3
&SQL = &SQL | "
AND INV_ITEM_ID
:4
&SQL = &SQL | "
AND STORAGE_AREA
:5
&SQL = &SQL | "
AND STOR_LEVEL_1
:6
&SQL = &SQL | "
AND STOR_LEVEL_2
:7
&SQL = &SQL | "
AND STOR_LEVEL_3
:8
&SQL = &SQL | "
AND STOR_LEVEL_4
:9
";
";
";
";
";
";
";
&sqlStmt = CreateSQL(&SQL, &P_QTY_SOLICITADA, &P_QTY_SOLICITADA, &P_BUSINE
SS_UNIT, &P_INV_ITEM_ID, &P_TO_STORAGE_AREA, &P_TO_STOR_LEVEL_1, &P_TO_STOR_LEVE
L_2, &P_TO_STOR_LEVEL_3, &P_TO_STOR_LEVEL_4);
&sqlStmt.Close();
Else
&REC_PHYSICAL_INV.BUSINESS_UNIT.VALUE = &P_BUSINESS_UNIT;
&REC_PHYSICAL_INV.STAGED_DATE.VALUE = Date3(1900, 1, 1);
&REC_PHYSICAL_INV.INV_LOT_ID.VALUE = "NONE";
&REC_PHYSICAL_INV.INV_ITEM_ID.VALUE = &P_INV_ITEM_ID;
&REC_PHYSICAL_INV.SERIAL_ID.VALUE = "NONE";
&REC_PHYSICAL_INV.STORAGE_AREA.VALUE = &P_TO_STORAGE_AREA;
&REC_PHYSICAL_INV.STOR_LEVEL_1.VALUE = &P_TO_STOR_LEVEL_1;
&REC_PHYSICAL_INV.CONTAINER_ID.VALUE = " ";
&REC_PHYSICAL_INV.UNIT_OF_MEASURE.VALUE = &E_ORIG_UNIT_OF_MEASURE;
&REC_PHYSICAL_INV.LAST_TRANSACT_TYPE.VALUE = "060";
&REC_PHYSICAL_INV.QTY.VALUE = &P_QTY_SOLICITADA;
&REC_PHYSICAL_INV.QTY_RESERVED.VALUE = 0;
&REC_PHYSICAL_INV.QTY_BASE.VALUE = &P_QTY_SOLICITADA;
&REC_PHYSICAL_INV.QTY_RESERVED_BASE.VALUE = 0;
&REC_PHYSICAL_INV.AVAIL_STATUS.VALUE = "1";
&REC_PHYSICAL_INV.AVAIL_STATUS_TYPE.VALUE = " ";
&REC_PHYSICAL_INV.REASON_CD.VALUE = " ";
&REC_PHYSICAL_INV.DESCR254.VALUE = " ";
&sqlStmt = CreateSQL("%INSERT(:1)");
&sqlStmt.Execute(&REC_PHYSICAL_INV);
&sqlStmt.Close();
End-If;
&QTY_AVAILABLE = 0;
&QTY_RESERVED = 0;
/****************************************************************************
************************************/
/****************************************************************************
************************************/
/****************************************************************************
************************************/
REM
REM
REM
REM
******************************************;
! rea que aceita reserva.
;
! Regra 01
;
******************************************;
If &E_ORIG_WIP_LOC_FLG = "N" And

&E_ORIG_NETTABLE_FLG = "Y" Then
REM ******************************************;
REM ! WIP / Aceita reserva.
;
REM ******************************************;
If &E_DEST_WIP_LOC_FLG = "Y" And
&E_DEST_NETTABLE_FLG = "Y" Then
REM ! SOMA QUANTIDADE DISPONVEL / SOMA QUANTIDADE RESERVADA. ;
&QTY_AVAILABLE = &P_QTY_SOLICITADA;
&QTY_RESERVED = &P_QTY_SOLICITADA * - 1;
End-If;
REM ******************************************;
REM ! WIP / No aceita reserva.
;
REM ******************************************;

&E_DEST_NETTABLE_FLG = "N" Then
REM ! Subtrai quantidade disponvel. ;
&QTY_RESERVED = 0;
End-If;
REM ******************************************;
REM ! Aceita reserva.
;
REM ******************************************;
If &E_DEST_WIP_LOC_FLG = "N" And
REM ! Soma quantidade disponvel ;
&QTY_RESERVED = 0;
End-If;
End-If;
/****************************************************************************
************************************/
/****************************************************************************
************************************/
/****************************************************************************
************************************/
REM
REM
REM
REM
******************************************;
! rea que no aceita reserva.
;
! Regra 02
;
******************************************;
If &E_ORIG_WIP_LOC_FLG = "N" And

&E_ORIG_NETTABLE_FLG = "N" Then
REM ******************************************;
;
REM ******************************************;
&QTY_AVAILABLE = 0;
End-If;
REM ******************************************;
;
REM ******************************************;
REM NO FAZ NADA ;

End-If;
REM ******************************************;
;
REM ******************************************;
&QTY_AVAILABLE = &P_QTY_SOLICITADA * - 1;
&QTY_RESERVED = 0;
End-If;
End-If;
/****************************************************************************
************************************/
/****************************************************************************
************************************/
/****************************************************************************
************************************/
REM
REM
REM
REM
******************************************;
! rea WIP que aceita reserva.
;
! Regra 03
;
******************************************;
If &E_ORIG_WIP_LOC_FLG = "Y" And

&E_ORIG_NETTABLE_FLG = "Y" Then
REM ******************************************;
;
REM ******************************************;
REM ! Soma quantidade disponvel / subtrai quantidade reservada.
&QTY_RESERVED = &P_QTY_SOLICITADA;
End-If;
REM ******************************************;
;
REM ******************************************;
REM ! Subtrai quantidade reservada.
&QTY_AVAILABLE = 0;
End-If;
REM ******************************************;
REM ! No aceita reserva.
;
REM ******************************************;
REM ! Subtrai quantidade reservada.
&QTY_AVAILABLE = 0;
End-If;
End-If;
/****************************************************************************
************************************/
/****************************************************************************
************************************/
/****************************************************************************
************************************/
REM ******************************************;
REM ! rea WIP que no aceita reserva.
;
REM ! Regra 04
;
REM ******************************************;
If &E_ORIG_WIP_LOC_FLG = "Y" And
&E_ORIG_NETTABLE_FLG = "N" Then
REM ******************************************;
;
REM ******************************************;
REM ! Soma quantidade reservada. ;
&QTY_AVAILABLE = 0;
End-If;
REM ******************************************;
REM ! No aceita reserva.
;
REM ******************************************;
REM ! No faz nada. ;
End-If;
REM ******************************************;
;
REM ******************************************;
REM ! Soma quantidade disponivel. ;
&QTY_RESERVED = 0;
End-If;
End-If;
/****************************************************************************
************************************/
/****************************************************************************
************************************/
/****************************************************************************
************************************/
If &QTY_AVAILABLE <> 0 Or
&QTY_RESERVED <> 0 Then
,
,
&SQL
&SQL
";
&SQL
";
&SQL
";
&SQL
";
&SQL
";
&SQL
";
= "";
= &SQL | " UPDATE SYSADM.PS_BU_ITEMS_INV
= &SQL | "
SET QTY_AVAILABLE
= QTY_AVAILABLE -
:1
:2
= &SQL | "
QTY_RESERVED
= QTY_RESERVED
= &SQL | "
DT_TIMESTAMP
= SYSDATE
= &SQL | "
WHERE BUSINESS_UNIT
:3
= &SQL | "
AND INV_ITEM_ID
:4
&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &QTY_AVAILABL

E, &QTY_RESERVED);
&sqlStmt.Close();
End-If;
&SQL = "";
&SQL = &SQL | " SELECT MIT.UNIT_MEASURE_STD
&SQL = &SQL | "
FROM SYSADM.PS_MASTER_ITEM_TBL MIT
&SQL = &SQL | " WHERE MIT.SETID
&SQL = &SQL | "
AND MIT.INV_ITEM_ID
&sqlStmt = CreateSQL(&SQL, &P_SETID, &P_INV_ITEM_ID);
&sqlStmt.Fetch(&UNIT_MEASURE_STD);
&sqlStmt.Close();
= :1
= :2
";
";
";
";
&TRANS_DT_TIMESTAMP = %Datetime;
&SQL = "";
&SQL = &SQL | " SELECT CASE WHEN MAX(TI.SEQ_NBR) IS NULL THEN 1 ELSE MAX(TI.
SEQ_NBR) + 1 END ";

&SQL = &SQL | "
FROM SYSADM.PS_TRANSACTION_INV TI
";
&SQL = &SQL | " WHERE TI.BUSINESS_UNIT
";
&SQL = &SQL | "
AND TI.INV_ITEM_ID
";
&SQL = &SQL | "
AND TI.DT_TIMESTAMP
";
= :1
= :2
= %DateTimeIn(:3)
&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &TRANS_DT_TIMEST

AMP);
&sqlStmt.Fetch(&TRANS_SEQ_NBR);
&sqlStmt.Close();
If None(&TRANS_SEQ_NBR) Or
&TRANS_SEQ_NBR <= 0 Then
&TRANS_SEQ_NBR = 1;
End-If;
&REC_TRAN = CreateRecord(Record.TRANSACTION_INV);
&REC_TRAN.BUSINESS_UNIT.Value = &P_BUSINESS_UNIT;
&REC_TRAN.INV_ITEM_ID.Value = &P_INV_ITEM_ID;
&REC_TRAN.DT_TIMESTAMP.Value = &TRANS_DT_TIMESTAMP;
&REC_TRAN.SEQ_NBR.Value = &TRANS_SEQ_NBR;
&REC_TRAN.SOURCE_BUS_UNIT.Value = " ";
&REC_TRAN.ORDER_NO.Value = " ";
&REC_TRAN.ORDER_INT_LINE_NO.Value = 0;
&REC_TRAN.SCHED_LINE_NO.Value = 0;
&REC_TRAN.DEMAND_LINE_NO.Value = 0;
&REC_TRAN.STAGED_DATE.Value = Date3(1900, 1, 1);
&REC_TRAN.INV_LOT_ID.Value = "NONE";
&REC_TRAN.SERIAL_ID.Value = "NONE";
&REC_TRAN.STORAGE_AREA.Value = &P_FROM_STORAGE_AREA;
&REC_TRAN.STOR_LEVEL_1.Value = &P_FROM_STOR_LEVEL_1;
&REC_TRAN.CONTAINER_ID.Value = " ";
&REC_TRAN.RECEIVER_ID.Value = " ";
&REC_TRAN.RECV_LN_NBR.Value = 0;
&REC_TRAN.COUNTING_EVENT_ID.Value = 0;
&REC_TRAN.TRANSACTION_GROUP.Value = "060";
&REC_TRAN.TRANSACTION_DATE.Value = %Date;
&REC_TRAN.QTY_BASE.Value = &P_QTY_SOLICITADA;
&REC_TRAN.QTY.Value = &P_QTY_SOLICITADA;
&REC_TRAN.UNIT_MEASURE_STD.Value = &UNIT_MEASURE_STD;
&REC_TRAN.UNIT_OF_MEASURE.Value = &E_ORIG_UNIT_OF_MEASURE;
&REC_TRAN.TO_CONTAINER_ID.Value = " ";
&REC_TRAN.TO_STORAGE_AREA.Value = &P_TO_STORAGE_AREA;
&REC_TRAN.TO_STOR_LEVEL_1.Value = &P_TO_STOR_LEVEL_1;
&REC_TRAN.TO_UOM.Value = &E_ORIG_UNIT_OF_MEASURE;
&REC_TRAN.ADJUST_TYPE.Value = " ";
&REC_TRAN.REASON_CD.Value = " ";

&REC_TRAN.DOCUMENT_ID.Value = " ";
&REC_TRAN.NON_COST_FLAG.Value = " ";
&REC_TRAN.NON_OWN_FLAG.Value = "N";
&REC_TRAN.COSTED_FLAG.Value = "N";
&REC_TRAN.WT_AVE_COST.Value = 0;
&REC_TRAN.OPRID.Value = %UserId;
&REC_TRAN.ACCOUNT.Value = " ";
&REC_TRAN.ALTACCT.Value = " ";
&REC_TRAN.OPERATING_UNIT.Value = " ";
&REC_TRAN.DEPTID.Value = " ";
&REC_TRAN.PRODUCT.Value = " ";
&REC_TRAN.PROJECT_ID.Value = " ";
&REC_TRAN.CURRENCY_CD.Value = "BRL";
&REC_TRAN.STATISTICS_CODE.Value = " ";
&REC_TRAN.PO_ID.Value = " ";
&REC_TRAN.DISTRIB_LINE_NUM.Value = 0;
&REC_TRAN.DISTRIB_SEQ_NUM.Value = 0;
&REC_TRAN.RECV_SHIP_SEQ_NBR.Value = 0;
&REC_TRAN.PRICE_PO.Value = 0;
&REC_TRAN.REQ_ID.Value = " ";
&REC_TRAN.REQ_LINE_NBR.Value = 0;
&REC_TRAN.REQ_SCHED_NBR.Value = 0;
&REC_TRAN.REQ_DISTRIB_NBR.Value = 0;
&REC_TRAN.RMA_ID.Value = " ";
&REC_TRAN.RMA_LINE_NBR.Value = 0;
&REC_TRAN.RTV_ID.Value = " ";
&REC_TRAN.RTV_LN_NBR.Value = 0;
&REC_TRAN.RTV_DISTRIB_NUM.Value = 0;
&REC_TRAN.ACTIVITY_ID.Value = " ";
&REC_TRAN.RESOURCE_TYPE.Value = " ";
&REC_TRAN.RESOURCE_CATEGORY.Value = " ";
&REC_TRAN.RESOURCE_SUB_CAT.Value = " ";
&REC_TRAN.ANALYSIS_TYPE.Value = " ";
&REC_TRAN.INTERUNIT_ID.Value = " ";
&REC_TRAN.INTERUNIT_LINE.Value = 0;
&REC_TRAN.DESTIN_BU.Value = " ";
&REC_TRAN.INSPECTION_ID.Value = " ";
REM &REC_TRAN.LAST_PURCH_DATE
.Value = NULL
&REC_TRAN.TRANSFER_COST.Value = 0;
&REC_TRAN.PURCH_LOT_ID.Value = " ";
&REC_TRAN.VENDOR_ID.Value = " ";
&REC_TRAN.PRODUCTION_ID.Value = " ";
&REC_TRAN.MA_PRDN_ID_FLG.Value = "N";
&REC_TRAN.PRDN_AREA_CODE.Value = " ";
&REC_TRAN.PRODUCTION_TYPE.Value = " ";
&REC_TRAN.PUTAWAY_COMMENT.Value = " ";
&REC_TRAN.STAGED_TYPE.Value = " ";
&REC_TRAN.DISTRIB_TYPE.Value = " ";
REM &REC_TRAN.PO_DT
.Value = NULL
&REC_TRAN.STORAGE_CODE.Value = " ";
&REC_TRAN.INV_STOCK_TYPE.Value = " ";
&REC_TRAN.RECEIPT_TYPE.Value = " ";
&REC_TRAN.BUSINESS_UNIT_PO.Value = " ";
&REC_TRAN.BUSINESS_UNIT_PC.Value = " ";
&REC_TRAN.TRANSACTION_SOURCE.Value = "IN";
&REC_TRAN.CONVERSION_RATE.Value = 0;
&REC_TRAN.EIP_CTL_ID.Value = " ";
&REC_TRAN.EIP_TRANS_SRC.Value = " ";
&REC_TRAN.TRANSACTION_CODE.Value = " ";
&REC_TRAN.BCT_SOURCE.Value = " ";

&REC_TRAN.JOB_INSTANCE.Value = 0;
&REC_TRAN.PROCESS_INSTANCE.Value = 0;
&REC_TRAN.PROCESS_FLAG.Value = "N";
&REC_TRAN.SHIP_ID.Value = " ";
&REC_TRAN.CONSIGNED_FLAG.Value = "N";
&REC_TRAN.TO_CONSIGNED_FLG.Value = "N";
&REC_TRAN.TO_NON_OWN_FLG.Value = "N";
REM &REC_TRAN.BUDGET_DT
.Value = NULL
&REC_TRAN.EXPORT.Value = "N";
&REC_TRAN.REPLACEMENT_FLG.Value = "NA";
&REC_TRAN.IST_RETURN_FLG_IUT.Value = "N";
&REC_TRAN.IST_TXN_FLG.Value = "N";
&REC_TRAN.TRANSFER_COST_DEST.Value = 0;
&REC_TRAN.SF_KANBAN_ID.Value = " ";
&sqlStmt = CreateSQL("%INSERT(:1)");
&sqlStmt.Execute(&REC_TRAN);
&sqlStmt.Close();
&OUT_STATUS_TRANSFERENCIA = "OK";
&OUT_MMC_TRAN_BU = &P_BUSINESS_UNIT;
&OUT_MMC_TRAN_ITEM = &P_INV_ITEM_ID;
&OUT_MMC_TRAN_TIMESTAMP = &TRANS_DT_TIMESTAMP;
&OUT_MMC_TRAN_SEQ_NBR = &TRANS_SEQ_NBR;
End-Function;
/******************************** mmcb.sds3346.EN ******************************

****/
[MMC_NUMERACAO.MMC_NUMERACAO_ID.RowInit]
/*******************************************************************************
***
*
* Criar um ID nico da Guia de remessa, por UN IN.
*
*******************************************************************************
***/
If All(MMC_NUMERACAO_ID) Then
Gray(MMC_NUMERACAO_ID);
End-If;
[MMC_NUMERACAO.MMC_NUMERACAO_ID.SavePostChange]
/*******************************************************************************
*****
Wagner Sorio / Claudio Costa - MMC - 24/10/2007 - mmcb.at2323 - Sistema Controle
Terceiros
Funo para controle de Numerao
Requisito para Funco funcionar e existir um registro na tabela: MMC_NUMERACAO
com o codigo na numerao;
********************************************************************************
*****/
Function MMC_NUMERACAO_ID(&NUMERACAO_ID) Returns string
/* SQLExec("update sysadm.ps_mmc_numeracao set mmc_ultimo_numero = mmc_ultim
o_numero+1 where mmc_numeracao_id=:1", &NUMERACAO_ID);
SQLExec("select auto_number_prefix, mmc_ultimo_numero, TRIM(auto_number_prefi
x)||LPAD(mmc_ultimo_numero,10-length(auto_number_prefix),'0' ) NUMERO_PREFIXO fr
om sysadm.ps_mmc_numeracao where mmc_numeracao_id=:1", &NUMERACAO_ID, &AUTO_NUMB
ER_PREFIX, &MMC_ULTIMO_NUMERO, &NUMERO_PREFIXO);
If All(&AUTO_NUMBER_PREFIX) And
&AUTO_NUMBER_PREFIX <> " " Then
Return &NUMERO_PREFIXO;
Else
Return &MMC_ULTIMO_NUMERO;
End-If;
*/
rem SQLExec("SELECT SYSADM.MMC_PK_PU.FC_GERA_E_RETORNA_PROXIMO_ID(:1) FROM D
UAL", &NUMERACAO_ID, &MMC_ULTIMO_NUMERO);
SQLExec("select TRIM(auto_number_prefix)||LPAD(SYSADM.MMC_PK_PU.FC_GERA_E_RET
ORNA_PROXIMO_ID(:1),10-length(auto_number_prefix),'0' ) NUMERO_PREFIXO from sysa
dm.ps_mmc_numeracao where mmc_numeracao_id=:2", &NUMERACAO_ID, &NUMERACAO_ID, &M
MC_ULTIMO_NUMERO);
Return &MMC_ULTIMO_NUMERO;
End-Function;
[MMC_PO_LIB.FUNCLIB.SavePostChange]
/*******************************************************************************
*****
Terceiros
Biblioteca de Funes Compras.
********************************************************************************
*****/
/*******************************************************************************
******
* Daniel Holer R Santos - MMC - 17/09/2014 - mmcb.sds4689
*
* Funes acrescentadas: VALIDA_BU_LOCAL, GET_BU_CONTABIL e VALIDA_DEPTO
*
*****************************************************************
********************/
/******************** mmcb.sds4689.sn ********************/
Declare Function VERIFICA_STATUS_CUSTOMIZACAO PeopleCode MMC_CUSTOMIZA.MMC_CUSTO
MIZA_ID FieldFormula;
/*------------------------------------------------------------------------------------ Funo que valida se um Local vlido para uma Unidade de Negcio
- Parmetros: &P_BU - Unidade de Negcio a ser validada
&P_LOCAL - Local a ser validado

&P_TIPO - Tipo de local a ser validado - SHIPTO_ID (local de entre
ga)
- CRTL_LOCATION_BBL (estabe
lecimento fiscal)
------------------------------------------------------------------------------------*/
Function VALIDA_BU_LOCAL(&P_BU, &P_LOCAL, &P_TIPO);
/* verifica se a customizao est ativa em Home > Menu MMC > Menu MMC > Par.Gerais
> Customizaes */
If VERIFICA_STATUS_CUSTOMIZACAO("SDS4689") = "A" Then
If &P_TIPO = "SHIPTO_ID" Then
/* Mensagem de erro para Local de Entrega invlido */
&MSG_ERRO = "ERRO! Local de Entrega '" | &P_LOCAL | "' invlido para a Un
idade de Negcio '" | &P_BU | "'. " | Char(10) | Char(10) | "Os Locais de Entrega
vlidos para esta UN so: " | Char(10);
Else
If &P_TIPO = "CRTL_LOCATION_BBL" Then
/* Mensagem de erro para Estabelecimento Fiscal invlido */
&MSG_ERRO = "ERRO! Estabelecimento Fiscal '" | &P_LOCAL | "' invlido
para a Unidade de Negcio '" | &P_BU | "'. " | Char(10) | Char(10) | "Os Estabelec
imentos Fiscais vlidos para esta UN so: " | Char(10);
Else
Error ("ERRO! Erro ao executar a funo 'VALIDA_BU_LOCAL'. Parmetro 'TIPO
' invlido.")
End-If;
End-If;
/* Busca todos os Locais de Entrega ou Estabelecimentos Fiscais vlidos para
a Unidade de Negcio */
&SQL_DEMAND = CreateSQL("SELECT " | &P_TIPO | " FROM SYSADM.PS_SHIPTO_TBL
A WHERE A.SETID = :1 AND A.EFF_STATUS = 'A' AND A.BUSINESS_UNIT_RECV = :2 AND A.
EFFDT = (SELECT MAX (A_EFDT.EFFDT) FROM SYSADM.PS_SHIPTO_TBL A_EFDT WHERE A_EFDT
.SETID = A.SETID AND A_EFDT.SHIPTO_ID = A.SHIPTO_ID AND A_EFDT.EFF_STATUS = A.EF
F_STATUS AND A.BUSINESS_UNIT_RECV = A.BUSINESS_UNIT_RECV)", &SETID, &P_BU);
&ENCONTRADO = "N";
While &SQL_DEMAND.Fetch(&LOCAL)
/* Se o Local passado como parmetro da funo for encontrado, sai do loop e
no d erro */
If &LOCAL = &P_LOCAL Then
&ENCONTRADO = "Y";
Break;
Else
/* Se no saiu do loop, vai juntando os Locais vlidos */
&MSG_ERRO = &MSG_ERRO | &LOCAL | Char(10);
End-If;
End-While;
&SQL_DEMAND.Close();
/* Se o Local no foi encontrado, d mensagem de erro, mostrando as opes vlidas p

ara a UN */
If &ENCONTRADO = "N" Then
Error (&MSG_ERRO);
End-If;
End-If;
End-Function;
/*------------------------------------------------------------------------------------ Funo que retorna a Unidade Contbil de uma Unidade de Negcio
- Parmetros: &P_BU - Unidade de Negcio
------------------------------------------------------------------------------------*/
Function GET_BU_CONTABIL(&P_BU) Returns string ;
/* Busca a Unidade Contbil da Unidade de Negcio passada como parmetro */
SQLExec("SELECT BUSINESS_UNIT_GL FROM PS_MMC_BUGL_VW WHERE BUSINESS_UNIT = :1
AND ROWNUM = 1", &P_BU, &BU_GL);
If None(&BU_GL) Then
&BU_GL = " ";
End-If;
Return &BU_GL;
End-Function;
/*------------------------------------------------------------------------------------ Funo que valida se um Departamento vlido para uma Unidade de Negcio
- Parmetros: &P_BU - Unidade de Negcio a ser validada
&P_DEPTID - Departamento a ser validado
------------------------------------------------------------------------------------*/
Function VALIDA_DEPTO(&P_BU, &P_DEPTID)
If VERIFICA_STATUS_CUSTOMIZACAO("SDS4689") = "A" Then
/* Busca a Unidade Contbil rerente Unidade de Negcio passada como parmetro */
&BU_GL = GET_BU_CONTABIL(&P_BU);
/* Busca o Departamento Inicial e Final referente Unidade Contbil */
SQLExec("SELECT DEPTID, DEPTID_TO FROM PS_MMC_DEPT_RANGE WHERE BUSINESS_UN
IT_GL = :1", &BU_GL, &DEPTID, &DEPTID_TO);
If All(&DEPTID) And
(&P_DEPTID < &DEPTID Or
&P_DEPTID > &DEPTID_TO) Then
/* Se o Departamento passado como parmetro no se encontra no intervalo, d
erro e exibe uma mensagem com o intervalo vlido */
Error ("ERRO! O Departamento '" | &P_DEPTID | "' no vlido para a Unidade
de Negcio '" | &P_BU | "'. " | Char(10) | "Preencha com um departamento entre " |
&DEPTID | " e " | &DEPTID_TO | " para esta UN.");
End-If;
End-If;
End-Function;
/******************** mmcb.sds4689.sn ********************/
/*-----------------------------------------------------------------------------------FAZ INSERT TABELA SYSADM.PS_RECV_LN_ASSET
------------------------------------------------------------------------------------*/
Function GRAVA_RECV_LN_ASSET(&P1_BUSINESS_UNIT, &P1_RECEIVER_ID, &P1_RECV_LN_NBR
, &P1_RECV_SHIP_SEQ_NBR, &P1_DISTRIB_LINE_NUM, &P1_DISTRIB_SEQ_NUM, &P1_ACTUAL_C
OST, &P1_ASSET_ID, &P1_AUTO_BIN2BIN, &P1_BUSINESS_UNIT_AM, &P1_BUSINESS_UNIT_IN,
&P1_CONTAINER_ID, &P1_COST, &P1_CURRENCY_CD, &P1_CUSTODIAN, &P1_DESCR, &P1_DTTM
_STAMP, &P1_FINANCIAL_ASSET_SW, &P1_FROM_STOR_AREA, &P1_FROM_STOR_LEV1, &P1_FROM
_STOR_LEV2, &P1_FROM_STOR_LEV3, &P1_FROM_STOR_LEV4, &P1_INV_ITEM_ID, &P1_ITM_SET
ID, &P1_LOCATION, &P1_LOT_ID, &P1_MANUFACTURER, &P1_MODEL, &P1_PRE_INTFC_ID, &P1
_PRE_INTFC_LINE_NUM, &P1_PRICE_PO_BSE, &P1_PROCESS_INSTANCE, &P1_PROFILE_ID, &P1
_QTY_MOVED_ASSET, &P1_QTY_MOVED_INV, &P1_QUANTITY, &P1_RECV_AM_STATUS, &P1_SERIA
L_ID, &P1_SF_KANBAN_ID, &P1_STORAGE_AREA, &P1_STORAGE_CODE, &P1_STOR_LEVEL_1, &P
1_STOR_LEVEL_2, &P1_STOR_LEVEL_3, &P1_STOR_LEVEL_4, &P1_TAG_NUMBER, &P1_VENDOR_I
D, &P1_VENDOR_LOT_ID, &P1_PRICE_FOR_INV_PBL, &P1_COST_AM_PBL, &P1_PROC_NF_CANCEL
_PBL)
&REC_RECV_LN_ASSET = CreateRecord(Record.RECV_LN_ASSET);
&REC_RECV_LN_ASSET.BUSINESS_UNIT.VALUE = &P1_BUSINESS_UNIT;
&REC_RECV_LN_ASSET.RECEIVER_ID.VALUE = &P1_RECEIVER_ID;
&REC_RECV_LN_ASSET.RECV_LN_NBR.VALUE = &P1_RECV_LN_NBR;
&REC_RECV_LN_ASSET.RECV_SHIP_SEQ_NBR.VALUE = &P1_RECV_SHIP_SEQ_NBR;
&REC_RECV_LN_ASSET.DISTRIB_LINE_NUM.VALUE = &P1_DISTRIB_LINE_NUM;
&REC_RECV_LN_ASSET.DISTRIB_SEQ_NUM.VALUE = &P1_DISTRIB_SEQ_NUM;
&REC_RECV_LN_ASSET.ACTUAL_COST.VALUE = &P1_ACTUAL_COST;
&REC_RECV_LN_ASSET.ASSET_ID.VALUE = &P1_ASSET_ID;
&REC_RECV_LN_ASSET.AUTO_BIN2BIN.VALUE = &P1_AUTO_BIN2BIN;
&REC_RECV_LN_ASSET.BUSINESS_UNIT_AM.VALUE = &P1_BUSINESS_UNIT_AM;
&REC_RECV_LN_ASSET.BUSINESS_UNIT_IN.VALUE = &P1_BUSINESS_UNIT_IN;
&REC_RECV_LN_ASSET.CONTAINER_ID.VALUE = &P1_CONTAINER_ID;
&REC_RECV_LN_ASSET.COST.VALUE = &P1_COST;
&REC_RECV_LN_ASSET.CURRENCY_CD.VALUE = &P1_CURRENCY_CD;
&REC_RECV_LN_ASSET.CUSTODIAN.VALUE = &P1_CUSTODIAN;
&REC_RECV_LN_ASSET.DESCR.VALUE = &P1_DESCR;
&REC_RECV_LN_ASSET.DTTM_STAMP.VALUE = &P1_DTTM_STAMP;
&REC_RECV_LN_ASSET.FINANCIAL_ASSET_SW.VALUE = &P1_FINANCIAL_ASSET_SW;
&REC_RECV_LN_ASSET.FROM_STOR_AREA.VALUE = &P1_FROM_STOR_AREA;
&REC_RECV_LN_ASSET.FROM_STOR_LEV1.VALUE = &P1_FROM_STOR_LEV1;
&REC_RECV_LN_ASSET.INV_ITEM_ID.VALUE = &P1_INV_ITEM_ID;
&REC_RECV_LN_ASSET.ITM_SETID.VALUE = &P1_ITM_SETID;
&REC_RECV_LN_ASSET.LOCATION.VALUE = &P1_LOCATION;
&REC_RECV_LN_ASSET.LOT_ID.VALUE = &P1_LOT_ID;
&REC_RECV_LN_ASSET.MANUFACTURER.VALUE = &P1_MANUFACTURER;
&REC_RECV_LN_ASSET.MODEL.VALUE = &P1_MODEL;
&REC_RECV_LN_ASSET.PRE_INTFC_ID.VALUE = &P1_PRE_INTFC_ID;
&REC_RECV_LN_ASSET.PRE_INTFC_LINE_NUM.VALUE = &P1_PRE_INTFC_LINE_NUM;
&REC_RECV_LN_ASSET.PRICE_PO_BSE.VALUE = &P1_PRICE_PO_BSE;
&REC_RECV_LN_ASSET.PROCESS_INSTANCE.VALUE = &P1_PROCESS_INSTANCE;
&REC_RECV_LN_ASSET.PROFILE_ID.VALUE = &P1_PROFILE_ID;
&REC_RECV_LN_ASSET.QTY_MOVED_ASSET.VALUE = &P1_QTY_MOVED_ASSET;
&REC_RECV_LN_ASSET.QTY_MOVED_INV.VALUE = &P1_QTY_MOVED_INV;
&REC_RECV_LN_ASSET.QUANTITY.VALUE = &P1_QUANTITY;
&REC_RECV_LN_ASSET.RECV_AM_STATUS.VALUE = &P1_RECV_AM_STATUS;
&REC_RECV_LN_ASSET.SERIAL_ID.VALUE = &P1_SERIAL_ID;
&REC_RECV_LN_ASSET.SF_KANBAN_ID.VALUE = &P1_SF_KANBAN_ID;
&REC_RECV_LN_ASSET.STORAGE_AREA.VALUE = &P1_STORAGE_AREA;
&REC_RECV_LN_ASSET.STORAGE_CODE.VALUE = &P1_STORAGE_CODE;
&REC_RECV_LN_ASSET.STOR_LEVEL_1.VALUE = &P1_STOR_LEVEL_1;
&REC_RECV_LN_ASSET.TAG_NUMBER.VALUE = &P1_TAG_NUMBER;
&REC_RECV_LN_ASSET.VENDOR_ID.VALUE = &P1_VENDOR_ID;
&REC_RECV_LN_ASSET.VENDOR_LOT_ID.VALUE = &P1_VENDOR_LOT_ID;
&REC_RECV_LN_ASSET.PRICE_FOR_INV_PBL.VALUE = &P1_PRICE_FOR_INV_PBL;
&REC_RECV_LN_ASSET.COST_AM_PBL.VALUE = &P1_COST_AM_PBL;
&REC_RECV_LN_ASSET.PROC_NF_CANCEL_PBL.VALUE = &P1_PROC_NF_CANCEL_PBL;
&REC_RECV_LN_ASSET.Insert();
End-Function;
/*-----------------------------------------------------------------------------------FAZ INSERT TABELA SYSADM.PS_RECV_LN_DISTRIB
------------------------------------------------------------------------------------*/
Function GRAVA_RECV_LN_DISTRIB(&P2_BUSINESS_UNIT, &P2_RECEIVER_ID, &P2_RECV_LN_N
BR, &P2_RECV_SHIP_SEQ_NBR, &P2_DISTRIB_LINE_NUM, &P2_ACCOUNT, &P2_ALTACCT, &P2_A
CTIVITY_ID, &P2_ANALYSIS_TYPE, &P2_BUSINESS_UNIT_AM, &P2_BUSINESS_UNIT_GL, &P2_B
USINESS_UNIT_IN, &P2_BUSINESS_UNIT_PC, &P2_BUSINESS_UNIT_PO, &P2_CAP_NUM, &P2_CA
P_SEQUENCE, &P2_CHARTFIELD_STATUS, &P2_CONSIGNED_FLAG, &P2_COST_TYPE, &P2_COSTED
_FLAG, &P2_CURRENCY_CD, &P2_CURRENCY_CD_BASE, &P2_DELIVERED_FLG, &P2_DELIVERED_T
O, &P2_DISTRIB_TYPE, &P2_DST_ACCT_TYPE, &P2_EMPLID, &P2_FINANCIAL_ASSET_SW, &P2_
FREIGHT_PERCENT, &P2_LINE_NBR, &P2_LOCATION, &P2_LOC_RECV_LBL_FLG, &P2_MERCH_AMT
_BSE, &P2_MERCH_AMT_PO_BSE, &P2_MERCHANDISE_AMT, &P2_MERCHANDISE_AMT_PO, &P2_MOV
_DS_ACCPT_SUOM, &P2_PO_DIST_LINE_NUM, &P2_PO_ID, &P2_PROCESS_INSTANCE, &P2_PROFI
LE_ID, &P2_QTY_DS_ACCPT_SUOM, &P2_QTY_DS_ACCPT_VUOM, &P2_QTY_PO, &P2_RATE_DIV, &
P2_RATE_MULT, &P2_RECV_DS_STATUS, &P2_REQ_ID, &P2_RESOURCE_CATEGORY, &P2_RESOURC
E_SUB_CAT, &P2_RESOURCE_TYPE, &P2_RT_TYPE, &P2_SCHED_NBR, &P2_STATISTICS_CODE, &
P2_STATISTIC_AMOUNT, &P2_TAX_CD_SUT_PCT, &P2_TAX_CD_VAT_PCT, &P2_OPERATING_UNIT,
&P2_DEPTID, &P2_PRODUCT, &P2_PROJECT_ID, &P2_AFFILIATE)
&REC_RECV_LN_DISTRIB = CreateRecord(Record.RECV_LN_DISTRIB);
&REC_RECV_LN_DISTRIB.BUSINESS_UNIT.VALUE = &P2_BUSINESS_UNIT;
&REC_RECV_LN_DISTRIB.RECEIVER_ID.VALUE = &P2_RECEIVER_ID;
&REC_RECV_LN_DISTRIB.RECV_LN_NBR.VALUE = &P2_RECV_LN_NBR;
&REC_RECV_LN_DISTRIB.RECV_SHIP_SEQ_NBR.VALUE = &P2_RECV_SHIP_SEQ_NBR;
&REC_RECV_LN_DISTRIB.DISTRIB_LINE_NUM.VALUE = &P2_DISTRIB_LINE_NUM;
&REC_RECV_LN_DISTRIB.ACCOUNT.VALUE = &P2_ACCOUNT;
&REC_RECV_LN_DISTRIB.ALTACCT.VALUE = &P2_ALTACCT;
&REC_RECV_LN_DISTRIB.ACTIVITY_ID.VALUE = &P2_ACTIVITY_ID;
&REC_RECV_LN_DISTRIB.ANALYSIS_TYPE.VALUE = &P2_ANALYSIS_TYPE;
&REC_RECV_LN_DISTRIB.BUSINESS_UNIT_AM.VALUE = &P2_BUSINESS_UNIT_AM;
&REC_RECV_LN_DISTRIB.BUSINESS_UNIT_GL.VALUE = &P2_BUSINESS_UNIT_GL;
&REC_RECV_LN_DISTRIB.BUSINESS_UNIT_IN.VALUE = &P2_BUSINESS_UNIT_IN;
&REC_RECV_LN_DISTRIB.BUSINESS_UNIT_PC.VALUE = &P2_BUSINESS_UNIT_PC;
&REC_RECV_LN_DISTRIB.BUSINESS_UNIT_PO.VALUE = &P2_BUSINESS_UNIT_PO;
&REC_RECV_LN_DISTRIB.CAP_NUM.VALUE = &P2_CAP_NUM;
&REC_RECV_LN_DISTRIB.CAP_SEQUENCE.VALUE = &P2_CAP_SEQUENCE;
&REC_RECV_LN_DISTRIB.CHARTFIELD_STATUS.VALUE = &P2_CHARTFIELD_STATUS;
&REC_RECV_LN_DISTRIB.CONSIGNED_FLAG.VALUE = &P2_CONSIGNED_FLAG;
&REC_RECV_LN_DISTRIB.COST_TYPE.VALUE = &P2_COST_TYPE;
&REC_RECV_LN_DISTRIB.COSTED_FLAG.VALUE = &P2_COSTED_FLAG;
&REC_RECV_LN_DISTRIB.CURRENCY_CD.VALUE = &P2_CURRENCY_CD;
&REC_RECV_LN_DISTRIB.CURRENCY_CD_BASE.VALUE = &P2_CURRENCY_CD_BASE;
&REC_RECV_LN_DISTRIB.DELIVERED_FLG.VALUE = &P2_DELIVERED_FLG;
&REC_RECV_LN_DISTRIB.DELIVERED_TO.VALUE = &P2_DELIVERED_TO;
&REC_RECV_LN_DISTRIB.DISTRIB_TYPE.VALUE = &P2_DISTRIB_TYPE;
&REC_RECV_LN_DISTRIB.DST_ACCT_TYPE.VALUE = &P2_DST_ACCT_TYPE;
&REC_RECV_LN_DISTRIB.EMPLID.VALUE = &P2_EMPLID;
&REC_RECV_LN_DISTRIB.FINANCIAL_ASSET_SW.VALUE = &P2_FINANCIAL_ASSET_SW;
&REC_RECV_LN_DISTRIB.FREIGHT_PERCENT.VALUE = &P2_FREIGHT_PERCENT;
&REC_RECV_LN_DISTRIB.LINE_NBR.VALUE = &P2_LINE_NBR;
&REC_RECV_LN_DISTRIB.LOCATION.VALUE = &P2_LOCATION;
&REC_RECV_LN_DISTRIB.LOC_RECV_LBL_FLG.VALUE = &P2_LOC_RECV_LBL_FLG;
&REC_RECV_LN_DISTRIB.MERCH_AMT_BSE.VALUE = &P2_MERCH_AMT_BSE;
&REC_RECV_LN_DISTRIB.MERCH_AMT_PO_BSE.VALUE = &P2_MERCH_AMT_PO_BSE;
&REC_RECV_LN_DISTRIB.MERCHANDISE_AMT.VALUE = &P2_MERCHANDISE_AMT;
&REC_RECV_LN_DISTRIB.MERCHANDISE_AMT_PO.VALUE = &P2_MERCHANDISE_AMT_PO;
&REC_RECV_LN_DISTRIB.MOV_DS_ACCPT_SUOM.VALUE = &P2_MOV_DS_ACCPT_SUOM;
&REC_RECV_LN_DISTRIB.PO_DIST_LINE_NUM.VALUE = &P2_PO_DIST_LINE_NUM;
&REC_RECV_LN_DISTRIB.PO_ID.VALUE = &P2_PO_ID;
&REC_RECV_LN_DISTRIB.PROCESS_INSTANCE.VALUE = &P2_PROCESS_INSTANCE;
&REC_RECV_LN_DISTRIB.PROFILE_ID.VALUE = &P2_PROFILE_ID;
&REC_RECV_LN_DISTRIB.QTY_DS_ACCPT_SUOM.VALUE = &P2_QTY_DS_ACCPT_SUOM;
&REC_RECV_LN_DISTRIB.QTY_DS_ACCPT_VUOM.VALUE = &P2_QTY_DS_ACCPT_VUOM;
&REC_RECV_LN_DISTRIB.QTY_PO.VALUE = &P2_QTY_PO;
&REC_RECV_LN_DISTRIB.RATE_DIV.VALUE = &P2_RATE_DIV;
&REC_RECV_LN_DISTRIB.RATE_MULT.VALUE = &P2_RATE_MULT;
&REC_RECV_LN_DISTRIB.RECV_DS_STATUS.VALUE = &P2_RECV_DS_STATUS;
&REC_RECV_LN_DISTRIB.REQ_ID.VALUE = &P2_REQ_ID;
&REC_RECV_LN_DISTRIB.RESOURCE_CATEGORY.VALUE = &P2_RESOURCE_CATEGORY;
&REC_RECV_LN_DISTRIB.RESOURCE_SUB_CAT.VALUE = &P2_RESOURCE_SUB_CAT;
&REC_RECV_LN_DISTRIB.RESOURCE_TYPE.VALUE = &P2_RESOURCE_TYPE;
&REC_RECV_LN_DISTRIB.RT_TYPE.VALUE = &P2_RT_TYPE;
&REC_RECV_LN_DISTRIB.SCHED_NBR.VALUE = &P2_SCHED_NBR;
&REC_RECV_LN_DISTRIB.STATISTICS_CODE.VALUE = &P2_STATISTICS_CODE;
&REC_RECV_LN_DISTRIB.STATISTIC_AMOUNT.VALUE = &P2_STATISTIC_AMOUNT;
&REC_RECV_LN_DISTRIB.TAX_CD_SUT_PCT.VALUE = &P2_TAX_CD_SUT_PCT;
&REC_RECV_LN_DISTRIB.TAX_CD_VAT_PCT.VALUE = &P2_TAX_CD_VAT_PCT;
&REC_RECV_LN_DISTRIB.OPERATING_UNIT.VALUE = &P2_OPERATING_UNIT;
&REC_RECV_LN_DISTRIB.DEPTID.VALUE = &P2_DEPTID;
&REC_RECV_LN_DISTRIB.PRODUCT.VALUE = &P2_PRODUCT;
&REC_RECV_LN_DISTRIB.PROJECT_ID.VALUE = &P2_PROJECT_ID;
&REC_RECV_LN_DISTRIB.AFFILIATE.VALUE = &P2_AFFILIATE;
&REC_RECV_LN_DISTRIB.Insert();
End-Function;
/*-----------------------------------------------------------------------------------FAZ INSERT TABELA SYSADM.PS_RECV_LN_INSP
--------------------------------------------------------------------------------
-----*/
Function GRAVA_RECV_LN_INSP(&P3_BUSINESS_UNIT, &P3_RECEIVER_ID, &P3_RECV_LN_NBR,
&P3_OP_SEQ, &P3_ROUTING_SETID, &P3_ROUTING_ID, &P3_OP_TIME_STD, &P3_OP_TIME_CD,
&P3_OP_TIME_STD_TTL, &P3_OP_TIME_ACT_TTL, &P3_PROCESS_INSTANCE)
&REC_RECV_LN_INSP = CreateRecord(Record.RECV_LN_INSP);
&REC_RECV_LN_INSP.BUSINESS_UNIT.VALUE = &P3_BUSINESS_UNIT;
&REC_RECV_LN_INSP.RECEIVER_ID.VALUE = &P3_RECEIVER_ID;
&REC_RECV_LN_INSP.RECV_LN_NBR.VALUE = &P3_RECV_LN_NBR;
&REC_RECV_LN_INSP.OP_SEQ.VALUE = &P3_OP_SEQ;
&REC_RECV_LN_INSP.ROUTING_SETID.VALUE = &P3_ROUTING_SETID;
&REC_RECV_LN_INSP.ROUTING_ID.VALUE = &P3_ROUTING_ID;
&REC_RECV_LN_INSP.OP_TIME_STD.VALUE = &P3_OP_TIME_STD;
&REC_RECV_LN_INSP.OP_TIME_CD.VALUE = &P3_OP_TIME_CD;
&REC_RECV_LN_INSP.OP_TIME_STD_TTL.VALUE = &P3_OP_TIME_STD_TTL;
&REC_RECV_LN_INSP.OP_TIME_ACT_TTL.VALUE = &P3_OP_TIME_ACT_TTL;
&REC_RECV_LN_INSP.PROCESS_INSTANCE.VALUE = &P3_PROCESS_INSTANCE;
&REC_RECV_LN_INSP.Insert()
End-Function;
/*-----------------------------------------------------------------------------------FAZ INSERT TABELA SYSADM.PS_RECV_LN_SHIP
------------------------------------------------------------------------------------*/
Function GRAVA_RECV_LN_SHIP(&P4_BUSINESS_UNIT, &P4_RECEIVER_ID, &P4_RECV_LN_NBR,
&P4_RECV_SHIP_SEQ_NBR, &P4_AMT_ONLY_FLG, &P4_ASN_SEQ_NBR, &P4_BILL_OF_LADING, &
P4_BUSINESS_UNIT_IN, &P4_BUSINESS_UNIT_PO, &P4_CATEGORY_ID, &P4_CONFIG_CODE, &P4
_CONVERSION_RATE, &P4_CONVERT_TO_STK, &P4_CONVERT_TO_PO, &P4_CONVERT_STK_TO_STD,
&P4_COUNTRY_IST_ORIGIN, &P4_CURRENCY_CD, &P4_CURRENCY_CD_BASE, &P4_DESCR254_MIX
ED, &P4_DEVICE_TRACKING, &P4_DISTRIB_MTHD_FLG, &P4_DUE_DT, &P4_DUE_TIME, &P4_EIP
_CTL_ID, &P4_ERS_INV_SEQ, &P4_ERS_STATUS, &P4_INSPECT_CD, &P4_INSPECT_DTTM, &P4_
INSPECT_STATUS, &P4_INV_ITEM_ID, &P4_IST_DISTRIB_STATUS, &P4_ITM_ID_VNDR, &P4_IT
M_SETID, &P4_LINE_NBR, &P4_LOT_CONTROL, &P4_LOT_STATUS, &P4_MATCH_LINE_FLG, &P4_
MATCH_STATUS_LC, &P4_MERCH_AMT_BSE, &P4_MERCH_AMT_PO_BSE, &P4_MERCHANDISE_AMT, &
P4_MERCHANDISE_AMT_PO, &P4_MFG_ID, &P4_MFG_ITM_ID, &P4_MOVE_STAT_AM, &P4_MOVE_ST
AT_INV, &P4_MOVE_STAT_MFG, &P4_OP_SEQUENCE, &P4_OPRID, &P4_PACKSLIP_NO, &P4_PO_I
D, &P4_PO_TYPE, &P4_PRICE_PO, &P4_PRICE_PO_BSE, &P4_PRO_NUMBER, &P4_PROCESS_COMP
LETE, &P4_PROCESS_INSTANCE, &P4_PRODUCTION_ID, &P4_QTY_LN_ASSET_SUOM, &P4_QTY_LN
_INV_SUOM, &P4_QTY_SH_ACCPT, &P4_QTY_SH_ACCPT_SUOM, &P4_QTY_SH_ACCPT_VUOM, &P4_Q
TY_SH_INSPD, &P4_QTY_SH_INSPD_SUOM, &P4_QTY_SH_INSPD_VUOM, &P4_QTY_SH_NETRCV_VUO
M, &P4_QTY_SH_RECVD, &P4_QTY_SH_RECVD_SUOM, &P4_QTY_SH_RECVD_VUOM, &P4_QTY_SH_RE
JCT, &P4_QTY_SH_REJCT_SUOM, &P4_QTY_SH_REJCT_VUOM, &P4_QTY_SH_RTN, &P4_QTY_SH_RT
N_SUOM, &P4_QTY_SH_RTN_VUOM, &P4_REJECT_ACTION, &P4_REJECT_REASON, &P4_REVISION,
&P4_RMA_ID, &P4_RMA_LINE_NBR, &P4_RECEIPT_ALLOC_TYPE, &P4_RECEIPT_DTTM, &P4_REC
EIPT_UM, &P4_RECEIVE_UOM, &P4_RECV_LN_MATCH_OPT, &P4_RECV_SHIP_STATUS, &P4_RECV_
STOCK_UOM, &P4_REPLACEMENT_FLG, &P4_SCHED_NBR, &P4_SERIAL_CONTROL, &P4_SERIAL_ST
ATUS, &P4_SHIP_DATE_STATUS, &P4_SHIP_QTY_STATUS, &P4_SHIPTO_ID, &P4_UNIT_MEASURE
_STD)
&REC_RECV_LN_SHIP = CreateRecord(Record.RECV_LN_SHIP);
&REC_RECV_LN_SHIP.BUSINESS_UNIT.VALUE = &P4_BUSINESS_UNIT;
&REC_RECV_LN_SHIP.RECEIVER_ID.VALUE = &P4_RECEIVER_ID;
&REC_RECV_LN_SHIP.RECV_LN_NBR.VALUE = &P4_RECV_LN_NBR;
&REC_RECV_LN_SHIP.RECV_SHIP_SEQ_NBR.VALUE = &P4_RECV_SHIP_SEQ_NBR;
&REC_RECV_LN_SHIP.AMT_ONLY_FLG.VALUE = &P4_AMT_ONLY_FLG;
&REC_RECV_LN_SHIP.ASN_SEQ_NBR.VALUE = &P4_ASN_SEQ_NBR;
&REC_RECV_LN_SHIP.BILL_OF_LADING.VALUE = &P4_BILL_OF_LADING;
&REC_RECV_LN_SHIP.BUSINESS_UNIT_IN.VALUE = &P4_BUSINESS_UNIT_IN;
&REC_RECV_LN_SHIP.BUSINESS_UNIT_PO.VALUE = &P4_BUSINESS_UNIT_PO;
&REC_RECV_LN_SHIP.CATEGORY_ID.VALUE = &P4_CATEGORY_ID;
&REC_RECV_LN_SHIP.CONFIG_CODE.VALUE = &P4_CONFIG_CODE;
&REC_RECV_LN_SHIP.CONVERSION_RATE.VALUE = &P4_CONVERSION_RATE;
&REC_RECV_LN_SHIP.CONVERT_TO_STK.VALUE = &P4_CONVERT_TO_STK;
&REC_RECV_LN_SHIP.CONVERT_TO_PO.VALUE = &P4_CONVERT_TO_PO;
&REC_RECV_LN_SHIP.CONVERT_STK_TO_STD.VALUE = &P4_CONVERT_STK_TO_STD;
&REC_RECV_LN_SHIP.COUNTRY_IST_ORIGIN.VALUE = &P4_COUNTRY_IST_ORIGIN;
&REC_RECV_LN_SHIP.CURRENCY_CD.VALUE = &P4_CURRENCY_CD;
&REC_RECV_LN_SHIP.CURRENCY_CD_BASE.VALUE = &P4_CURRENCY_CD_BASE;
&REC_RECV_LN_SHIP.DESCR254_MIXED.VALUE = &P4_DESCR254_MIXED;
&REC_RECV_LN_SHIP.DEVICE_TRACKING.VALUE = &P4_DEVICE_TRACKING;
&REC_RECV_LN_SHIP.DISTRIB_MTHD_FLG.VALUE = &P4_DISTRIB_MTHD_FLG;
&REC_RECV_LN_SHIP.DUE_DT.VALUE = &P4_DUE_DT;
&REC_RECV_LN_SHIP.DUE_TIME.VALUE = &P4_DUE_TIME;
&REC_RECV_LN_SHIP.EIP_CTL_ID.VALUE = &P4_EIP_CTL_ID;
&REC_RECV_LN_SHIP.ERS_INV_SEQ.VALUE = &P4_ERS_INV_SEQ;
&REC_RECV_LN_SHIP.ERS_STATUS.VALUE = &P4_ERS_STATUS;
&REC_RECV_LN_SHIP.INSPECT_CD.VALUE = &P4_INSPECT_CD;
&REC_RECV_LN_SHIP.INSPECT_DTTM.VALUE = &P4_INSPECT_DTTM;
&REC_RECV_LN_SHIP.INSPECT_STATUS.VALUE = &P4_INSPECT_STATUS;
&REC_RECV_LN_SHIP.INV_ITEM_ID.VALUE = &P4_INV_ITEM_ID;
&REC_RECV_LN_SHIP.IST_DISTRIB_STATUS.VALUE = &P4_IST_DISTRIB_STATUS;
&REC_RECV_LN_SHIP.ITM_ID_VNDR.VALUE = &P4_ITM_ID_VNDR;
&REC_RECV_LN_SHIP.ITM_SETID.VALUE = &P4_ITM_SETID;
&REC_RECV_LN_SHIP.LINE_NBR.VALUE = &P4_LINE_NBR;
&REC_RECV_LN_SHIP.LOT_CONTROL.VALUE = &P4_LOT_CONTROL;
&REC_RECV_LN_SHIP.LOT_STATUS.VALUE = &P4_LOT_STATUS;
&REC_RECV_LN_SHIP.MATCH_LINE_FLG.VALUE = &P4_MATCH_LINE_FLG;
&REC_RECV_LN_SHIP.MATCH_STATUS_LC.VALUE = &P4_MATCH_STATUS_LC;
&REC_RECV_LN_SHIP.MERCH_AMT_BSE.VALUE = &P4_MERCH_AMT_BSE;
&REC_RECV_LN_SHIP.MERCH_AMT_PO_BSE.VALUE = &P4_MERCH_AMT_PO_BSE;
&REC_RECV_LN_SHIP.MERCHANDISE_AMT.VALUE = &P4_MERCHANDISE_AMT;
&REC_RECV_LN_SHIP.MERCHANDISE_AMT_PO.VALUE = &P4_MERCHANDISE_AMT_PO;
&REC_RECV_LN_SHIP.MFG_ID.VALUE = &P4_MFG_ID;
&REC_RECV_LN_SHIP.MFG_ITM_ID.VALUE = &P4_MFG_ITM_ID;
&REC_RECV_LN_SHIP.MOVE_STAT_AM.VALUE = &P4_MOVE_STAT_AM;
&REC_RECV_LN_SHIP.MOVE_STAT_INV.VALUE = &P4_MOVE_STAT_INV;
&REC_RECV_LN_SHIP.MOVE_STAT_MFG.VALUE = &P4_MOVE_STAT_MFG;
&REC_RECV_LN_SHIP.OP_SEQUENCE.VALUE = &P4_OP_SEQUENCE;
&REC_RECV_LN_SHIP.OPRID.VALUE = &P4_OPRID;
&REC_RECV_LN_SHIP.PACKSLIP_NO.VALUE = &P4_PACKSLIP_NO;
&REC_RECV_LN_SHIP.PO_ID.VALUE = &P4_PO_ID;
&REC_RECV_LN_SHIP.PO_TYPE.VALUE = &P4_PO_TYPE;
&REC_RECV_LN_SHIP.PRICE_PO.VALUE = &P4_PRICE_PO;
&REC_RECV_LN_SHIP.PRICE_PO_BSE.VALUE = &P4_PRICE_PO_BSE;
&REC_RECV_LN_SHIP.PRO_NUMBER.VALUE = &P4_PRO_NUMBER;
&REC_RECV_LN_SHIP.PROCESS_COMPLETE.VALUE = &P4_PROCESS_COMPLETE;
&REC_RECV_LN_SHIP.PROCESS_INSTANCE.VALUE = &P4_PROCESS_INSTANCE;
&REC_RECV_LN_SHIP.PRODUCTION_ID.VALUE = &P4_PRODUCTION_ID;
&REC_RECV_LN_SHIP.QTY_LN_ASSET_SUOM.VALUE = &P4_QTY_LN_ASSET_SUOM;
&REC_RECV_LN_SHIP.QTY_LN_INV_SUOM.VALUE = &P4_QTY_LN_INV_SUOM;
&REC_RECV_LN_SHIP.QTY_SH_ACCPT.VALUE = &P4_QTY_SH_ACCPT;
&REC_RECV_LN_SHIP.QTY_SH_ACCPT_SUOM.VALUE = &P4_QTY_SH_ACCPT_SUOM;
&REC_RECV_LN_SHIP.QTY_SH_ACCPT_VUOM.VALUE = &P4_QTY_SH_ACCPT_VUOM;
&REC_RECV_LN_SHIP.QTY_SH_INSPD.VALUE = &P4_QTY_SH_INSPD;
&REC_RECV_LN_SHIP.QTY_SH_INSPD_SUOM.VALUE = &P4_QTY_SH_INSPD_SUOM;
&REC_RECV_LN_SHIP.QTY_SH_INSPD_VUOM.VALUE = &P4_QTY_SH_INSPD_VUOM;
&REC_RECV_LN_SHIP.QTY_SH_NETRCV_VUOM.VALUE = &P4_QTY_SH_NETRCV_VUOM;
&REC_RECV_LN_SHIP.QTY_SH_RECVD.VALUE = &P4_QTY_SH_RECVD;
&REC_RECV_LN_SHIP.QTY_SH_RECVD_SUOM.VALUE = &P4_QTY_SH_RECVD_SUOM;
&REC_RECV_LN_SHIP.QTY_SH_RECVD_VUOM.VALUE = &P4_QTY_SH_RECVD_VUOM;
&REC_RECV_LN_SHIP.QTY_SH_REJCT.VALUE = &P4_QTY_SH_REJCT;
&REC_RECV_LN_SHIP.QTY_SH_REJCT_SUOM.VALUE = &P4_QTY_SH_REJCT_SUOM;
&REC_RECV_LN_SHIP.QTY_SH_REJCT_VUOM.VALUE = &P4_QTY_SH_REJCT_VUOM;
&REC_RECV_LN_SHIP.QTY_SH_RTN.VALUE = &P4_QTY_SH_RTN;
&REC_RECV_LN_SHIP.QTY_SH_RTN_SUOM.VALUE = &P4_QTY_SH_RTN_SUOM;
&REC_RECV_LN_SHIP.QTY_SH_RTN_VUOM.VALUE = &P4_QTY_SH_RTN_VUOM;
&REC_RECV_LN_SHIP.REJECT_ACTION.VALUE = &P4_REJECT_ACTION;
&REC_RECV_LN_SHIP.REJECT_REASON.VALUE = &P4_REJECT_REASON;
&REC_RECV_LN_SHIP.REVISION.VALUE = &P4_REVISION;
&REC_RECV_LN_SHIP.RMA_ID.VALUE = &P4_RMA_ID;
&REC_RECV_LN_SHIP.RMA_LINE_NBR.VALUE = &P4_RMA_LINE_NBR;
&REC_RECV_LN_SHIP.RECEIPT_ALLOC_TYPE.VALUE = &P4_RECEIPT_ALLOC_TYPE;
&REC_RECV_LN_SHIP.RECEIPT_DTTM.VALUE = &P4_RECEIPT_DTTM;
&REC_RECV_LN_SHIP.RECEIPT_UM.VALUE = &P4_RECEIPT_UM;
&REC_RECV_LN_SHIP.RECEIVE_UOM.VALUE = &P4_RECEIVE_UOM;
&REC_RECV_LN_SHIP.RECV_LN_MATCH_OPT.VALUE = &P4_RECV_LN_MATCH_OPT;
&REC_RECV_LN_SHIP.RECV_SHIP_STATUS.VALUE = &P4_RECV_SHIP_STATUS;
&REC_RECV_LN_SHIP.RECV_STOCK_UOM.VALUE = &P4_RECV_STOCK_UOM;
&REC_RECV_LN_SHIP.REPLACEMENT_FLG.VALUE = &P4_REPLACEMENT_FLG;
&REC_RECV_LN_SHIP.SCHED_NBR.VALUE = &P4_SCHED_NBR;
&REC_RECV_LN_SHIP.SERIAL_CONTROL.VALUE = &P4_SERIAL_CONTROL;
&REC_RECV_LN_SHIP.SERIAL_STATUS.VALUE = &P4_SERIAL_STATUS;
&REC_RECV_LN_SHIP.SHIP_DATE_STATUS.VALUE = &P4_SHIP_DATE_STATUS;
&REC_RECV_LN_SHIP.SHIP_QTY_STATUS.VALUE = &P4_SHIP_QTY_STATUS;
&REC_RECV_LN_SHIP.SHIPTO_ID.VALUE = &P4_SHIPTO_ID;
&REC_RECV_LN_SHIP.UNIT_MEASURE_STD.VALUE = &P4_UNIT_MEASURE_STD;
&REC_RECV_LN_SHIP.Insert();
End-Function;
/*-----------------------------------------------------------------------------------FAZ INSERT TABELA SYSADM.PS_RECV_LN_SHP_MTH
------------------------------------------------------------------------------------*/
Function GRAVA_RECV_LN_SHP_MTH(&P5_BUSINESS_UNIT, &P5_RECEIVER_ID, &P5_RECV_LN_N
BR, &P5_RECV_SHIP_SEQ_NBR, &P5_TXN_CURRENCY_CD, &P5_QTY_MATCHED, &P5_AMT_MATCHED
)
&REC_RECV_LN_SHP_MTH = CreateRecord(Record.RECV_LN_SHP_MTH);
&REC_RECV_LN_SHP_MTH.BUSINESS_UNIT.VALUE = &P5_BUSINESS_UNIT;
&REC_RECV_LN_SHP_MTH.RECEIVER_ID.VALUE = &P5_RECEIVER_ID;
&REC_RECV_LN_SHP_MTH.RECV_LN_NBR.VALUE = &P5_RECV_LN_NBR;
&REC_RECV_LN_SHP_MTH.RECV_SHIP_SEQ_NBR.VALUE = &P5_RECV_SHIP_SEQ_NBR;
&REC_RECV_LN_SHP_MTH.TXN_CURRENCY_CD.VALUE = &P5_TXN_CURRENCY_CD;
&REC_RECV_LN_SHP_MTH.QTY_MATCHED.VALUE = &P5_QTY_MATCHED;
&REC_RECV_LN_SHP_MTH.AMT_MATCHED.VALUE = &P5_AMT_MATCHED;
&REC_RECV_LN_SHP_MTH.Insert();
End-Function;
/*-----------------------------------------------------------------------------------FAZ INSERT TABELA SYSADM.PS_RECV_RECV_HDR
------------------------------------------------------------------------------------*/
Function GRAVA_RECV_HDR(&P6_BUSINESS_UNIT, &P6_RECEIVER_ID, &P6_SHIPTO_ID, &P6_V

ENDOR_ID, &P6_VEHICLE_ID, &P6_BILL_OF_LADING, &P6_CARRIER_ID, &P6_CONTAINER_ID,
&P6_COUNTRY_SHIP_FROM, &P6_DFLT_PACKSLIP_NO, &P6_DRIVER_ID, &P6_EIP_CTL_ID, &P6_
ERS_FLAG, &P6_ERS_INV_DT_OPT, &P6_ERS_INV_STATUS, &P6_FREIGHT_TERMS, &P6_HOLD_AS
SET, &P6_HOLD_INVENTORY, &P6_IN_PROCESS_FLG, &P6_INTFC_ASSET, &P6_INTFC_INVENTOR
Y, &P6_INTFC_MG, &P6_MATCH_CNTRL_ID, &P6_MATCH_PROCESS_FLG, &P6_MATCH_STATUS_REC
V, &P6_NUM_OF_CARTONS, &P6_OPRID, &P6_ORIGIN, &P6_PALLETS_RECV, &P6_PALLETS_RTN,
&P6_PO_RECEIPT_FLG, &P6_PORT_OF_UNLOADING, &P6_PRO_NUMBER, &P6_PROCESS_INSTANCE
, &P6_RECEIPT_DT, &P6_RECEIPT_TM, &P6_RECV_SOURCE, &P6_RECV_STATUS, &P6_SETID, &
P6_SHIP_DATE, &P6_SHIP_FROM_LOC, &P6_SHIPMENT_NO, &P6_VENDOR_SETID, &P6_VNDR_LOC
, &P6_POST_STATUS_RECV, &P6_OPRID_MODIFIED_BY, &P6_LAST_DTTM_UPDATE, &P6_NF_BRL,
&P6_NF_BRL_SERIES, &P6_NF_BRL_DATE, &P6_ADDRESS_SEQ_NUM, &P6_FLG_NF_FISCAL_PBL)
&REC_RECV_HDR = CreateRecord(Record.RECV_HDR);
&REC_RECV_HDR.BUSINESS_UNIT.VALUE = &P6_BUSINESS_UNIT;
&REC_RECV_HDR.RECEIVER_ID.VALUE = &P6_RECEIVER_ID;
&REC_RECV_HDR.SHIPTO_ID.VALUE = &P6_SHIPTO_ID;
&REC_RECV_HDR.VENDOR_ID.VALUE = &P6_VENDOR_ID;
&REC_RECV_HDR.VEHICLE_ID.VALUE = &P6_VEHICLE_ID;
&REC_RECV_HDR.BILL_OF_LADING.VALUE = &P6_BILL_OF_LADING;
&REC_RECV_HDR.CARRIER_ID.VALUE = &P6_CARRIER_ID;
&REC_RECV_HDR.CONTAINER_ID.VALUE = &P6_CONTAINER_ID;
&REC_RECV_HDR.COUNTRY_SHIP_FROM.VALUE = &P6_COUNTRY_SHIP_FROM;
&REC_RECV_HDR.DFLT_PACKSLIP_NO.VALUE = &P6_DFLT_PACKSLIP_NO;
&REC_RECV_HDR.DRIVER_ID.VALUE = &P6_DRIVER_ID;
&REC_RECV_HDR.EIP_CTL_ID.VALUE = &P6_EIP_CTL_ID;
&REC_RECV_HDR.ERS_FLAG.VALUE = &P6_ERS_FLAG;
&REC_RECV_HDR.ERS_INV_DT_OPT.VALUE = &P6_ERS_INV_DT_OPT;
&REC_RECV_HDR.ERS_INV_STATUS.VALUE = &P6_ERS_INV_STATUS;
&REC_RECV_HDR.FREIGHT_TERMS.VALUE = &P6_FREIGHT_TERMS;
&REC_RECV_HDR.HOLD_ASSET.VALUE = &P6_HOLD_ASSET;
&REC_RECV_HDR.HOLD_INVENTORY.VALUE = &P6_HOLD_INVENTORY;
&REC_RECV_HDR.IN_PROCESS_FLG.VALUE = &P6_IN_PROCESS_FLG;
&REC_RECV_HDR.INTFC_ASSET.VALUE = &P6_INTFC_ASSET;
&REC_RECV_HDR.INTFC_INVENTORY.VALUE = &P6_INTFC_INVENTORY;
&REC_RECV_HDR.INTFC_MG.VALUE = &P6_INTFC_MG;
&REC_RECV_HDR.MATCH_CNTRL_ID.VALUE = &P6_MATCH_CNTRL_ID;
&REC_RECV_HDR.MATCH_PROCESS_FLG.VALUE = &P6_MATCH_PROCESS_FLG;
&REC_RECV_HDR.MATCH_STATUS_RECV.VALUE = &P6_MATCH_STATUS_RECV;
&REC_RECV_HDR.NUM_OF_CARTONS.VALUE = &P6_NUM_OF_CARTONS;
&REC_RECV_HDR.OPRID.VALUE = &P6_OPRID;
&REC_RECV_HDR.ORIGIN.VALUE = &P6_ORIGIN;
&REC_RECV_HDR.PALLETS_RECV.VALUE = &P6_PALLETS_RECV;
&REC_RECV_HDR.PALLETS_RTN.VALUE = &P6_PALLETS_RTN;
&REC_RECV_HDR.PO_RECEIPT_FLG.VALUE = &P6_PO_RECEIPT_FLG;
&REC_RECV_HDR.PORT_OF_UNLOADING.VALUE = &P6_PORT_OF_UNLOADING;
&REC_RECV_HDR.PRO_NUMBER.VALUE = &P6_PRO_NUMBER;
&REC_RECV_HDR.PROCESS_INSTANCE.VALUE = &P6_PROCESS_INSTANCE;
&REC_RECV_HDR.RECEIPT_DT.VALUE = &P6_RECEIPT_DT;
&REC_RECV_HDR.RECEIPT_TM.VALUE = &P6_RECEIPT_TM;
&REC_RECV_HDR.RECV_SOURCE.VALUE = &P6_RECV_SOURCE;
&REC_RECV_HDR.RECV_STATUS.VALUE = &P6_RECV_STATUS;
&REC_RECV_HDR.SETID.VALUE = &P6_SETID;
&REC_RECV_HDR.SHIP_DATE.VALUE = &P6_SHIP_DATE;
&REC_RECV_HDR.SHIP_FROM_LOC.VALUE = &P6_SHIP_FROM_LOC;
&REC_RECV_HDR.SHIPMENT_NO.VALUE = &P6_SHIPMENT_NO;
&REC_RECV_HDR.VENDOR_SETID.VALUE = &P6_VENDOR_SETID;
&REC_RECV_HDR.VNDR_LOC.VALUE = &P6_VNDR_LOC;
&REC_RECV_HDR.POST_STATUS_RECV.VALUE = &P6_POST_STATUS_RECV;
&REC_RECV_HDR.OPRID_MODIFIED_BY.VALUE = &P6_OPRID_MODIFIED_BY;
&REC_RECV_HDR.LAST_DTTM_UPDATE.VALUE = &P6_LAST_DTTM_UPDATE;
&REC_RECV_HDR.NF_BRL.VALUE = &P6_NF_BRL;
&REC_RECV_HDR.NF_BRL_SERIES.VALUE = &P6_NF_BRL_SERIES;
&REC_RECV_HDR.NF_BRL_DATE.VALUE = &P6_NF_BRL_DATE;
&REC_RECV_HDR.ADDRESS_SEQ_NUM.VALUE = &P6_ADDRESS_SEQ_NUM;
&REC_RECV_HDR.FLG_NF_FISCAL_PBL.VALUE = &P6_FLG_NF_FISCAL_PBL;
&REC_RECV_HDR.Insert();
End-Function;
[MMC_PO_LIB.NF_BRL_ID.SavePostChange]
/*******************************************************************************
*****
*
* Gerar NF de entrada, a partir do XML enviado pelo Fornecedor.
*
*******************************************************************************
*****/
/*******************************************************************************
*****
* Mauri R. Back - MMC - mmcb.sds4359 - 14/08/2013
*
* Gerar Recebimento Fisico e Fiscal a partir do XML enviado pelo Fornecedor.
*
*******************************************************************************
*****/
/*******************************************************************************
*****
* Mauri R. Back - MMC - mmcb.hd207045 - 09/07/2014
*
* Gravar FCI
*
*******************************************************************************
*****/
/*******************************************************************************
*****
* Wagner Sorio - MMC - mmcb.hd219468 - 07/11/2014
*
* Correo do campo BUSINESS_UNIT_GL
*
*******************************************************************************
*****/
/*Gera o Cabealho do Documento Fiscal via XML - Similar painel entrada direta*/
/*Function GERAR_CAB_DOC_FISCAL_VIA_XML(&P_BUSINESS_UNIT, &P_NF_BRL_ID, &P_NF_BR
L, &P_NF_BRL_SERIES, &P_NF_BRL_DATE, &P_MMC_CHAVE_ACS_NFE, &P_SETID, &P_VENDOR_I
D, &P_NAME1, &P_ADDRESS_SEQ_NUM, &P_VNDR_LOC, &P_SHIPTO_ID, &P_EF_LOC_BRL, &P_SH
IP_FROM_STATE, &P_SHIP_BRL_TO_STATE, &P_MERCH_ORIG_AMT_PBL, &P_GROSS_AMT, &P_ICM
STAX_BRL_BSE, &P_ICMSTAX_BRL_AMT, &P_IPITAX_BRL_AMT, &P_PISTAX_BRL_AMT, &P_COFIN
STAX_BRL_AMT, &P_ICMSSUB_BRL_BSS, &P_ICMSSUB_BRL_AMT, &P_FREIGHT_AMT, &P_INSURAN
CE_BRL_AMT, &P_OTHEREXP_BRL_AMT)*/ /*mmcb.sds4359.lo*/
Function GERAR_CAB_DOC_FISCAL_VIA_XML(&P_BUSINESS_UNIT, &P_NF_BRL_ID, &P_NF_BRL,
&P_NF_BRL_SERIES, &P_NF_BRL_DATE, &P_MMC_CHAVE_ACS_NFE, &P_SETID, &P_VENDOR_ID,
&P_NAME1, &P_ADDRESS_SEQ_NUM, &P_VNDR_LOC, &P_SHIPTO_ID, &P_EF_LOC_BRL, &P_SHIP
_FROM_STATE, &P_SHIP_BRL_TO_STATE, &P_MERCH_ORIG_AMT_PBL, &P_GROSS_AMT, &P_ICMST
AX_BRL_BSE, &P_ICMSTAX_BRL_AMT, &P_IPITAX_BRL_AMT, &P_PISTAX_BRL_AMT, &P_COFINST
AX_BRL_AMT, &P_ICMSSUB_BRL_BSS, &P_ICMSSUB_BRL_AMT, &P_FREIGHT_AMT, &P_INSURANCE

_BRL_AMT, &P_OTHEREXP_BRL_AMT, &P_BUSINESS_UNIT_RECV, &P_RECEIVER_ID, &P_ORIGIN_
METHOD, &RT_TYPE) /*mmcb.sds4359.ln*/
/*Gravar os dados na tabela NF_HDR_BRL (Cabealho do documento fiscal)*/
&NF_HDR_BRL = CreateRecord(Record.NF_HDR_BRL);
&NF_HDR_BRL.BUSINESS_UNIT.VALUE = &P_BUSINESS_UNIT;
&NF_HDR_BRL.NF_BRL_ID.VALUE = &P_NF_BRL_ID;
&NF_HDR_BRL.VENDOR_ID.VALUE = &P_VENDOR_ID;
&NF_HDR_BRL.NF_BRL.VALUE = &P_NF_BRL;
&NF_HDR_BRL.NF_BRL_SERIES.VALUE = &P_NF_BRL_SERIES;
&NF_HDR_BRL.NF_BRL_TYPE.VALUE = "NFE";
&NF_HDR_BRL.NF_BRL_DATE.VALUE = &P_NF_BRL_DATE;
&NF_HDR_BRL.SHIP_DATE.VALUE = %Date;
&NF_HDR_BRL.NF_BRL_STATUS.VALUE = "O";
&NF_HDR_BRL.NF_STATUS_BBL.VALUE = " ";
&NF_HDR_BRL.NF_BRL_TTL_LINES.VALUE = 99999;
&NF_HDR_BRL.NF_BRL_FATURA.VALUE = &P_NF_BRL;
&NF_HDR_BRL.MAX_LINE.VALUE = 99999;
&NF_HDR_BRL.CFO_BRL_CD.VALUE = " ";
&NF_HDR_BRL.PURCH_PROP_BRL.VALUE = " ";
&NF_HDR_BRL.REMIT_VENDOR.VALUE = &P_VENDOR_ID;
&NF_HDR_BRL.REMIT_ADDR_SEQ_NUM.VALUE = &P_ADDRESS_SEQ_NUM;
&NF_HDR_BRL.REMIT_SETID.VALUE = &P_SETID;
&NF_HDR_BRL.REMIT_LOC.VALUE = &P_VNDR_LOC;
&NF_HDR_BRL.SHIP_FROM_STATE.VALUE = &P_SHIP_FROM_STATE;
&NF_HDR_BRL.SHIP_BRL_TO_STATE.VALUE = &P_SHIP_BRL_TO_STATE;
/*DELIVERED_DT = Null*/
/*&NF_HDR_BRL.ORIGIN_METHOD.VALUE = "P"; */ /*MMCB.SDS4359.LO*/
&NF_HDR_BRL.ORIGIN_METHOD.VALUE = &P_ORIGIN_METHOD; /*MMCB.SDS4359.LN*/
&NF_HDR_BRL.VENDOR_SETID.VALUE = &P_SETID;
&NF_HDR_BRL.VNDR_LOC.VALUE = &P_VNDR_LOC;
&NF_HDR_BRL.ACCOUNTING_DT.VALUE = %Date;
&NF_HDR_BRL.PROCESS_INSTANCE.VALUE = 0;
/********************* mmcb.hd219468.so *********************/
/* &NF_HDR_BRL.BUSINESS_UNIT_GL.VALUE = &P_SETID; */
/********************* mmcb.hd219468.eo *********************/
/********************* mmcb.hd219468.sn *********************/
SQLExec("SELECT BUSINESS_UNIT_GL FROM SYSADM.PS_BUS_UNIT_TBL_PM WHERE BUSINES
S_UNIT = :1 ", &P_BUSINESS_UNIT, &NF_HDR_BRL.BUSINESS_UNIT_GL.VALUE);
If None(&NF_HDR_BRL.BUSINESS_UNIT_GL.VALUE) Then
Error ("Erro: No foi possivel encontrar Unidade Contabil. PeopleCode: MMC_P
O_LIB.NF_BRL_ID.SavePostChange.");
End-If;
/********************* mmcb.hd219468.en *********************/
&NF_HDR_BRL.DST_CNTRL_ID.VALUE = " ";
&NF_HDR_BRL.GROSS_AMT.VALUE = &P_GROSS_AMT;
&NF_HDR_BRL.GROSS_AMT_BSE.VALUE = &P_GROSS_AMT;
&NF_HDR_BRL.TXN_CURRENCY_CD.VALUE = "BRL";
/* &NF_HDR_BRL.RT_TYPE.VALUE = " "; */ /*MMCB.SDS4359.LO*/
&NF_HDR_BRL.RT_TYPE.VALUE = &RT_TYPE; /*MMCB.SDS4359.LN*/
&NF_HDR_BRL.RATE_DIV.VALUE = 1;
&NF_HDR_BRL.RATE_MULT.VALUE = 1;
&NF_HDR_BRL.CUR_RT_SOURCE.VALUE = "T";
&NF_HDR_BRL.BASE_CURRENCY.VALUE = "BRL";
&NF_HDR_BRL.DSCNT_AMT.VALUE = 0;
&NF_HDR_BRL.DSCNT_AMT_BSE.VALUE = 0;
&NF_HDR_BRL.FREIGHT_AMT.VALUE = &P_FREIGHT_AMT;
&NF_HDR_BRL.FREIGHT_AMT_BSE.VALUE = &P_FREIGHT_AMT;
&NF_HDR_BRL.INSURANCE_BRL_AMT.VALUE = &P_INSURANCE_BRL_AMT;
&NF_HDR_BRL.INSURANCE_BRL_BSE.VALUE = &P_INSURANCE_BRL_AMT;
&NF_HDR_BRL.OTHEREXP_BRL_AMT.VALUE = &P_OTHEREXP_BRL_AMT;
&NF_HDR_BRL.OTHEREXP_BRL_BSE.VALUE = &P_OTHEREXP_BRL_AMT;
&NF_HDR_BRL.PYMNT_TERMS_CD.VALUE = "30D";
&NF_HDR_BRL.ENTERED_DT.VALUE = %Date;
&NF_HDR_BRL.LAST_UPDATE_DT.VALUE = %Date;
&NF_HDR_BRL.MERCHANDISE_AMT.VALUE = &P_MERCH_ORIG_AMT_PBL;
&NF_HDR_BRL.MERCH_AMT_BSE.VALUE = &P_MERCH_ORIG_AMT_PBL;
&NF_HDR_BRL.ISSTAX_BRL_AMT.VALUE = 0;
&NF_HDR_BRL.ISSTAX_BRL_BSE.VALUE = 0;
&NF_HDR_BRL.ISSTAX_BRL_CD.VALUE = " ";
&NF_HDR_BRL.ISSTAX_BRL_BSS.VALUE = 0;
&NF_HDR_BRL.INSS_BRL_RETENTION.VALUE = 0;
&NF_HDR_BRL.INSS_BRL_RET_BSE.VALUE = 0;
&NF_HDR_BRL.IRTAX_BRL_AMT.VALUE = 0;
&NF_HDR_BRL.IRTAX_BRL_BSE.VALUE = 0;
&NF_HDR_BRL.IRTAX_BRL_BSS.VALUE = 0;
&NF_HDR_BRL.IRTAX_BRL_CD.VALUE = " ";
&NF_HDR_BRL.IPITAX_BRL_AMT.VALUE = &P_IPITAX_BRL_AMT;
&NF_HDR_BRL.IPITAX_BRL_BSE.VALUE = &P_IPITAX_BRL_AMT;
&NF_HDR_BRL.IPITAX_BRL_RCVRY.VALUE = 0;
&NF_HDR_BRL.ICMSTAX_BRL_AMT.VALUE = &P_ICMSTAX_BRL_AMT;
&NF_HDR_BRL.ICMSTAX_BRL_BSE.VALUE = &P_ICMSTAX_BRL_BSE;
&NF_HDR_BRL.ICMSTAX_BRL_BSS.VALUE = &P_ICMSTAX_BRL_BSE;
&NF_HDR_BRL.ICMSTAX_BRL_RCVRY.VALUE = &P_ICMSTAX_BRL_AMT;
&NF_HDR_BRL.ICMSTAX_BRL_RETENT.VALUE = 0;
&NF_HDR_BRL.ICMSTAX_BRL_DUE.VALUE = 0;
&NF_HDR_BRL.ICMSSUB_BRL_AMT.VALUE = &P_ICMSSUB_BRL_AMT;
&NF_HDR_BRL.ICMSSUB_BRL_BSE.VALUE = &P_ICMSSUB_BRL_AMT;
&NF_HDR_BRL.ICMSSUB_BRL_BSS.VALUE = &P_ICMSSUB_BRL_BSS;
&NF_HDR_BRL.TAX_BRL_CALC_FLG.VALUE = "Y";
&NF_HDR_BRL.TRANSPORT_CD.VALUE = " ";
&NF_HDR_BRL.TRANSPORT_MODE.VALUE = " ";
&NF_HDR_BRL.NAME1.VALUE = " ";
&NF_HDR_BRL.ADDRESS1.VALUE = " ";
&NF_HDR_BRL.ADDRESS2.VALUE = " ";
&NF_HDR_BRL.CITY_CD_BBL.VALUE = " ";
&NF_HDR_BRL.CITY.VALUE = " ";
&NF_HDR_BRL.STATE.VALUE = " ";
&NF_HDR_BRL.ZIP.VALUE = " ";
&NF_HDR_BRL.COUNTRY.VALUE = "BRA";
&NF_HDR_BRL.NET_WEIGHT_BRL.VALUE = 0;
&NF_HDR_BRL.GROSS_WEIGHT_BRL.VALUE = 0;
&NF_HDR_BRL.UOM_WEIGHT.VALUE = " ";
&NF_HDR_BRL.QTY_VOL_BRL.VALUE = 0;
&NF_HDR_BRL.NUM_VOL_BRL.VALUE = 0;
&NF_HDR_BRL.TRADE_VOL_BRL.VALUE = " ";
&NF_HDR_BRL.TYPE_VOL_BRL.VALUE = " ";
&NF_HDR_BRL.CGC_BRL.VALUE = " ";
&NF_HDR_BRL.IE_BRL.VALUE = " ";
&NF_HDR_BRL.FREIGHT_PAY_BY_BRL.VALUE = " ";
&NF_HDR_BRL.LICENCE_PLATE_BRL.VALUE = " ";
&NF_HDR_BRL.VOUCHER_ID.VALUE = " ";
/*&NF_HDR_BRL.RECEIVER_ID.VALUE = " ";*/ /*mmcb.sds4359.lo*/
&NF_HDR_BRL.RECEIVER_ID.VALUE = &P_RECEIVER_ID; /*mmcb.sds4359.ln*/
/*&NF_HDR_BRL.BUSINESS_UNIT_RECV.VALUE = " ";*/ /*mmcb.sds4359.lo*/
&NF_HDR_BRL.BUSINESS_UNIT_RECV.VALUE = &P_BUSINESS_UNIT_RECV; /*mmcb.sds4359.

ln*/
&NF_HDR_BRL.OPRID_LAST_UPDT.VALUE = %OperatorId;
&NF_HDR_BRL.MTCH_STATUS_PBL.VALUE = "U";
&NF_HDR_BRL.INOUT_FLG_PBL.VALUE = "I";
&NF_HDR_BRL.PRORATE_METH_BBL.VALUE = " ";
&NF_HDR_BRL.FRGHT_PRORATE_PBL.VALUE = "A";
&NF_HDR_BRL.OTHER_PRORATE_PBL.VALUE = "A";
&NF_HDR_BRL.ICMS_COMPL_AMT_PBL.VALUE = 0;
&NF_HDR_BRL.DESCR100.VALUE = " ";
&NF_HDR_BRL.IN_PROCESS_FLG.VALUE = "N";
&NF_HDR_BRL.GROSS_AMT_PBL_DIV.VALUE = 0;
&NF_HDR_BRL.ICMSTAX_PBL_DIV.VALUE = 0;
&NF_HDR_BRL.IPITAX_PBL_DIV.VALUE = 0;
&NF_HDR_BRL.BUSPROCNAME.VALUE = " ";
&NF_HDR_BRL.APPR_RULE_SET.VALUE = " ";
&NF_HDR_BRL.APPR_INSTANCE.VALUE = 0;
&NF_HDR_BRL.APPR_CHECK_FLG.VALUE = "N";
&NF_HDR_BRL.APPR_STATUS.VALUE = "A";
&NF_HDR_BRL.DFI_PBL_APPRVL_FLG.VALUE = "P";
&NF_HDR_BRL.DESCR.VALUE = " ";
&NF_HDR_BRL.DESCR60.VALUE = " ";
&NF_HDR_BRL.LT_GRP_ID_BBL.VALUE = " ";
&NF_HDR_BRL.SHIP_TO_CUST_ID.VALUE = " ";
&NF_HDR_BRL.ADDRESS_SEQ_SHIP.VALUE = 0;
&NF_HDR_BRL.EF_LOC_BRL.VALUE = &P_EF_LOC_BRL;
&NF_HDR_BRL.LOCATION.VALUE = " ";
&NF_HDR_BRL.DESTIN_BU.VALUE = " ";
&NF_HDR_BRL.BILL_TO_CUST_ID.VALUE = " ";
&NF_HDR_BRL.ADDRESS_SEQ_NUM.VALUE = &P_ADDRESS_SEQ_NUM;
&NF_HDR_BRL.TXN_NAT_BBL.VALUE = " ";
&NF_HDR_BRL.IN_OUT_CD_BBL.VALUE = "I";
&NF_HDR_BRL.PND_ITEM_TYPE_BBL.VALUE = " ";
&NF_HDR_BRL.RMA_FLG_BBL.VALUE = " ";
&NF_HDR_BRL.TIE_NF_FLG_BBL.VALUE = " ";
&NF_HDR_BRL.ACCT_FLG_BBL.VALUE = "N";
&NF_HDR_BRL.BUSINESS_UNIT_IN.VALUE = " ";
&NF_HDR_BRL.RMNEIO_ID_BBL.VALUE = " ";
&NF_HDR_BRL.CARRIER_ID.VALUE = " ";
&NF_HDR_BRL.TRNSPORT_RESP_BBL.VALUE = " ";
&NF_HDR_BRL.FRGHT_PMT_RESP_BBL.VALUE = " ";
&NF_HDR_BRL.VEHICLE_ID.VALUE = " ";
&NF_HDR_BRL.VEHCL_ID_STATE_BBL.VALUE = " ";
&NF_HDR_BRL.RATIO_UOM_BBL.VALUE = " ";
&NF_HDR_BRL.QTY_VOL_BBL.VALUE = 0;
&NF_HDR_BRL.NUM_VOL_BBL.VALUE = " ";
&NF_HDR_BRL.NF_CREATE_DT_BBL.VALUE = %Date;
&NF_HDR_BRL.NF_ISSUE_DT_BBL.VALUE = %Date;
&NF_HDR_BRL.NF_CONF_DT_BBL.VALUE = %Date;
&NF_HDR_BRL.DST_ID_AR.VALUE = " ";
&NF_HDR_BRL.COFINS_AMT_BSE_BBL.VALUE = 0;
&NF_HDR_BRL.COFINS_BSS_AMT_BBL.VALUE = 0;
&NF_HDR_BRL.PIS_AMT_BSE_BBL.VALUE = 0;
&NF_HDR_BRL.PIS_BSS_AMT_BBL.VALUE = 0;
&NF_HDR_BRL.SERV_AMT_BBL_BSE.VALUE = 0;
&NF_HDR_BRL.RMA_ID.VALUE = " ";
&NF_HDR_BRL.INTERUNIT_FLG.VALUE = "N";
&NF_HDR_BRL.COST_ADJ_STS_PBL.VALUE = "X";
&NF_HDR_BRL.FLAG_FM_PBL.VALUE = "N";
&NF_HDR_BRL.FRT_INCR_BSE_BBL.VALUE = 0;
&NF_HDR_BRL.INSR_INCR_BSE_BBL.VALUE = 0;
&NF_HDR_BRL.OTEX_INCR_BSE_BBL.VALUE = 0;
&NF_HDR_BRL.COLLECT_COD_BRL.VALUE = " ";
&NF_HDR_BRL.DFI_ENTRY_STS_PBL.VALUE = " ";
&NF_HDR_BRL.GRP_ID_PBL.VALUE = " ";
&NF_HDR_BRL.COFINST_BSEAMT_BBL.VALUE = 0;
&NF_HDR_BRL.COFINST_BSSAMT_BBL.VALUE = 0;
&NF_HDR_BRL.PISST_BSE_AMT_BBL.VALUE = 0;
&NF_HDR_BRL.IR_BSS_AMT_BBL.VALUE = 0;
&NF_HDR_BRL.IR_BSE_AMT_BBL.VALUE = 0;
&NF_HDR_BRL.INSS_BSS_AMT_BBL.VALUE = 0;
&NF_HDR_BRL.INSS_BSE_AMT_BBL.VALUE = 0;
&NF_HDR_BRL.SHIPTO_ID.VALUE = &P_SHIPTO_ID;
&NF_HDR_BRL.NF_ID_REL_PBL.VALUE = " ";
/*PAYTRMS_DT_BSE_PBL = Null*/
&NF_HDR_BRL.VOUCHER_FLOW_PBL.VALUE = "N";
&NF_HDR_BRL.ACCOUNT_FLOW_PBL.VALUE = "A";
&NF_HDR_BRL.FLOW_ID_BBL.VALUE = " ";
&NF_HDR_BRL.FLOW_BUS_UNIT_IN.VALUE = " ";
&NF_HDR_BRL.STORAGE_AREA.VALUE = " ";
&NF_HDR_BRL.STOR_LEVEL_1.VALUE = " ";
&NF_HDR_BRL.FLOW_SHIP_ID_BBL.VALUE = " ";
&NF_HDR_BRL.FLOW_LOCATION_BBL.VALUE = " ";
&NF_HDR_BRL.ICMS_DISCOUNT_BBL.VALUE = 0;
/*DT_FLOW_BBL = Null;*/
&NF_HDR_BRL.NF_AM_FLG_BRL.VALUE = " ";
&NF_HDR_BRL.NF_IN_FLG_BBL.VALUE = " ";
&NF_HDR_BRL.DOC_CLASS_BBL.VALUE = " ";
&NF_HDR_BRL.PISST_BSS_AMT_BBL.VALUE = 0;
&NF_HDR_BRL.ECTRANSID.VALUE = " ";
&NF_HDR_BRL.ECQUEUEINSTANCE.VALUE = 0;
&NF_HDR_BRL.ECTRANSINOUTSW.VALUE = " ";
&NF_HDR_BRL.PAY_TRM_BSE_DT_OPT.VALUE = " ";
&NF_HDR_BRL.SERIE_SPIN_BBL.VALUE = 0;
&NF_HDR_BRL.IRRF_BBL_BRL.VALUE = 0;
&NF_HDR_BRL.INSSR_BBL_BRL.VALUE = 0;
&NF_HDR_BRL.MERCH_ORIG_AMT_PBL.VALUE = &P_MERCH_ORIG_AMT_PBL;
&NF_HDR_BRL.COFINS_BRL_RETENT.VALUE = 0;
&NF_HDR_BRL.PIS_BRL_RETENT.VALUE = 0;
&NF_HDR_BRL.CSLL_BRL_RETENT.VALUE = 0;
&NF_HDR_BRL.PISTAX_BRL_AMT.VALUE = &P_PISTAX_BRL_AMT;
&NF_HDR_BRL.COFINSTAX_BRL_AMT.VALUE = &P_COFINSTAX_BRL_AMT;
&NF_HDR_BRL.Insert();
/*Gravar os dados na tabela MMC_CH_ACES_NFE (Chave da NFe)*/
&MMC_CH_ACES_NFE = CreateRecord(Record.MMC_CH_ACES_NFE);
&MMC_CH_ACES_NFE.BUSINESS_UNIT.VALUE = &P_BUSINESS_UNIT;
&MMC_CH_ACES_NFE.NF_BRL_ID.VALUE = &P_NF_BRL_ID;
&MMC_CH_ACES_NFE.MMC_CHAVE_ACS_NFE.VALUE = &P_MMC_CHAVE_ACS_NFE;
&MMC_CH_ACES_NFE.Insert();
End-Function;
/*Gera as linhas do Documento Fiscal via XML - Similar painel entrada direta*/
/*Function GERAR_LN_DOC_FISCAL_VIA_XML(&P_BUSINESS_UNIT, &P_NF_BRL_ID, &P_SETID,
&P_SHIPTO_ID, &P_NF_BRL_LINE_NUM, &P_INV_ITEM_ID, &P_DESCR, &P_UNIT_OF_MEASURE,
&P_ACCOUNT, &P_TAX_TYPE_BRL, &P_TAX_CLASS_BRL, &P_ITEM_ORIGIN_BBL, &P_QTY_NF_BR

L, &P_UNIT_PRICE, &P_MERCH_ORIG_AMT_PBL, &P_DSCNT_AMT, &P_ICMSTAX_BRL_BSS, &P_IC
MSTAX_BRL_PCT, &P_ICMSTAX_BRL_RED, &P_ICMSTAX_BRL_AMT, &P_ICMSSUB_BRL_AMT, &P_IP
ITAX_BRL_BSS, &P_IPITAX_BRL_PCT, &P_IPITAX_BRL_AMT, &P_FREIGHT_AMT, &P_INSURANCE
_BRL_AMT, &P_OTHEREXP_BRL_AMT, &P_PIS_BSS_AMT_BBL, &P_PIS_PCT_BBL, &P_PISTAX_BRL
_AMT, &P_COFINS_BSS_AMT_BBL, &P_COFINS_PCT_BBL, &P_COFINSTAX_BRL_AMT)*/ /* mmcb.
sds4359.lo */
Function GERAR_LN_DOC_FISCAL_VIA_XML(&P_BUSINESS_UNIT, &P_NF_BRL_ID, &P_SETID, &
P_SHIPTO_ID, &P_NF_BRL_LINE_NUM, &P_INV_ITEM_ID, &P_DESCR, &P_UNIT_OF_MEASURE, &
P_ACCOUNT, &P_TAX_TYPE_BRL, &P_TAX_CLASS_BRL, &P_ITEM_ORIGIN_BBL, &P_QTY_NF_BRL,
&P_UNIT_PRICE, &P_MERCH_ORIG_AMT_PBL, &P_DSCNT_AMT, &P_ICMSTAX_BRL_BSS, &P_ICMS
TAX_BRL_PCT, &P_ICMSTAX_BRL_RED, &P_ICMSTAX_BRL_AMT, &P_ICMSSUB_BRL_AMT, &P_IPIT
AX_BRL_BSS, &P_IPITAX_BRL_PCT, &P_IPITAX_BRL_AMT, &P_FREIGHT_AMT, &P_INSURANCE_B
RL_AMT, &P_OTHEREXP_BRL_AMT, &P_PIS_BSS_AMT_BBL, &P_PIS_PCT_BBL, &P_PISTAX_BRL_A
MT, &P_COFINS_BSS_AMT_BBL, &P_COFINS_PCT_BBL, &P_COFINSTAX_BRL_AMT, &P_BUSINESS_
UNIT_RECV, &P_RECEIVER_ID, &P_PO_ID, &DEPTID, &SCHED_NBR, &RECV_LN_NBR, &RECV_SH
IP_SEQ_NBR, &PO_DIST_LINE_NUM, &RECV_DIST_LINE_NUM, &P_BUSINESS_UNIT_IN, &P_LINE
_NBR, &TOF_PBL, &CFOP_INCOM_PBL, &PURCH_PROP_BRL, &PROJECT_ID, &PROFILE_ID, &BUS
INESS_UNIT_AM, &ANALYSIS_TYPE, &BUSINESS_UNIT_PC, &WTHD_CD) /* mmcb.sds4359.ln *
/
/*Gravar os dados na tabela NF_LN_BRL (Linhas do documento fiscal)*/
&NF_LN_BRL = CreateRecord(Record.NF_LN_BRL);
&NF_LN_BRL.BUSINESS_UNIT.VALUE = &P_BUSINESS_UNIT;
&NF_LN_BRL.NF_BRL_ID.VALUE = &P_NF_BRL_ID;
&NF_LN_BRL.NF_BRL_LINE_NUM.VALUE = &P_NF_BRL_LINE_NUM;
&NF_LN_BRL.TOTAL_DISTRIBS.VALUE = 1;
&NF_LN_BRL.MAX_DISTRIB_LINE.VALUE = 1;
/*&NF_LN_BRL.BUSINESS_UNIT_PO.VALUE = " ";*/ /* MMCB.SDS4359.LO */
&NF_LN_BRL.BUSINESS_UNIT_PO.VALUE = &P_BUSINESS_UNIT_RECV; /* MMCB.SDS4359.LN
*/
/* &NF_LN_BRL.PO_ID.VALUE = " "; */ /* MMCB.SDS4359.LO */
&NF_LN_BRL.PO_ID.VALUE = &P_PO_ID; /* MMCB.SDS4359.LN */
&NF_LN_BRL.ITM_SETID.VALUE = &P_SETID;
&NF_LN_BRL.INV_ITEM_ID.VALUE = &P_INV_ITEM_ID;
&NF_LN_BRL.DESCR.VALUE = &P_DESCR;
&NF_LN_BRL.MERCHANDISE_AMT.VALUE = &P_MERCH_ORIG_AMT_PBL;
&NF_LN_BRL.MERCH_AMT_BSE.VALUE = &P_MERCH_ORIG_AMT_PBL;
&NF_LN_BRL.QTY_NF_BRL.VALUE = &P_QTY_NF_BRL;
&NF_LN_BRL.STATISTIC_AMOUNT.VALUE = 0;
&NF_LN_BRL.UNIT_OF_MEASURE.VALUE = &P_UNIT_OF_MEASURE;
&NF_LN_BRL.UNIT_PRICE.VALUE = &P_UNIT_PRICE;
&NF_LN_BRL.FREIGHT_AMT_BSE.VALUE = 0;
&NF_LN_BRL.FREIGHT_AMT.VALUE = &P_FREIGHT_AMT;
&NF_LN_BRL.INSURANCE_BRL_AMT.VALUE = &P_INSURANCE_BRL_AMT;
&NF_LN_BRL.INSURANCE_BRL_BSE.VALUE = 0;
&NF_LN_BRL.OTHEREXP_BRL_AMT.VALUE = &P_OTHEREXP_BRL_AMT;
&NF_LN_BRL.OTHEREXP_BRL_BSE.VALUE = 0;
&NF_LN_BRL.DSCNT_AMT.VALUE = &P_DSCNT_AMT;
&NF_LN_BRL.DSCNT_AMT_BSE.VALUE = 0;
&NF_LN_BRL.DSCNT_PCT.VALUE = 0;
&NF_LN_BRL.ERROR_FLAG.VALUE = "N";
/**************** MMCB.SDS4359.SO **********************/
/*
&NF_LN_BRL.BUSINESS_UNIT_RECV.VALUE = " ";
&NF_LN_BRL.RECEIVER_ID.VALUE = " ";
&NF_LN_BRL.RECV_LN_NBR.VALUE = 0;
&NF_LN_BRL.RECV_SHIP_SEQ_NBR.VALUE = 0;
*/
/**************** MMCB.SDS4359.SO **********************/

/**************** MMCB.SDS4359.SN **********************/
&NF_LN_BRL.BUSINESS_UNIT_RECV.VALUE = &P_BUSINESS_UNIT_RECV;
&NF_LN_BRL.RECEIVER_ID.VALUE = &P_RECEIVER_ID;
&NF_LN_BRL.RECV_LN_NBR.VALUE = &RECV_LN_NBR;
&NF_LN_BRL.RECV_SHIP_SEQ_NBR.VALUE = &RECV_SHIP_SEQ_NBR;
/**************** MMCB.SDS4359.EO **********************/
&NF_LN_BRL.SHIPTO_ID.VALUE = &P_SHIPTO_ID;
&NF_LN_BRL.TXN_CURRENCY_CD.VALUE = "BRL";
&NF_LN_BRL.BASE_CURRENCY.VALUE = "BRL";
&NF_LN_BRL.CURRENCY_CD.VALUE = "BRL";
&NF_LN_BRL.CFO_BRL_CD.VALUE = " ";
/*&NF_LN_BRL.PURCH_PROP_BRL.VALUE = " ";*/ /*MMCB.SDS4359.LO*/
&NF_LN_BRL.PURCH_PROP_BRL.VALUE = &PURCH_PROP_BRL; /*MMCB.SDS4359.LN*/
&NF_LN_BRL.TAX_CLASS_BRL.VALUE = &P_TAX_CLASS_BRL;
&NF_LN_BRL.IPITAX_BRL_BSE.VALUE = 0;
&NF_LN_BRL.IPITAX_BRL_AMT.VALUE = &P_IPITAX_BRL_AMT;
&NF_LN_BRL.IPITAX_BRL_PCT.VALUE = &P_IPITAX_BRL_PCT;
&NF_LN_BRL.IPITAX_BRL_RCVRY.VALUE = 0;
&NF_LN_BRL.IPITAX_BRL_BSS.VALUE = &P_IPITAX_BRL_BSS;
&NF_LN_BRL.TAX_TYPE_BRL.VALUE = &P_TAX_TYPE_BRL;
&NF_LN_BRL.ICMSTAX_BRL_BSE.VALUE = 0;
&NF_LN_BRL.ICMSTAX_BRL_AMT.VALUE = &P_ICMSTAX_BRL_AMT;
&NF_LN_BRL.ICMSTAX_BRL_PCT.VALUE = &P_ICMSTAX_BRL_PCT;
&NF_LN_BRL.ICMSTAX_BRL_RED.VALUE = &P_ICMSTAX_BRL_RED;
&NF_LN_BRL.ICMSTAX_BRL_RCVRY.VALUE = 0;
&NF_LN_BRL.ICMSTAX_BRL_BSS.VALUE = &P_ICMSTAX_BRL_BSS;
&NF_LN_BRL.ICMSSUB_BRL_AMT.VALUE = &P_ICMSSUB_BRL_AMT;
&NF_LN_BRL.ICMSSUB_BRL_BSE.VALUE = &P_ICMSTAX_BRL_BSS;
&NF_LN_BRL.ICMSTAX_BRL_DUE.VALUE = 0;
&NF_LN_BRL.ICMSTAX_BRL_RETENT.VALUE = 0;
/*&NF_LN_BRL.CFOP_INCOM_PBL.VALUE = " ";*/ /*MMCB.SDS4359.LO*/
&NF_LN_BRL.CFOP_INCOM_PBL.VALUE = &CFOP_INCOM_PBL; /*MMCB.SDS4359.LN*/
&NF_LN_BRL.CFOP_EXT_CD_BBL.VALUE = " ";
&NF_LN_BRL.IPI_CRLIM_PCT_PBL.VALUE = 0;
&NF_LN_BRL.IPI_EXTCR_PCT_PBL.VALUE = 0;
&NF_LN_BRL.ICMS_CRLIM_PCT_PBL.VALUE = 0;
&NF_LN_BRL.ICMS_EXTCR_PCT_PBL.VALUE = 0;
&NF_LN_BRL.ICMS_COMPL_PCT_PBL.VALUE = 0;
&NF_LN_BRL.ICMS_COMPL_AMT_PBL.VALUE = 0;
&NF_LN_BRL.ICMSTAX_PBL_DIV.VALUE = 0;
&NF_LN_BRL.IPITAX_PBL_DIV.VALUE = 0;
/*&NF_LN_BRL.TOF_PBL.VALUE = " ";*/ /*MMCB.SDS4359.LO*/
&NF_LN_BRL.TOF_PBL.VALUE = &TOF_PBL; /*MMCB.SDS4359.LN*/
&NF_LN_BRL.NF_LINE_TYPE_BBL.VALUE = " ";
&NF_LN_BRL.RMNEIO_LINE_NO_BBL.VALUE = 0;
&NF_LN_BRL.DEMAND_SOURCE.VALUE = " ";
&NF_LN_BRL.SOURCE_BUS_UNIT.VALUE = " ";
&NF_LN_BRL.PRODUCT_ID.VALUE = " ";
/* &NF_LN_BRL.KIT_LINE_NBR.VALUE = 0; */ /*MMCB.SDS4359.LO*/
&NF_LN_BRL.KIT_LINE_NBR.VALUE = &P_LINE_NBR; /*MMCB.SDS4359.LN*/
&NF_LN_BRL.ITEM_ORIGIN_BBL.VALUE = &P_ITEM_ORIGIN_BBL;
&NF_LN_BRL.SIT_TRIB_ICMS_BBL.VALUE = " ";
&NF_LN_BRL.INT_TAX_CLASS_BRL.VALUE = " ";
&NF_LN_BRL.UNIT_AMT_BSE_BBL.VALUE = 0;
&NF_LN_BRL.NET_AMT_BSE_BBL.VALUE = 0;
&NF_LN_BRL.UNIT_COST.VALUE = 0;
&NF_LN_BRL.COFINS_BSS_AMT_BBL.VALUE = &P_COFINS_BSS_AMT_BBL;
&NF_LN_BRL.COFINS_PCT_BBL.VALUE = &P_COFINS_PCT_BBL;
&NF_LN_BRL.COFINS_AMT_BBL.VALUE = 0;
&NF_LN_BRL.COFINS_AMT_BSE_BBL.VALUE = 0;
&NF_LN_BRL.PIS_BSS_AMT_BBL.VALUE = &P_PIS_BSS_AMT_BBL;
&NF_LN_BRL.PIS_PCT_BBL.VALUE = &P_PIS_PCT_BBL;
&NF_LN_BRL.PIS_AMT_BBL.VALUE = 0;
&NF_LN_BRL.PIS_AMT_BSE_BBL.VALUE = 0;
&NF_LN_BRL.ISSTAX_BRL_BSS.VALUE = 0;
&NF_LN_BRL.ISSTAX_BRL_PCT.VALUE = 0;
&NF_LN_BRL.ISSTAX_BRL_AMT.VALUE = 0;
&NF_LN_BRL.ISSTAX_BRL_BSE.VALUE = 0;
&NF_LN_BRL.MVA_PCT_BBL.VALUE = 0;
&NF_LN_BRL.LT_IPI_BSE_BBL.VALUE = 0;
&NF_LN_BRL.LT_ICMS_BSE_BBL.VALUE = 0;
&NF_LN_BRL.LT_ICMS_ST_BSE_BBL.VALUE = 0;
&NF_LN_BRL.LT_PIS_BSE_BBL.VALUE = 0;
&NF_LN_BRL.LT_COFINS_BSE_BBL.VALUE = 0;
&NF_LN_BRL.LT_ISS_BSE_BBL.VALUE = 0;
&NF_LN_BRL.FIN_CHG_PCT_BBL.VALUE = 0;
&NF_LN_BRL.FINCHG_AMT_BBL.VALUE = 0;
&NF_LN_BRL.FINCHG_AMT_BSE_BBL.VALUE = 0;
&NF_LN_BRL.NET_UNIT_PRICE.VALUE = 0;
&NF_LN_BRL.NF_ACT_TMPL_BBL.VALUE = " ";
&NF_LN_BRL.ICMSTAX_STS_BBL.VALUE = " ";
&NF_LN_BRL.ICMSSUB_STS_BBL.VALUE = " ";
&NF_LN_BRL.IPITAX_STS_BBL.VALUE = " ";
&NF_LN_BRL.ISSTAX_STS_BBL.VALUE = " ";
&NF_LN_BRL.IRTAX_STS_BBL.VALUE = " ";
&NF_LN_BRL.INSSTAX_STS_BBL.VALUE = " ";
&NF_LN_BRL.IPI_IN_ICMSBAS_BBL.VALUE = " ";
&NF_LN_BRL.ICMS_RED_BSE_BBL.VALUE = 0;
&NF_LN_BRL.ICMSST_RED_BSE_BBL.VALUE = 0;
&NF_LN_BRL.IPI_RED_BSE_BBL.VALUE = 0;
&NF_LN_BRL.ISS_RED_BSE_BBL.VALUE = 0;
&NF_LN_BRL.ICMSSUB_BRL_BSS.VALUE = 0;
&NF_LN_BRL.IR_RED_BSE_BBL.VALUE = 0;
&NF_LN_BRL.INSS_RED_BSE_BBL.VALUE = 0;
&NF_LN_BRL.ICMSST_PCT_BBL.VALUE = 0;
&NF_LN_BRL.GROSS_AMT_BSE.VALUE = 0;
&NF_LN_BRL.DST_ID_DIS.VALUE = " ";
&NF_LN_BRL.DST_ID_REV.VALUE = " ";
&NF_LN_BRL.DST_ID_SUR.VALUE = " ";
&NF_LN_BRL.INVENTORY_ITEM.VALUE = "Y";
&NF_LN_BRL.COST_ADJ_STS_PBL.VALUE = "X";
&NF_LN_BRL.FRT_INCR_BSE_BBL.VALUE = 0;
&NF_LN_BRL.INSR_INCR_BSE_BBL.VALUE = 0;
&NF_LN_BRL.OTEX_INCR_BSE_BBL.VALUE = 0;
/*&NF_LN_BRL.WTHD_CD.VALUE = " ";*/ /*MMCB.SDS4359.LO*/
&NF_LN_BRL.WTHD_CD.VALUE = &WTHD_CD; /*MMCB.SDS4359.LN*/
&NF_LN_BRL.PROCESS_INSTANCE.VALUE = 0;
&NF_LN_BRL.DESCR254_MIXED.VALUE = &P_DESCR;
&NF_LN_BRL.PYMNT_TERMS_CD.VALUE = "30D";
&NF_LN_BRL.PAY_TRM_BSE_DT_OPT.VALUE = " ";
&NF_LN_BRL.ICMS_COMPL_FLG_PBL.VALUE = "N";
&NF_LN_BRL.COFINST_BSSAMT_BBL.VALUE = 0;
&NF_LN_BRL.COFINSST_PCT_BBL.VALUE = 0;
&NF_LN_BRL.COFINSST_AMT_BBL.VALUE = 0;
&NF_LN_BRL.COFINST_BSEAMT_BBL.VALUE = 0;
&NF_LN_BRL.LT_COFINSSTBSE_BBL.VALUE = 0;
&NF_LN_BRL.PISST_BSS_AMT_BBL.VALUE = 0;
&NF_LN_BRL.PISST_PCT_BBL.VALUE = 0;
&NF_LN_BRL.PISST_AMT_BBL.VALUE = 0;
&NF_LN_BRL.PISST_BSE_AMT_BBL.VALUE = 0;
&NF_LN_BRL.LT_PISS_BSE_BBL.VALUE = 0;
&NF_LN_BRL.IR_BSS_AMT_BBL.VALUE = 0;
&NF_LN_BRL.IR_PCT_BBL.VALUE = 0;
&NF_LN_BRL.IR_BSE_AMT_BBL.VALUE = 0;
&NF_LN_BRL.IR_AMT_BBL.VALUE = 0;
&NF_LN_BRL.LT_IRBSE_BBL.VALUE = 0;
&NF_LN_BRL.INSS_BSS_AMT_BBL.VALUE = 0;
&NF_LN_BRL.INSS_PCT_BBL.VALUE = 0;
&NF_LN_BRL.INSS_BSE_AMT_BBL.VALUE = 0;
&NF_LN_BRL.INSS_AMT_BBL.VALUE = 0;
&NF_LN_BRL.LT_INSSBSE_BBL.VALUE = 0;
&NF_LN_BRL.IF_BRL.VALUE = " ";
&NF_LN_BRL.DISTRIB_MTHD_FLG.VALUE = "A";
/*PAYTRMS_DT_BSE_PBL = Null;*/
&NF_LN_BRL.FLOW_STATUS_PBL.VALUE = "A";
&NF_LN_BRL.RTV_ID.VALUE = " ";
&NF_LN_BRL.RTV_LN_NBR.VALUE = 0;
&NF_LN_BRL.FLOW_ID_BBL.VALUE = " ";
&NF_LN_BRL.FLOW_BUS_UNIT_IN.VALUE = " ";
&NF_LN_BRL.STORAGE_AREA.VALUE = " ";
&NF_LN_BRL.STOR_LEVEL_1.VALUE = " ";
&NF_LN_BRL.FLOW_SHIP_ID_BBL.VALUE = " ";
&NF_LN_BRL.FLOW_LOCATION_BBL.VALUE = " ";
&NF_LN_BRL.ICMS_DISCOUNT_BBL.VALUE = 0;
/*DT_FLOW_BBL = Null;*/
&NF_LN_BRL.COEF_BASE_FLG_PBL.VALUE = " ";
&NF_LN_BRL.COEF_BASE_ICMS_PBL.VALUE = 0;
&NF_LN_BRL.COEF_BASE_IPI_PBL.VALUE = 0;
&NF_LN_BRL.MERCH_ORIG_AMT_PBL.VALUE = &P_MERCH_ORIG_AMT_PBL;
&NF_LN_BRL.IPITAX_BRL_RED.VALUE = 0;
&NF_LN_BRL.COEF_BASE_COFI_PBL.VALUE = 1;
&NF_LN_BRL.CF_IPI_ID_PBL.VALUE = " ";
&NF_LN_BRL.CF_ICMS_ID_PBL.VALUE = " ";
&NF_LN_BRL.CF_PIS_ID_PBL.VALUE = " ";
&NF_LN_BRL.CF_COFINS_ID_PBL.VALUE = " ";
&NF_LN_BRL.COEF_BASE_PIS_PBL.VALUE = 0;
&NF_LN_BRL.COFI_CRLIM_PCT_PBL.VALUE = 0;
&NF_LN_BRL.PIS_CRLIM_PCT_PBL.VALUE = 0;
&NF_LN_BRL.COFINSTAX_BRL_AMT.VALUE = &P_COFINSTAX_BRL_AMT;
&NF_LN_BRL.PISTAX_BRL_AMT.VALUE = &P_PISTAX_BRL_AMT;
&NF_LN_BRL.PIS_TAX_STATUS_PBL.VALUE = " ";
&NF_LN_BRL.COFI_TX_STATUS_PBL.VALUE = " ";
&NF_LN_BRL.Insert();
/*Gravar os dados na tabela BRL_DISTRIB_LN (Distribuio do documento fiscal)*/
&BRL_DISTRIB_LN = CreateRecord(Record.BRL_DISTRIB_LN);
&BRL_DISTRIB_LN.BUSINESS_UNIT.VALUE = &P_BUSINESS_UNIT;
&BRL_DISTRIB_LN.NF_BRL_ID.VALUE = &P_NF_BRL_ID;
&BRL_DISTRIB_LN.NF_BRL_LINE_NUM.VALUE = &P_NF_BRL_LINE_NUM;
&BRL_DISTRIB_LN.DISTRIB_LINE_NUM.VALUE = 1;
&BRL_DISTRIB_LN.SUSPENSE_REF_NUM.VALUE = 0;
/********************* mmcb.hd219468.so *********************/
/* &BRL_DISTRIB_LN.BUSINESS_UNIT_GL.VALUE = &P_SETID;
*/
/********************* mmcb.hd219468.eo *********************/
/********************* mmcb.hd219468.sn *********************/

SQLExec("SELECT BUSINESS_UNIT_GL FROM SYSADM.PS_BUS_UNIT_TBL_PM WHERE BUSINES
S_UNIT = :1 ", &P_BUSINESS_UNIT, &BRL_DISTRIB_LN.BUSINESS_UNIT_GL.VALUE);
If None(&BRL_DISTRIB_LN.BUSINESS_UNIT_GL.VALUE) Then
Error ("Erro: No foi possivel encontrar Unidade Contabil. PeopleCode: MMC_P
O_LIB.NF_BRL_ID.SavePostChange.");
End-If;
/********************* mmcb.hd219468.en *********************/
&BRL_DISTRIB_LN.ACCOUNT.VALUE = &P_ACCOUNT;
&BRL_DISTRIB_LN.STATISTICS_CODE.VALUE = " ";
&BRL_DISTRIB_LN.FOREIGN_AMOUNT.VALUE = 0;
&BRL_DISTRIB_LN.FOREIGN_CURRENCY.VALUE = "BRL";
&BRL_DISTRIB_LN.CUR_RT_TYPE.VALUE = " ";
&BRL_DISTRIB_LN.CUR_EXCHNG_RT.VALUE = 0;
&BRL_DISTRIB_LN.MONETARY_AMOUNT.VALUE = 0;
&BRL_DISTRIB_LN.STATISTIC_AMOUNT.VALUE = 0;
&BRL_DISTRIB_LN.QTY_VCHR.VALUE = &P_QTY_NF_BRL;
&BRL_DISTRIB_LN.JRNL_LN_REF.VALUE = " ";
&BRL_DISTRIB_LN.OPEN_ITEM_STATUS.VALUE = "N";
&BRL_DISTRIB_LN.DESCR.VALUE = &P_DESCR;
&BRL_DISTRIB_LN.CURRENCY_CD.VALUE = "BRL";
&BRL_DISTRIB_LN.MERCHANDISE_AMT.VALUE = &P_MERCH_ORIG_AMT_PBL;
&BRL_DISTRIB_LN.MERCH_AMT_BSE.VALUE = &P_MERCH_ORIG_AMT_PBL;
&BRL_DISTRIB_LN.DSCNT_AMT_BSE.VALUE = 0;
&BRL_DISTRIB_LN.FREIGHT_AMT_BSE.VALUE = 0;
&BRL_DISTRIB_LN.INSURANCE_BRL_AMT.VALUE = 0;
&BRL_DISTRIB_LN.ICMSSUB_BRL_AMT.VALUE = 0;
&BRL_DISTRIB_LN.INSURANCE_BRL_BSE.VALUE = 0;
&BRL_DISTRIB_LN.OTHEREXP_BRL_AMT.VALUE = 0;
&BRL_DISTRIB_LN.OTHEREXP_BRL_BSE.VALUE = 0;
&BRL_DISTRIB_LN.CHART_EDIT_STATUS.VALUE = " ";
&BRL_DISTRIB_LN.ACCOUNTING_DT.VALUE = %Date;
&BRL_DISTRIB_LN.PROCESS_INSTANCE.VALUE = 0;
&BRL_DISTRIB_LN.ERROR_FLAG.VALUE = "N";
&BRL_DISTRIB_LN.FINAL_REF_IND.VALUE = "N";
&BRL_DISTRIB_LN.REFERENCE_NUMBER.VALUE = " ";
&BRL_DISTRIB_LN.REF_CLOSED.VALUE = "N";
&BRL_DISTRIB_LN.REF_DIST_LINE.VALUE = 0;
&BRL_DISTRIB_LN.REF_LINE_NUMBER.VALUE = 0;
/**************** MMCB.SDS4359.SO *********************/
/*
&BRL_DISTRIB_LN.BUSINESS_UNIT_PO.VALUE = " ";
&BRL_DISTRIB_LN.PO_ID.VALUE = " ";
&BRL_DISTRIB_LN.SCHED_NBR.VALUE = 0;
&BRL_DISTRIB_LN.PO_DIST_LINE_NUM.VALUE = 0;
&BRL_DISTRIB_LN.ANALYSIS_TYPE.VALUE = " ";
&BRL_DISTRIB_LN.BUSINESS_UNIT_PC.VALUE = " ";
*/
/**************** MMCB.SDS4359.EO *********************/
/**************** MMCB.SDS4359.SN *********************/
&BRL_DISTRIB_LN.BUSINESS_UNIT_PO.VALUE = &P_BUSINESS_UNIT_RECV;
&BRL_DISTRIB_LN.PO_ID.VALUE = &P_PO_ID;
&BRL_DISTRIB_LN.SCHED_NBR.VALUE = &SCHED_NBR;
&BRL_DISTRIB_LN.PO_DIST_LINE_NUM.VALUE = &PO_DIST_LINE_NUM;
&BRL_DISTRIB_LN.ANALYSIS_TYPE.VALUE = &ANALYSIS_TYPE;
&BRL_DISTRIB_LN.BUSINESS_UNIT_PC.VALUE = &BUSINESS_UNIT_PC;
/**************** MMCB.SDS4359.EN *********************/
&BRL_DISTRIB_LN.ACTIVITY_ID.VALUE = " ";
&BRL_DISTRIB_LN.RESOURCE_TYPE.VALUE = " ";

&BRL_DISTRIB_LN.RESOURCE_CATEGORY.VALUE = " ";
&BRL_DISTRIB_LN.RESOURCE_SUB_CAT.VALUE = " ";
&BRL_DISTRIB_LN.MONETARY_AMT_VCHR.VALUE = 0;
&BRL_DISTRIB_LN.EXCHNG_RT_INTR_BSE.VALUE = 1;
&BRL_DISTRIB_LN.BASE_CURRENCY.VALUE = "BRL";
&BRL_DISTRIB_LN.FREIGHT_AMT.VALUE = 0;
/**************** MMCB.SDS4359.SO *********************/
/*
&BRL_DISTRIB_LN.BUSINESS_UNIT_RECV.VALUE = " ";
&BRL_DISTRIB_LN.RECEIVER_ID.VALUE = " ";
&BRL_DISTRIB_LN.RECV_LN_NBR.VALUE = 0;
&BRL_DISTRIB_LN.RECV_SHIP_SEQ_NBR.VALUE = 0;
&BRL_DISTRIB_LN.RECV_DIST_LINE_NUM.VALUE = 0;
*/
/**************** MMCB.SDS4359.EO *********************/
/**************** MMCB.SDS4359.SN *********************/
&BRL_DISTRIB_LN.RECEIVER_ID.VALUE = &P_RECEIVER_ID;
&BRL_DISTRIB_LN.BUSINESS_UNIT_RECV.VALUE = &P_BUSINESS_UNIT_RECV;
&BRL_DISTRIB_LN.RECV_LN_NBR.VALUE = &RECV_LN_NBR;
&BRL_DISTRIB_LN.RECV_SHIP_SEQ_NBR.VALUE = &RECV_SHIP_SEQ_NBR;
&BRL_DISTRIB_LN.RECV_DIST_LINE_NUM.VALUE = &RECV_DIST_LINE_NUM;
/**************** MMCB.SDS4359.EN *********************/
&BRL_DISTRIB_LN.LEDGER_GROUP.VALUE = " ";
&BRL_DISTRIB_LN.DSCNT_AMT.VALUE = 0;
&BRL_DISTRIB_LN.IPITAX_BRL_AMT.VALUE = 0;
&BRL_DISTRIB_LN.IPITAX_BRL_RCVRY.VALUE = 0;
&BRL_DISTRIB_LN.ICMSTAX_BRL_DUE.VALUE = 0;
&BRL_DISTRIB_LN.ICMSTAX_BRL_RCVRY.VALUE = 0;
&BRL_DISTRIB_LN.ICMSTAX_BRL_RETENT.VALUE = 0;
&BRL_DISTRIB_LN.OPERATING_UNIT.VALUE = " ";
/* &BRL_DISTRIB_LN.DEPTID.VALUE = " "; */ /*MMCB.SDS4359.LO*/
&BRL_DISTRIB_LN.DEPTID.VALUE = &DEPTID; /*MMCB.SDS4359.LN*/
&BRL_DISTRIB_LN.PRODUCT.VALUE = " ";
/*&BRL_DISTRIB_LN.PROJECT_ID.VALUE = " ";*/ /*MMCB.SDS4359.LO*/
&BRL_DISTRIB_LN.PROJECT_ID.VALUE = &PROJECT_ID; /*MMCB.SDS4359.LN*/
&BRL_DISTRIB_LN.AFFILIATE.VALUE = " ";
&BRL_DISTRIB_LN.ALTACCT.VALUE = " ";
&BRL_DISTRIB_LN.NF_ENTRY_TYPE_BBL.VALUE = " ";
&BRL_DISTRIB_LN.DST_ID.VALUE = " ";
&BRL_DISTRIB_LN.ICMS_COMPL_AMT_PBL.VALUE = 0;
&BRL_DISTRIB_LN.BU_IN_REF_PBL.VALUE = " ";
&BRL_DISTRIB_LN.INV_ITEM_ID.VALUE = " ";
/**************** MMCB.SDS4359.SO *********************/
/*&BRL_DISTRIB_LN.BUSINESS_UNIT_IN.VALUE = " ";
&BRL_DISTRIB_LN.LINE_NBR.VALUE = 0;
&BRL_DISTRIB_LN.BUSINESS_UNIT_AM.VALUE = " ";
&BRL_DISTRIB_LN.PROFILE_ID.VALUE = " ";*/
/**************** MMCB.SDS4359.EO *********************/
/**************** MMCB.SDS4359.SN *********************/
&BRL_DISTRIB_LN.BUSINESS_UNIT_IN.VALUE = &P_BUSINESS_UNIT_IN;
&BRL_DISTRIB_LN.LINE_NBR.VALUE = &P_LINE_NBR;
&BRL_DISTRIB_LN.BUSINESS_UNIT_AM.VALUE = &BUSINESS_UNIT_AM;
&BRL_DISTRIB_LN.PROFILE_ID.VALUE = &PROFILE_ID;
/**************** MMCB.SDS4359.EN *********************/
&BRL_DISTRIB_LN.RTV_ID.VALUE = " ";
&BRL_DISTRIB_LN.RTV_LN_NBR.VALUE = 0;
&BRL_DISTRIB_LN.RTV_DISTRIB_NUM.VALUE = 0;
&BRL_DISTRIB_LN.NF_ID_REL_PBL.VALUE = " ";
&BRL_DISTRIB_LN.NF_LINE_REL_PBL.VALUE = 0;
&BRL_DISTRIB_LN.DIST_LINE_REL_PBL.VALUE = 0;
&BRL_DISTRIB_LN.MERCH_ORIG_AMT_PBL.VALUE = &P_MERCH_ORIG_AMT_PBL;
&BRL_DISTRIB_LN.Insert();
/*Gravar os dados na tabela NF_MTCH_PBL*/
&NF_MTCH_PBL = CreateRecord(Record.NF_MTCH_PBL);
&NF_MTCH_PBL.BUSINESS_UNIT.VALUE = &P_BUSINESS_UNIT;
&NF_MTCH_PBL.NF_BRL_ID.VALUE = &P_NF_BRL_ID;
&NF_MTCH_PBL.NF_BRL_LINE_NUM.VALUE = &P_NF_BRL_LINE_NUM;
&NF_MTCH_PBL.BUSINESS_UNIT_PO.VALUE = " ";
&NF_MTCH_PBL.PO_ID.VALUE = " ";
&NF_MTCH_PBL.LINE_NBR.VALUE = 0;
&NF_MTCH_PBL.SCHED_NBR.VALUE = 0;
/*&NF_MTCH_PBL.RECEIVER_ID.VALUE = " "; */ /*mmcb.sds4359.lo*/
&NF_MTCH_PBL.RECEIVER_ID.VALUE = &P_RECEIVER_ID; /*mmcb.sds4359.ln*/
&NF_MTCH_PBL.RECV_LN_NBR.VALUE = 0;
&NF_MTCH_PBL.RECV_SHIP_SEQ_NBR.VALUE = 0;
&NF_MTCH_PBL.MERCH_AMT_NF_PBL.VALUE = 0;
&NF_MTCH_PBL.MERCH_AMT_PO.VALUE = 0;
&NF_MTCH_PBL.MERCH_AMT_RECV.VALUE = 0;
&NF_MTCH_PBL.UNIT_PRICE.VALUE = 0;
&NF_MTCH_PBL.PRICE_PO.VALUE = 0;
&NF_MTCH_PBL.PRICE_PO_RECV.VALUE = 0;
&NF_MTCH_PBL.UNIT_PRICE_CNVT.VALUE = 0;
&NF_MTCH_PBL.UNIT_PRICE_CNVTR.VALUE = 0;
&NF_MTCH_PBL.UNIT_PRC_TOL.VALUE = 0;
&NF_MTCH_PBL.PCT_UNIT_PRC_TOL.VALUE = 0;
&NF_MTCH_PBL.EXT_PRC_TOL.VALUE = 0;
&NF_MTCH_PBL.PCT_EXT_PRC_TOL.VALUE = 0;
&NF_MTCH_PBL.UNIT_PRC_TOL_L.VALUE = 0;
&NF_MTCH_PBL.PCT_UNIT_PRC_TOL_L.VALUE = 0;
&NF_MTCH_PBL.EXT_PRC_TOL_L.VALUE = 0;
&NF_MTCH_PBL.PCT_EXT_PRC_TOL_L.VALUE = 0;
&NF_MTCH_PBL.FREIGHT_AMT.VALUE = 0;
&NF_MTCH_PBL.FREIGHT_PO_PBL.VALUE = 0;
&NF_MTCH_PBL.INSURANCE_BRL_AMT.VALUE = 0;
&NF_MTCH_PBL.INSUR_AMT_PO_PBL.VALUE = 0;
&NF_MTCH_PBL.OTHEREXP_BRL_AMT.VALUE = 0;
&NF_MTCH_PBL.OTEXP_AMT_PO_PBL.VALUE = 0;
&NF_MTCH_PBL.DSCNT_AMT.VALUE = 0;
&NF_MTCH_PBL.DSCNT_AMT_PO_PBL.VALUE = 0;
&NF_MTCH_PBL.ICMSSUB_BRL_AMT.VALUE = 0;
&NF_MTCH_PBL.ICMSSUB_PO_PBL.VALUE = 0;
&NF_MTCH_PBL.ICMSTAX_BRL_PCT.VALUE = 0;
&NF_MTCH_PBL.ICMS_PCT_EXC_PBL.VALUE = 0;
&NF_MTCH_PBL.ICMSTAX_BRL_BSS.VALUE = 0;
&NF_MTCH_PBL.ICMS_BSS_EXC_PBL.VALUE = 0;
&NF_MTCH_PBL.ICMSTAX_BRL_RED.VALUE = 0;
&NF_MTCH_PBL.ICMS_RED_EXC_PBL.VALUE = 0;
&NF_MTCH_PBL.IPITAX_BRL_PCT.VALUE = 0;
&NF_MTCH_PBL.IPI_PCT_EXC_PBL.VALUE = 0;
&NF_MTCH_PBL.IPITAX_BRL_BSS.VALUE = 0;
&NF_MTCH_PBL.IPI_BSS_EXC_PBL.VALUE = 0;
&NF_MTCH_PBL.PURCH_PROP_BRL.VALUE = " ";
&NF_MTCH_PBL.PURCH_PROP_PO_PBL.VALUE = " ";
&NF_MTCH_PBL.TOF_PBL.VALUE = " ";
&NF_MTCH_PBL.TOF_PO_PBL.VALUE = " ";
&NF_MTCH_PBL.ICMS_COMPL_FLG_PBL.VALUE = "N";
&NF_MTCH_PBL.ICMSCOMPL_PO_PBL.VALUE = "N";
&NF_MTCH_PBL.IPITAX_STS_BBL.VALUE = " ";

&NF_MTCH_PBL.IPI_STS_EXC_PBL.VALUE = " ";
&NF_MTCH_PBL.ICMSTAX_STS_BBL.VALUE = " ";
&NF_MTCH_PBL.ICMS_STS_EXC_PBL.VALUE = " ";
&NF_MTCH_PBL.IPITAX_BRL_RED.VALUE = 0;
&NF_MTCH_PBL.IPI_RED_EXC_PBL.VALUE = 0;
&NF_MTCH_PBL.PIS_PCT_BBL.VALUE = 0;
&NF_MTCH_PBL.PIS_PCT_EXC_PBL.VALUE = 0;
&NF_MTCH_PBL.PIS_BSS_AMT_BBL.VALUE = 0;
&NF_MTCH_PBL.PIS_BSS_EXC_PBL.VALUE = 0;
&NF_MTCH_PBL.COFINS_PCT_BBL.VALUE = 0;
&NF_MTCH_PBL.COFINS_PCT_EXC_PBL.VALUE = 0;
&NF_MTCH_PBL.COFINS_BSS_AMT_BBL.VALUE = 0;
&NF_MTCH_PBL.COFINS_BSS_EXC_PBL.VALUE = 0;
&NF_MTCH_PBL.PIS_TAX_STATUS_PBL.VALUE = " ";
&NF_MTCH_PBL.PIS_STS_EXC_PBL.VALUE = " ";
&NF_MTCH_PBL.COFI_TX_STATUS_PBL.VALUE = " ";
&NF_MTCH_PBL.COFI_STS_EXC_PBL.VALUE = " ";
&NF_MTCH_PBL.Insert();
End-Function;
/**********************mmcb.hd207045.sn**********************/
Function GERAR_FCI_DOC_FISCAL(&P_BUSINESS_UNIT, &P_NF_BRL_ID, &P_NF_BRL_LINE_NUM
, &P_FCI)
&PCT_ICI = 0;
/*Verifica se j tem FCI gravado*/
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_NF_LN_ICI WHERE BUSINESS_UNIT = :1 AND
NF_BRL_ID = :2 AND NF_BRL_LINE_NUM = :3", &P_BUSINESS_UNIT, &P_NF_BRL_ID, &P_NF
_BRL_LINE_NUM, &EXISTE_REG);
/*Insere ou atualiza o FCI*/
If &EXISTE_REG <> "Y" Then
SQLExec("Insert into SYSADM.PS_MMC_NF_LN_ICI (BUSINESS_UNIT, NF_BRL_ID, NF
_BRL_LINE_NUM, MMC_FCI, MMC_PCT_ICI) Values (:1, :2, :3, :4, :5)", &P_BUSINESS_U
NIT, &P_NF_BRL_ID, &P_NF_BRL_LINE_NUM, &P_FCI, &PCT_ICI);
Else
SQLExec("UPDATE SYSADM.PS_MMC_NF_LN_ICI SET MMC_FCI =: 1, MMC_PCT_ICI =: 2
WHERE BUSINESS_UNIT = :3 AND NF_BRL_ID = :4 AND NF_BRL_LINE_NUM = :5", &P_FCI,
&PCT_ICI, &P_BUSINESS_UNIT, &P_NF_BRL_ID, &P_NF_BRL_LINE_NUM);
End-If;
End-Function;
/**********************mmcb.hd207045.en**********************/
[MMC_PO_LIB.PREPAID_APPL_VCHR.SavePostChange]
/*******************************************************************************
*****
* Wagner Sorio - MMC - 26/09/2010 - mmcb.hd98917
*
* Gravar Log Voucher de Adiantamento
*
********************************************************************************
*****/
/*********************************** mmcb.hd98917.sn ***************************

******/
Declare Function MMC_NUMERACAO_ID PeopleCode MMC_NUMERACAO.MMC_NUMERACAO_ID Save
PostChange;
Function GRAVA_LOG_VOUCHER_ADIANTAMENTO(&BUSINESS_UNIT, &VOUCHER_ID, &PYMNT_CNT,
&SEQNUM, &PREPAID_APPLIED_BU, &PREPAID_APPL_VCHR, &PREPAID_APPL_PYMNT, &OPRID)
&MMC_LOG_ID = MMC_NUMERACAO_ID(32);;
&DT_TIMESTAMP = %Datetime;
SQLExec("INSERT INTO SYSADM.PS_MMC_PPAY_LOG(MMC_LOG_ID, BUSINESS_UNIT, VOUCHE
R_ID, PYMNT_CNT, SEQNUM, PREPAID_APPLIED_BU, PREPAID_APPL_VCHR, PREPAID_APPL_PYM
NT, OPRID, DT_TIMESTAMP) VALUES (:1, :2, :3, :4, :5, :6, :7, :8, :9, %DateTimeIn
(:10) ) ", &MMC_LOG_ID, &BUSINESS_UNIT, &VOUCHER_ID, &PYMNT_CNT, &SEQNUM, &PREPA
ID_APPLIED_BU, &PREPAID_APPL_VCHR, &PREPAID_APPL_PYMNT, &OPRID, &DT_TIMESTAMP);
End-Function;
/*********************************** mmcb.hd98917.en ***************************
******/
[MMC_PO_LIB.RECEIVER_ID.SavePostChange]
Declare Function BUSCA_CUSTO_ITEM PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange;
Declare Function GRAVA_RECV_LN_ASSET PeopleCode FUNCLIB SavePostChange;
Declare Function GRAVA_RECV_LN_DISTRIB PeopleCode FUNCLIB SavePostChange;
Declare Function GRAVA_RECV_LN_INSP PeopleCode FUNCLIB SavePostChange;
Declare Function GRAVA_RECV_LN_SHIP PeopleCode FUNCLIB SavePostChange;
Declare Function GRAVA_RECV_LN_SHP_MTH PeopleCode FUNCLIB SavePostChange;
Declare Function GRAVA_RECV_HDR PeopleCode FUNCLIB SavePostChange;
Function CRIA_RECV_FISICO_TRIAN(&PAR_BUSINESS_UNIT, &PAR_RECEIVER_ID, &PAR_RECV_
LN_NBR, &PAR_RECV_SHIP_SEQ_NBR, &PAR_VENDOR_ID, &PAR_VNDR_LOC, &PAR_NF_BRL, &PAR
_NF_BRL_SERIES, &PAR_NF_BRL_DATE, &PAR_ADDRESS_SEQ_NUM, &PAR_SHIPTO_ID, &PAR_SET
ID, &PAR_DEPTID, &PAR_INV_ITEM_ID, &PAR_INV_LOT_ID, &PAR_SERIAL_ID, &PAR_UNIT_OF
_MEASURE, &PAR_QTD, &PAR_PRECO_UNITARIO, &PAR_CUSTO_TERCEIRO_FLG, &PAR_CUSTO_TER
CEIRO, &PAR_BUSINESS_UNIT_IN, &PAR_BUSINESS_UNIT_GL, &PAR_BUSINESS_UNIT_PO, &PAR
_PO_ID, &PAR_PO_LINE_NBR, &PAR_PO_SCHED_NBR, &PAR_DESCR_ITEM, &PAR_ACCOUNT, &ULT
IMA_LINHA, &PAR_DISTRIB_TYPE)
/*########################################################################
#
# INSERINDO TABELA RECV_HDR
#
########################################################################*/
SQLExec("select 'X' from sysadm.ps_recv_hdr where business_unit=:1 and receiv
er_id=:2 ", &PAR_BUSINESS_UNIT, &PAR_RECEIVER_ID, &EXISTE_RECEBTO);
If &EXISTE_RECEBTO <> "X" Then
&P6_BUSINESS_UNIT = &PAR_BUSINESS_UNIT;
&P6_RECEIVER_ID = &PAR_RECEIVER_ID;
&P6_SHIPTO_ID = &PAR_SHIPTO_ID;
&P6_VENDOR_ID = &PAR_VENDOR_ID;
&P6_VEHICLE_ID = " ";
&P6_BILL_OF_LADING = " ";

&P6_CARRIER_ID = " ";
&P6_CONTAINER_ID = " ";
&P6_COUNTRY_SHIP_FROM = "BRA";
&P6_DFLT_PACKSLIP_NO = " ";
&P6_DRIVER_ID = " ";
&P6_EIP_CTL_ID = " ";
&P6_ERS_FLAG = "N";
&P6_ERS_INV_DT_OPT = " ";
&P6_ERS_INV_STATUS = "N";
&P6_FREIGHT_TERMS = " ";
&P6_HOLD_ASSET = "N";
&P6_HOLD_INVENTORY = "N";
&P6_IN_PROCESS_FLG = "N";
&P6_INTFC_ASSET = "Y";
&P6_INTFC_INVENTORY = "Y";
&P6_INTFC_MG = "Y";
&P6_MATCH_CNTRL_ID = " ";
&P6_MATCH_PROCESS_FLG = "N";
&P6_MATCH_STATUS_RECV = "N";
&P6_NUM_OF_CARTONS = 0;
&P6_OPRID = %OperatorId;
&P6_ORIGIN = " ";
&P6_PALLETS_RECV = 0;
&P6_PALLETS_RTN = 0;
&P6_PO_RECEIPT_FLG = "Y";
&P6_PORT_OF_UNLOADING = " ";
&P6_PRO_NUMBER = " ";
&P6_PROCESS_INSTANCE = 99999;
&P6_RECEIPT_DT = %Date;
&P6_RECEIPT_TM = %Time;
&P6_RECV_SOURCE = "1";
&P6_RECV_STATUS = "M";
&P6_SETID = &PAR_SETID;
&P6_SHIP_DATE = %Date;
&P6_SHIP_FROM_LOC = " ";
&P6_SHIPMENT_NO = " ";
&P6_VENDOR_SETID = &PAR_SETID;
&P6_VNDR_LOC = &PAR_VNDR_LOC;
&P6_POST_STATUS_RECV = " ";
&P6_OPRID_MODIFIED_BY = %OperatorId;
&P6_LAST_DTTM_UPDATE = %Datetime;
&P6_NF_BRL = &PAR_NF_BRL;
&P6_NF_BRL_SERIES = &PAR_NF_BRL_SERIES;
&P6_NF_BRL_DATE = &PAR_NF_BRL_DATE;
&P6_ADDRESS_SEQ_NUM = &PAR_ADDRESS_SEQ_NUM;
&P6_FLG_NF_FISCAL_PBL = "N";
GRAVA_RECV_HDR(&P6_BUSINESS_UNIT, &P6_RECEIVER_ID, &P6_SHIPTO_ID, &P6_VEND
OR_ID, &P6_VEHICLE_ID, &P6_BILL_OF_LADING, &P6_CARRIER_ID, &P6_CONTAINER_ID, &P6
_COUNTRY_SHIP_FROM, &P6_DFLT_PACKSLIP_NO, &P6_DRIVER_ID, &P6_EIP_CTL_ID, &P6_ERS
_FLAG, &P6_ERS_INV_DT_OPT, &P6_ERS_INV_STATUS, &P6_FREIGHT_TERMS, &P6_HOLD_ASSET
, &P6_HOLD_INVENTORY, &P6_IN_PROCESS_FLG, &P6_INTFC_ASSET, &P6_INTFC_INVENTORY,
&P6_INTFC_MG, &P6_MATCH_CNTRL_ID, &P6_MATCH_PROCESS_FLG, &P6_MATCH_STATUS_RECV,
&P6_NUM_OF_CARTONS, &P6_OPRID, &P6_ORIGIN, &P6_PALLETS_RECV, &P6_PALLETS_RTN, &P
6_PO_RECEIPT_FLG, &P6_PORT_OF_UNLOADING, &P6_PRO_NUMBER, &P6_PROCESS_INSTANCE, &
P6_RECEIPT_DT, &P6_RECEIPT_TM, &P6_RECV_SOURCE, &P6_RECV_STATUS, &P6_SETID, &P6_
SHIP_DATE, &P6_SHIP_FROM_LOC, &P6_SHIPMENT_NO, &P6_VENDOR_SETID, &P6_VNDR_LOC, &
P6_POST_STATUS_RECV, &P6_OPRID_MODIFIED_BY, &P6_LAST_DTTM_UPDATE, &P6_NF_BRL, &P
6_NF_BRL_SERIES, &P6_NF_BRL_DATE, &P6_ADDRESS_SEQ_NUM, &P6_FLG_NF_FISCAL_PBL);
End-If;
/*########################################################################
#
# FIM INSERINDO TABELA RECV_HDR
#
########################################################################*/
REM PEGA A CONVERCO UNIDADE MEDIDA DE ESTOQUE. ;

SQLExec("select unit_measure_std, descr, category_id,device_tracking, lot_con
trol, serial_control from sysadm.ps_master_item_tbl where setid=:1 and inv_item_
id=:2", &PAR_SETID, &PAR_INV_ITEM_ID, &V_UNIT_MEASURE_STD, &V_DESCR, &V_CATEGORY
_ID, &V_DEVICE_TRACKING, &V_LOT_CONTROL, &V_SERIAL_CONTROL);
If &V_UNIT_MEASURE_STD = &PAR_UNIT_OF_MEASURE Then
&V_CONVERSION_RATE = 1;
Else
SQLExec("select conversion_rate from ps_inv_item_uom where setid = :1 and
inv_item_id = :2 and unit_of_measure = :3", &PAR_SETID, &PAR_INV_ITEM_ID, &PAR_
UNIT_OF_MEASURE, &V_CONVERSION_RATE);
End-If;
SQLExec("select crtl_location_bbl from ps_shipto_tbl where setid = :1 and shi
pto_id = :2 and effdt = (select max(effdt) from ps_shipto_tbl where setid = :3 a
nd shipto_id = :4) and eff_status = 'A'", &PAR_SETID, &PAR_SHIPTO_ID, &PAR_SETID
, &PAR_SHIPTO_ID, &V_CRTL_LOCATION_BBL);
SQLExec("select dflt_serial_id, dflt_inv_lot_id from ps_installation_in", &V_
DFLT_SERIAL_ID, &V_DFLT_INV_LOT_ID);
SQLExec("select model, inspect_cd from sysadm.ps_purch_item_attr where setid=
:1 and inv_item_id=:2", &PAR_SETID, &PAR_INV_ITEM_ID, &V_MODEL, &V_INSPECT_CD);
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|| CUSTO
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */
If &PAR_CUSTO_TERCEIRO_FLG = "Y" Then

&CUSTO_UNITARIO = &PAR_CUSTO_TERCEIRO;
Else
&CUSTO_UNITARIO = &PAR_PRECO_UNITARIO;
End-If;
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|| FIM
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */
/*########################################################################
#
# INSERINDO TABELA RECV_LN_ASSET
#
########################################################################*/
&P1_RECV_LN_NBR = &PAR_RECV_LN_NBR;
&P1_RECV_SHIP_SEQ_NBR = &PAR_RECV_SHIP_SEQ_NBR;
&P1_DISTRIB_LINE_NUM = 1;
&P1_DISTRIB_SEQ_NUM = 1;
&P1_ACTUAL_COST = &CUSTO_UNITARIO;
&P1_ASSET_ID = " ";
&P1_AUTO_BIN2BIN = "N";
&P1_BUSINESS_UNIT_AM = " ";
&P1_BUSINESS_UNIT_IN = &PAR_BUSINESS_UNIT_IN;
&P1_COST = &PAR_QTD * &CUSTO_UNITARIO;
&P1_CURRENCY_CD = &V_CURRENCY_CD;
&P1_CUSTODIAN = " ";
&P1_DESCR = &V_DESCR;
&P1_DTTM_STAMP = %Datetime;
&P1_FINANCIAL_ASSET_SW = "N";
&P1_FROM_STOR_AREA = " ";
&P1_FROM_STOR_LEV1 = " ";
&P1_INV_ITEM_ID = &PAR_INV_ITEM_ID;
&P1_ITM_SETID = &PAR_SETID;
&P1_LOCATION = &V_CRTL_LOCATION_BBL;
&P1_LOT_ID = &V_DFLT_INV_LOT_ID;
&P1_MANUFACTURER = " ";
&P1_MODEL = &V_MODEL;
&P1_PRE_INTFC_ID = 0;
&P1_PRE_INTFC_LINE_NUM = 0;
&P1_PRICE_PO_BSE = 0;
&P1_PROFILE_ID = " ";
&P1_QTY_MOVED_ASSET = 0;
&P1_QTY_MOVED_INV = 0;
&P1_QUANTITY = &PAR_QTD;
&P1_RECV_AM_STATUS = "O";
&P1_SERIAL_ID = &V_DFLT_SERIAL_ID;
&P1_SF_KANBAN_ID = " ";
&P1_STORAGE_AREA = " ";
&P1_STORAGE_CODE = " ";
&P1_STOR_LEVEL_1 = " ";
&P1_TAG_NUMBER = " ";
&P1_VENDOR_ID = &PAR_VENDOR_ID;
&P1_VENDOR_LOT_ID = " ";
&P1_PRICE_FOR_INV_PBL = 0;
&P1_COST_AM_PBL = 0;
&P1_PROC_NF_CANCEL_PBL = " ";
GRAVA_RECV_LN_ASSET(&P1_BUSINESS_UNIT, &P1_RECEIVER_ID, &P1_RECV_LN_NBR, &P1_

RECV_SHIP_SEQ_NBR, &P1_DISTRIB_LINE_NUM, &P1_DISTRIB_SEQ_NUM, &P1_ACTUAL_COST, &
P1_ASSET_ID, &P1_AUTO_BIN2BIN, &P1_BUSINESS_UNIT_AM, &P1_BUSINESS_UNIT_IN, &P1_C
ONTAINER_ID, &P1_COST, &P1_CURRENCY_CD, &P1_CUSTODIAN, &P1_DESCR, &P1_DTTM_STAMP
, &P1_FINANCIAL_ASSET_SW, &P1_FROM_STOR_AREA, &P1_FROM_STOR_LEV1, &P1_FROM_STOR_
LEV2, &P1_FROM_STOR_LEV3, &P1_FROM_STOR_LEV4, &P1_INV_ITEM_ID, &P1_ITM_SETID, &P
1_LOCATION, &P1_LOT_ID, &P1_MANUFACTURER, &P1_MODEL, &P1_PRE_INTFC_ID, &P1_PRE_I
NTFC_LINE_NUM, &P1_PRICE_PO_BSE, &P1_PROCESS_INSTANCE, &P1_PROFILE_ID, &P1_QTY_M
OVED_ASSET, &P1_QTY_MOVED_INV, &P1_QUANTITY, &P1_RECV_AM_STATUS, &P1_SERIAL_ID,
&P1_SF_KANBAN_ID, &P1_STORAGE_AREA, &P1_STORAGE_CODE, &P1_STOR_LEVEL_1, &P1_STOR
_LEVEL_2, &P1_STOR_LEVEL_3, &P1_STOR_LEVEL_4, &P1_TAG_NUMBER, &P1_VENDOR_ID, &P1
_VENDOR_LOT_ID, &P1_PRICE_FOR_INV_PBL, &P1_COST_AM_PBL, &P1_PROC_NF_CANCEL_PBL);
/*########################################################################
#
# FIM INSERINDO TABELA RECV_LN_ASSET
#
########################################################################*/
/*########################################################################
#
# INSERINDO TABELA RECV_LN_DISTRIB
#
########################################################################*/
&P2_DISTRIB_LINE_NUM = &PAR_RECV_SHIP_SEQ_NBR;
&P2_ACCOUNT = &PAR_ACCOUNT;
&P2_ALTACCT = " ";
&P2_ACTIVITY_ID = " ";
&P2_ANALYSIS_TYPE = " ";
&P2_BUSINESS_UNIT_AM = " ";
&P2_BUSINESS_UNIT_GL = &PAR_BUSINESS_UNIT_GL;
&P2_BUSINESS_UNIT_PC = " ";
&P2_BUSINESS_UNIT_PO = &PAR_BUSINESS_UNIT_PO;
&P2_CAP_NUM = " ";
&P2_CAP_SEQUENCE = 0;
&P2_CHARTFIELD_STATUS = "V";
&P2_CONSIGNED_FLAG = "N";
&P2_COST_TYPE = " ";
&P2_COSTED_FLAG = "N";
&P2_CURRENCY_CD_BASE = "BRL";
&P2_DELIVERED_FLG = "N";
&P2_DELIVERED_TO = " ";
&P2_DISTRIB_TYPE = &PAR_DISTRIB_TYPE;
&P2_DST_ACCT_TYPE = "DST";
&P2_EMPLID = " ";
&P2_FREIGHT_PERCENT = 0;
&P2_LINE_NBR = &PAR_PO_LINE_NBR;
&P2_LOC_RECV_LBL_FLG = "N";
&P2_MERCH_AMT_BSE = &CUSTO_UNITARIO * &PAR_QTD;
&P2_MERCH_AMT_PO_BSE = &CUSTO_UNITARIO;
&P2_MERCHANDISE_AMT = &CUSTO_UNITARIO * &PAR_QTD;
&P2_MERCHANDISE_AMT_PO = &CUSTO_UNITARIO;
&P2_MOV_DS_ACCPT_SUOM = 0;
&P2_PO_DIST_LINE_NUM = 0;
&P2_PO_ID = &PAR_PO_ID;
&P2_PROFILE_ID = " ";
&P2_QTY_DS_ACCPT_SUOM = &PAR_QTD * &V_CONVERSION_RATE;
&P2_QTY_DS_ACCPT_VUOM = &PAR_QTD;
&P2_QTY_PO = &PAR_QTD;
&P2_RATE_DIV = 1;
&P2_RATE_MULT = 1;
&P2_RECV_DS_STATUS = "R";
&P2_REQ_ID = " ";
&P2_RESOURCE_CATEGORY = " ";
&P2_RESOURCE_SUB_CAT = " ";
&P2_RESOURCE_TYPE = " ";
&P2_RT_TYPE = "CRRNT";
&P2_SCHED_NBR = &PAR_PO_SCHED_NBR;
&P2_STATISTICS_CODE = 0;
&P2_STATISTIC_AMOUNT = 0;
&P2_TAX_CD_SUT_PCT = 0;
&P2_TAX_CD_VAT_PCT = 0;
&P2_OPERATING_UNIT = " ";
&P2_DEPTID = &PAR_DEPTID;
&P2_PRODUCT = " ";
&P2_PROJECT_ID = " ";
&P2_AFFILIATE = " ";
GRAVA_RECV_LN_DISTRIB(&P2_BUSINESS_UNIT, &P2_RECEIVER_ID, &P2_RECV_LN_NBR, &P
2_RECV_SHIP_SEQ_NBR, &P2_DISTRIB_LINE_NUM, &P2_ACCOUNT, &P2_ALTACCT, &P2_ACTIVIT
Y_ID, &P2_ANALYSIS_TYPE, &P2_BUSINESS_UNIT_AM, &P2_BUSINESS_UNIT_GL, &P2_BUSINES
S_UNIT_IN, &P2_BUSINESS_UNIT_PC, &P2_BUSINESS_UNIT_PO, &P2_CAP_NUM, &P2_CAP_SEQU
ENCE, &P2_CHARTFIELD_STATUS, &P2_CONSIGNED_FLAG, &P2_COST_TYPE, &P2_COSTED_FLAG,
&P2_CURRENCY_CD, &P2_CURRENCY_CD_BASE, &P2_DELIVERED_FLG, &P2_DELIVERED_TO, &P2
_DISTRIB_TYPE, &P2_DST_ACCT_TYPE, &P2_EMPLID, &P2_FINANCIAL_ASSET_SW, &P2_FREIGH
T_PERCENT, &P2_LINE_NBR, &P2_LOCATION, &P2_LOC_RECV_LBL_FLG, &P2_MERCH_AMT_BSE,
&P2_MERCH_AMT_PO_BSE, &P2_MERCHANDISE_AMT, &P2_MERCHANDISE_AMT_PO, &P2_MOV_DS_AC
CPT_SUOM, &P2_PO_DIST_LINE_NUM, &P2_PO_ID, &P2_PROCESS_INSTANCE, &P2_PROFILE_ID,
&P2_QTY_DS_ACCPT_SUOM, &P2_QTY_DS_ACCPT_VUOM, &P2_QTY_PO, &P2_RATE_DIV, &P2_RAT
E_MULT, &P2_RECV_DS_STATUS, &P2_REQ_ID, &P2_RESOURCE_CATEGORY, &P2_RESOURCE_SUB_
CAT, &P2_RESOURCE_TYPE, &P2_RT_TYPE, &P2_SCHED_NBR, &P2_STATISTICS_CODE, &P2_STA
TISTIC_AMOUNT, &P2_TAX_CD_SUT_PCT, &P2_TAX_CD_VAT_PCT, &P2_OPERATING_UNIT, &P2_D
EPTID, &P2_PRODUCT, &P2_PROJECT_ID, &P2_AFFILIATE);
/*########################################################################
#
# FIM INSERINDO TABELA RECV_LN_DISTRIB
#
########################################################################*/
/*########################################################################
#
# INSERINDO TABELA RECV_LN_INSP
#
########################################################################*/
&P3_OP_SEQ = 0;
&P3_ROUTING_SETID = " ";
&P3_ROUTING_ID = &V_ROUTING_ID;
&P3_OP_TIME_STD = 0;
&P3_OP_TIME_CD = "P";
&P3_OP_TIME_STD_TTL = 0;
&P3_OP_TIME_ACT_TTL = 0;
GRAVA_RECV_LN_INSP(&P3_BUSINESS_UNIT, &P3_RECEIVER_ID, &P3_RECV_LN_NBR, &P3_O
P_SEQ, &P3_ROUTING_SETID, &P3_ROUTING_ID, &P3_OP_TIME_STD, &P3_OP_TIME_CD, &P3_O
P_TIME_STD_TTL, &P3_OP_TIME_ACT_TTL, &P3_PROCESS_INSTANCE);
/*########################################################################
#
# FIM INSERINDO TABELA RECV_LN_INSP
#
########################################################################*/
/*########################################################################
#
# INSERINDO TABELA RECV_LN_SHIP
#
########################################################################*/
&P4_AMT_ONLY_FLG = "N";
&P4_ASN_SEQ_NBR = 0;
&P4_BUSINESS_UNIT_PO = &PAR_BUSINESS_UNIT_PO;
&P4_CATEGORY_ID = &V_CATEGORY_ID;
&P4_CONFIG_CODE = &PAR_SERIAL_ID;
&P4_CONVERSION_RATE = &V_CONVERSION_RATE;
&P4_CONVERT_TO_STK = &V_CONVERSION_RATE;
&P4_CONVERT_TO_PO = &V_CONVERSION_RATE;
&P4_CONVERT_STK_TO_STD = &V_CONVERSION_RATE;
&P4_COUNTRY_IST_ORIGIN = " ";
&P4_CURRENCY_CD_BASE = "BRL";
&P4_DESCR254_MIXED = &PAR_DESCR_ITEM;
&P4_DEVICE_TRACKING = &V_DEVICE_TRACKING;
&P4_DISTRIB_MTHD_FLG = "Q";
&P4_DUE_DT = %Date;
&P4_DUE_TIME = %Time;
&P4_ERS_INV_SEQ = 0;
&P4_ERS_STATUS = "N";
&P4_INSPECT_CD = &V_INSPECT_CD;
&P4_INSPECT_DTTM = %Datetime;
&P4_INSPECT_STATUS = "C";
&P4_INV_ITEM_ID = &PAR_INV_ITEM_ID;
&P4_IST_DISTRIB_STATUS = "I";
&P4_ITM_ID_VNDR = " ";
&P4_ITM_SETID = &V_ITM_SETID;
&P4_LINE_NBR = &PAR_PO_LINE_NBR;
&P4_LOT_CONTROL = &V_LOT_CONTROL;
&P4_LOT_STATUS = "C";
&P4_MATCH_LINE_FLG = "Y";
&P4_MATCH_STATUS_LC = 0;
&P4_MERCH_AMT_BSE = &PAR_QTD * &CUSTO_UNITARIO;
&P4_MERCH_AMT_PO_BSE = &CUSTO_UNITARIO;
&P4_MERCHANDISE_AMT = &PAR_QTD * &CUSTO_UNITARIO;
&P4_MERCHANDISE_AMT_PO = &CUSTO_UNITARIO;
&P4_MFG_ID = " ";
&P4_MFG_ITM_ID = " ";
&P4_MOVE_STAT_AM = "N";
&P4_MOVE_STAT_INV = "P";
&P4_MOVE_STAT_MFG = "N";
&P4_OP_SEQUENCE = 0;
&P4_OPRID = %UserId;
&P4_PACKSLIP_NO = " ";
&P4_PO_ID = &PAR_PO_ID;
&P4_PO_TYPE = " ";
&P4_PRICE_PO = &CUSTO_UNITARIO;
&P4_PRICE_PO_BSE = &CUSTO_UNITARIO;
&P4_PROCESS_COMPLETE = "N";
&P4_PRODUCTION_ID = " ";
&P4_QTY_LN_ASSET_SUOM = 0;
&P4_QTY_LN_INV_SUOM = &PAR_QTD * &V_CONVERSION_RATE;
&P4_QTY_SH_ACCPT = &PAR_QTD;
&P4_QTY_SH_ACCPT_SUOM = &PAR_QTD;
&P4_QTY_SH_ACCPT_VUOM = &PAR_QTD;
&P4_QTY_SH_INSPD = 0;
&P4_QTY_SH_INSPD_SUOM = 0;
&P4_QTY_SH_INSPD_VUOM = 0;
&P4_QTY_SH_NETRCV_VUOM = &PAR_QTD;
&P4_QTY_SH_RECVD = &PAR_QTD;
&P4_QTY_SH_RECVD_SUOM = &PAR_QTD * &V_CONVERSION_RATE;
&P4_QTY_SH_RECVD_VUOM = &PAR_QTD;
&P4_QTY_SH_REJCT = 0;
&P4_QTY_SH_REJCT_SUOM = 0;
&P4_QTY_SH_REJCT_VUOM = 0;
&P4_QTY_SH_RTN = 0;
&P4_QTY_SH_RTN_SUOM = 0;
&P4_QTY_SH_RTN_VUOM = 0;
&P4_REJECT_ACTION = " ";
&P4_REJECT_REASON = " ";
&P4_REVISION = " ";
&P4_RMA_ID = " ";
&P4_RMA_LINE_NBR = 0;
&P4_RECEIPT_ALLOC_TYPE = "1";
&P4_RECEIPT_DTTM = %Datetime;
&P4_RECEIPT_UM = &PAR_UNIT_OF_MEASURE;
&P4_RECEIVE_UOM = &PAR_UNIT_OF_MEASURE;
&P4_RECV_LN_MATCH_OPT = "N";
&P4_RECV_SHIP_STATUS = "R";
&P4_RECV_STOCK_UOM = &V_UNIT_MEASURE_STD;
&P4_REPLACEMENT_FLG = "NA";
&P4_SCHED_NBR = &PAR_PO_SCHED_NBR;
&P4_SERIAL_CONTROL = &V_SERIAL_CONTROL;
&P4_SERIAL_STATUS = "C";
&P4_SHIP_DATE_STATUS = "3";
&P4_SHIP_QTY_STATUS = "1";
&P4_SHIPTO_ID = &PAR_SHIPTO_ID;
&P4_UNIT_MEASURE_STD = &V_UNIT_MEASURE_STD;
GRAVA_RECV_LN_SHIP(&P4_BUSINESS_UNIT, &P4_RECEIVER_ID, &P4_RECV_LN_NBR, &P4_R
ECV_SHIP_SEQ_NBR, &P4_AMT_ONLY_FLG, &P4_ASN_SEQ_NBR, &P4_BILL_OF_LADING, &P4_BUS
INESS_UNIT_IN, &P4_BUSINESS_UNIT_PO, &P4_CATEGORY_ID, &P4_CONFIG_CODE, &P4_CONVE
RSION_RATE, &P4_CONVERT_TO_STK, &P4_CONVERT_TO_PO, &P4_CONVERT_STK_TO_STD, &P4_C
OUNTRY_IST_ORIGIN, &P4_CURRENCY_CD, &P4_CURRENCY_CD_BASE, &P4_DESCR254_MIXED, &P
4_DEVICE_TRACKING, &P4_DISTRIB_MTHD_FLG, &P4_DUE_DT, &P4_DUE_TIME, &P4_EIP_CTL_I
D, &P4_ERS_INV_SEQ, &P4_ERS_STATUS, &P4_INSPECT_CD, &P4_INSPECT_DTTM, &P4_INSPEC
T_STATUS, &P4_INV_ITEM_ID, &P4_IST_DISTRIB_STATUS, &P4_ITM_ID_VNDR, &P4_ITM_SETI
D, &P4_LINE_NBR, &P4_LOT_CONTROL, &P4_LOT_STATUS, &P4_MATCH_LINE_FLG, &P4_MATCH_
STATUS_LC, &P4_MERCH_AMT_BSE, &P4_MERCH_AMT_PO_BSE, &P4_MERCHANDISE_AMT, &P4_MER
CHANDISE_AMT_PO, &P4_MFG_ID, &P4_MFG_ITM_ID, &P4_MOVE_STAT_AM, &P4_MOVE_STAT_INV
, &P4_MOVE_STAT_MFG, &P4_OP_SEQUENCE, &P4_OPRID, &P4_PACKSLIP_NO, &P4_PO_ID, &P4
_PO_TYPE, &P4_PRICE_PO, &P4_PRICE_PO_BSE, &P4_PRO_NUMBER, &P4_PROCESS_COMPLETE,
&P4_PROCESS_INSTANCE, &P4_PRODUCTION_ID, &P4_QTY_LN_ASSET_SUOM, &P4_QTY_LN_INV_S
UOM, &P4_QTY_SH_ACCPT, &P4_QTY_SH_ACCPT_SUOM, &P4_QTY_SH_ACCPT_VUOM, &P4_QTY_SH_
INSPD, &P4_QTY_SH_INSPD_SUOM, &P4_QTY_SH_INSPD_VUOM, &P4_QTY_SH_NETRCV_VUOM, &P4
_QTY_SH_RECVD, &P4_QTY_SH_RECVD_SUOM, &P4_QTY_SH_RECVD_VUOM, &P4_QTY_SH_REJCT, &
P4_QTY_SH_REJCT_SUOM, &P4_QTY_SH_REJCT_VUOM, &P4_QTY_SH_RTN, &P4_QTY_SH_RTN_SUOM
, &P4_QTY_SH_RTN_VUOM, &P4_REJECT_ACTION, &P4_REJECT_REASON, &P4_REVISION, &P4_R
MA_ID, &P4_RMA_LINE_NBR, &P4_RECEIPT_ALLOC_TYPE, &P4_RECEIPT_DTTM, &P4_RECEIPT_U
M, &P4_RECEIVE_UOM, &P4_RECV_LN_MATCH_OPT, &P4_RECV_SHIP_STATUS, &P4_RECV_STOCK_
UOM, &P4_REPLACEMENT_FLG, &P4_SCHED_NBR, &P4_SERIAL_CONTROL, &P4_SERIAL_STATUS,
&P4_SHIP_DATE_STATUS, &P4_SHIP_QTY_STATUS, &P4_SHIPTO_ID, &P4_UNIT_MEASURE_STD);
/*########################################################################
#
# FIM INSERINDO TABELA RECV_LN_SHIP
#
########################################################################*/
/*########################################################################
#
# INSERINDO TABELA RECV_LN_SHP_MTH
#
########################################################################*/
&P5_TXN_CURRENCY_CD = " ";
&P5_QTY_MATCHED = 0;
&P5_AMT_MATCHED = 0;
GRAVA_RECV_LN_SHP_MTH(&P5_BUSINESS_UNIT, &P5_RECEIVER_ID, &P5_RECV_LN_NBR, &P
5_RECV_SHIP_SEQ_NBR, &P5_TXN_CURRENCY_CD, &P5_QTY_MATCHED, &P5_AMT_MATCHED);
/*########################################################################
#
# FIM INSERINDO TABELA RECV_LN_SHP_MTH
#
########################################################################*/
If &ULTIMA_LINHA = "Y" Then

&RECEBIDO_TUDO = "Y";
SQLExec("SELECT 'N' FROM SYSADM.PS_MMC_TE_OC_VW WHERE BUSINESS_UNIT = :1 A
ND PO_ID = :2 AND QTY_PO > 0", &V_BUSINESS_UNIT_PO, &V_PO_ID, &RECEBIDO_TUDO);
If None(&RECEBIDO_TUDO) Or
&RECEBIDO_TUDO = "N" Then
SQLExec("update sysadm.ps_po_hdr set recv_status = 'P', backorder_statu
s='3' where business_unit =:1 and po_id =:2 ", &V_BUSINESS_UNIT_PO, &V_PO_ID);
Else
SQLExec("update sysadm.ps_po_hdr set recv_status = 'R', backorder_statu
s='3' where business_unit =:1 and po_id =:2 ", &V_BUSINESS_UNIT_PO, &V_PO_ID);
End-If;
End-If;
End-Function;
Function CRIA_RECEBIMENTO_FISICO(&PAR_BUSINESS_UNIT, &PAR_RECEIVER_ID, &PAR_RECV

_LN_NBR, &PAR_RECV_SHIP_SEQ_NBR, &PAR_PO_ID, &PAR_LINE_NBR, &PAR_SCHED_NBR, &PAR
_QTD_ACEITA, &PAR_NF_BRL, &PAR_NF_BRL_SERIES, &PAR_NF_BRL_DATE, &ULTIMA_LINHA, &
PAR_CUSTO_TERCEIRO_FLG, &PAR_CUSTO_TERCEIRO, &PAR_NF_BRL_ID, &PAR_PRECO_UNITARIO
, &PAR_DISTRIB_TYPE, &PAR_SETID)
SQLExec("select 'X' from ps_recv_po_ship_vw where business_unit_po = :1 and p
o_id=:2 and line_nbr=:3 and sched_nbr=:4 ", &PAR_BUSINESS_UNIT, &PAR_PO_ID, &PAR
_LINE_NBR, &PAR_SCHED_NBR, &VAR_OK);
If &VAR_OK <> "X" Then
Error ("Erro: Ordem de compra Invalida. Causa deve ser OC ja foi recebida
ou ainda no esta com processo de criao completado.");
End-If;
&SQL1 = "SELECT DISTINCT S.BUSINESS_UNIT BUSINESS_UNIT_PO, S.PO_ID PO_ID, S.L
INE_NBR LINE_NBR, S.SCHED_NBR SCHED_NBR, R.DISTRIB_LINE_NUM DISTRIB_LINE_NUM, L.
AMT_ONLY_FLG AMT_ONLY_FLG, S.BUSINESS_UNIT_IN BUSINESS_UNIT_IN, C.CATEGORY_CD CA
TEGORY_CD, L.CATEGORY_ID CATEGORY_ID, 'N' CB_SELECT_PO, L.CONFIG_CODE CONFIG_COD
E, S.COUNTRY_SHIP_FROM COUNTRY_IST_ORIGIN, S.CURRENCY_CD CURRENCY_CD, S.CURRENCY
_CD_BASE CURRENCY_CD_BASE, L.DESCR254_MIXED DESCR254_MIXED, ' ' DETAILS_PB, S.D
ISTRIB_MTHD_FLG DISTRIB_MTHD_FLG, %DateOut(S.DUE_DT) DUE_DT, S.DUE_TIME DUE_TIM
E, H.ERS_ACTION ERS_ACTION, L.INSPECT_CD INSPECT_CD, L.INV_ITEM_ID INV_ITEM_ID,
S.IST_TXN_FLG IST_TXN_FLG, L.ITM_ID_VNDR ITM_ID_VNDR, L.ITM_SETID ITM_SETID, '
' MANUFACTURER, S.MATCH_LINE_OPT ";
&SQL2 = " MATCH_LINE_OPT, S.MERCH_AMT_BSE MERCH_AMT_BSE,S.MERCH_AMT_BSE MERCH
_AMT_PO_BSE, S.MERCHANDISE_AMT MERCHANDISE_AMT_PO, L.MFG_ID MFG_ID, L.MFG_ITM_ID
MFG_ITM_ID, ' ' MODEL,S.OP_SEQUENCE OP_SEQUENCE, S.ORIG_PROM_DT ORIG_PROM_DT, H
.PO_DT PO_DT, H.PO_TYPE PO_TYPE, S.PRICE_PO PRICE_PO, S.PRICE_PO_BSE PRICE_PO_BS
E,S.PRODUCTION_ID PRODUCTION_ID, S.QTY_PO QTY_PO, 0 QTY_PRIOR_RECEIPT, S.QTY_REC
V_TOL_PCT QTY_RECV_TOL_PCT, L.RECV_REQ RECV_REQ,L.RELEASE_NBR RELEASE_NBR, L.ROU
TING_ID ROUTING_ID, S.SHIPTO_ID SHIPTO_ID, S.SHIPTO_SETID SHIPTO_SETID, S.SHIP_T
YPE_ID SHIP_TYPE_ID, L.UNIT_OF_MEASURE UNIT_OF_MEASURE, H.VENDOR_ID VENDOR_ID, H
.VENDOR_SETID VENDOR_SETID, L.VNDR_CATALOG_ID VNDR_CATALOG_ID, H.VNDR_LOC VNDR_L
OC, S.REJECT_DAYS REJECT_DAYS, S.REVISION REVISION, H.ADDRESS_SEQ_NUM ADDRESS_SE
Q_NUM, S.QTY_PO QTY_REMAIN, R.DEPTID DEPTID FROM SYSADM.PS_PO_HDR H , ";
&SQL3 = "SYSADM.PS_PO_LINE L , SYSADM.PS_PO_LINE_SHIP S , SYSADM.PS_PO_LINE_D

ISTRIB R , SYSADM.PS_ITM_CAT_TBL C , SYSADM.PS_INSTALLATION_PO I WHERE H.PO_STA
TUS = 'D' AND H.BUSINESS_UNIT = L.BUSINESS_UNIT AND H.PO_ID = L.PO_ID AND L.BUSI
NESS_UNIT = S.BUSINESS_UNIT AND L.PO_ID = S.PO_ID AND L.LINE_NBR = S.LINE_NBR AN
D L.CANCEL_STATUS = 'A' AND S.CANCEL_STATUS = 'A' AND S.SHIP_TO_CUST_ID = ' ' AN
D L.ITM_SETID = C.SETID AND L.CATEGORY_ID = C.CATEGORY_ID AND C.CATEGORY_TYPE =
I.CATEGORY_TYPE AND C.EFFDT = ( SELECT MAX(C2.EFFDT) FROM SYSADM.PS_ITM_CAT_TBL
C2 WHERE C.SETID = C2.SETID AND C.CATEGORY_TYPE = ";
&SQL4 = "C2.CATEGORY_TYPE AND C.CATEGORY_ID = C2.CATEGORY_ID AND C2.EFFDT <=
SYSDATE) AND ((L.AMT_ONLY_FLG = 'N' AND (S.QTY_PO > ( SELECT SUM(D.QTY_SH_NETRCV
_VUOM) FROM SYSADM.PS_RECV_LN_SHIP D WHERE S.BUSINESS_UNIT = D.BUSINESS_UNIT_PO
AND S.PO_ID = D.PO_ID AND S.LINE_NBR = D.LINE_NBR AND S.SCHED_NBR = D.SCHED_NBR
AND D.RECV_SHIP_STATUS <> 'X'))) OR (L.AMT_ONLY_FLG = 'Y' AND (S.MERCHANDISE_AMT
> ( SELECT SUM(E.MERCHANDISE_AMT) FROM SYSADM.PS_RECV_LN_SHIP E WHERE S.BUSINES
S_UNIT = E.BUSINESS_UNIT_PO AND S.PO_ID = E.PO_ID AND S.LINE_NBR = E.LINE_NBR AN
D S.SCHED_NBR = E.SCHED_NBR AND E.RECV_SHIP_STATUS <> 'X'))) OR NOT EXISTS ( ";
&SQL5 = "SELECT 'X'FROM SYSADM.PS_RECV_LN_SHIP D WHERE S.BUSINESS_UNIT = D.BU
SINESS_UNIT_PO AND S.PO_ID = D.PO_ID AND S.LINE_NBR = D.LINE_NBR AND S.SCHED_NBR
= D.SCHED_NBR AND D.RECV_SHIP_STATUS <> 'X')) AND S.BUSINESS_UNIT = R.BUSINESS_
UNIT AND S.PO_ID = R.PO_ID AND S.LINE_NBR = R.LINE_NBR AND S.SCHED_NBR = R.SCHED
_NBR AND S.business_unit =:1 and S.po_id=:2 and S.line_nbr=:3 and S.sched_nbr=:4
";
&SQL = &SQL1 | &SQL2 | &SQL3 | &SQL4 | &SQL5;
&sqlPO = CreateSQL(&SQL, &PAR_BUSINESS_UNIT, &PAR_PO_ID, &PAR_LINE_NBR, &PAR_
SCHED_NBR);
While &sqlPO.fetch(&V_BUSINESS_UNIT_PO, &V_PO_ID, &V_LINE_NBR, &V_SCHED_NBR,
&V_DISTRIB_LINE_NUM, &V_AMT_ONLY_FLG, &V_BUSINESS_UNIT_IN, &V_CATEGORY_CD, &V_CA
TEGORY_ID, &V_CB_SELECT_PO, &V_CONFIG_CODE, &V_COUNTRY_IST_ORIGIN, &V_CURRENCY_C
D, &V_CURRENCY_CD_BASE, &V_DESCR254_MIXED, &V_DETAILS_PB, &V_DISTRIB_MTHD_FLG, &
V_DUE_DT, &V_DUE_TIME, &V_ERS_ACTION, &V_INSPECT_CD, &V_INV_ITEM_ID, &V_IST_TXN_
FLG, &V_ITM_ID_VNDR, &V_ITM_SETID, &V_MANUFACTURER, &V_MATCH_LINE_OPT, &V_MERCH_
AMT_BSE, &V_MERCH_AMT_PO_BSE, &V_MERCHANDISE_AMT_PO, &V_MFG_ID, &V_MFG_ITM_ID, &
V_MODEL, &V_OP_SEQUENCE, &V_ORIG_PROM_DT, &V_PO_DT, &V_PO_TYPE, &V_PRICE_PO, &V_
PRICE_PO_BSE, &V_PRODUCTION_ID, &V_QTY_PO, &V_QTY_PRIOR_RECEIPT, &V_QTY_RECV_TOL
_PCT, &V_RECV_REQ, &V_RELEASE_NBR, &V_ROUTING_ID, &V_SHIPTO_ID, &V_SHIPTO_SETID,
&V_SHIP_TYPE_ID, &V_UNIT_OF_MEASURE, &V_VENDOR_ID, &V_VENDOR_SETID, &V_VNDR_CAT
ALOG_ID, &V_VNDR_LOC, &V_REJECT_DAYS, &V_REVISION, &V_ADDRESS_SEQ_NUM, &V_QTY_RE
MAIN, &V_DEPTID)
SQLExec("select project_id, tag_number from sysadm.ps_po_line_distrib wher
e business_unit = :1 and po_id=:2 and line_nbr=:3 and sched_nbr=:4 ", &V_BUSINES
S_UNIT_PO, &V_PO_ID, &V_LINE_NBR, &V_SCHED_NBR, &V_PROJECT_ID, &V_TAG_NUMBER);
SQLExec("select vendor_name_short, name1 from ps_vendor where setid = :1 a
nd vendor_id = :2", &V_VENDOR_SETID, &V_VENDOR_ID, &V_VENDOR_NAME_SHORT, &V_NAME
1);
If None(&V_VENDOR_NAME_SHORT) Then
Error ("Fornecedor: " | &V_VENDOR_ID | " no est cadastrado.");
End-If;
SQLExec("select crtl_location_bbl from ps_shipto_tbl where setid = :1 and
shipto_id = :2 and effdt = (select max(effdt) from ps_shipto_tbl where setid = :
3 and shipto_id = :4) and eff_status = 'A'", &V_SHIPTO_SETID, &V_SHIPTO_ID, &V_S
HIPTO_SETID, &V_SHIPTO_ID, &V_CRTL_LOCATION_BBL);
SQLExec("select business_unit, receiver_id from ps_recv_hdr where vendor_i

d = :1 and nf_brl = :2 and nf_brl_series = :3 and address_seq_num = :4 and recv_
status <> 'X'", &V_VENDOR_ID, &PAR_NF_BRL, &PAR_NF_BRL_SERIES, &V_ADDRESS_SEQ_NU
M, &EX_BU_RECV, &EX_RECEIVER_ID);
SQLExec("select country from ps_vendor_addr where setid =:1 and vendor_id
=:2 and address_seq_num =:3 and effdt = (select max(effdt) from ps_vendor_addr w
here setid =:4 and vendor_id =:5 and address_seq_num =:6 and effdt <= SYSDATE)",
&V_VENDOR_SETID, &V_VENDOR_ID, &V_ADDRESS_SEQ_NUM, &V_VENDOR_SETID, &V_VENDOR_I
D, &V_ADDRESS_SEQ_NUM, &V_COUNTRY);
SQLExec("select match_cntrl_id, match_status_po, rate_mult, rate_div from
ps_po_hdr where business_unit = :1 and po_id = :2", &V_BUSINESS_UNIT_PO, &V_PO_I
D, &V_MATCH_CNTRL_ID, &V_MATCH_STATUS_PO, &V_RATE_MULT, &V_RATE_DIV);
SQLExec("select match_type from ps_mtch_cntrl where setid = :1 and match_c
ntrl_id = :2 ", &V_VENDOR_SETID, &V_MATCH_CNTRL_ID, &V_MATCH_TYPE);
SQLExec("select device_tracking, unit_measure_std, lot_control, serial_con
trol, descr from ps_master_item_tbl where setid = :1 and inv_item_id = :2", &V_I
TM_SETID, &V_INV_ITEM_ID, &V_DEVICE_TRACKING, &VM_UNIT_MEASURE_STD, &VM_LOT_CONT
ROL, &VM_SERIAL_CONTROL, &VM_DESCR);
REM PEGA A CONVERCO UNIDADE MEDIDA DO RECEBIMENTO. ;
inv_item_id = :2 and unit_of_measure = :3", &V_ITM_SETID, &V_INV_ITEM_ID, &V_UN
IT_OF_MEASURE, &RECV_CONVERSION_RATE);
If &RECV_CONVERSION_RATE = 0 Or
None(&RECV_CONVERSION_RATE) Then
Error ("Error: Verifique Unidade de Converso para Item: " | &V_INV_ITEM_
ID | " UM: " | &V_UNIT_OF_MEASURE);
End-If;
REM PEGA A CONVERCO UNIDADE MEDIDA DE ESTOQUE. ;
inv_item_id = :2 and unit_of_measure = :3", &V_ITM_SETID, &V_INV_ITEM_ID, &VM_U
NIT_MEASURE_STD, &IN_CONVERSION_RATE);
SQLExec("select %DateOut(po_avail_dt), %DateOut(po_unavail_dt), descr,desc
rshort,product,account,altacct,price_list,taxable_cd,auto_source,std_lead,unit_p
rc_tol,ext_prc_tol,pct_unit_prc_tol,pct_ext_prc_tol,inspect_cd,inspect_uom_type,
routing_id,recv_req,qty_recv_tol_pct,rjct_over_tol_flag,rfq_req_flag,reject_days
,primary_buyer,model,accept_all_vendor,accept_all_shipto,contract_req,descr254_m
ixed,filename,file_extension,recv_partial_flg,currency_cd,pct_under_qty,vat_use_
id, stockless_flg,inspect_sample_per,last_po_price_paid,lead_time_imp,price_imp,
shipto_pr_imp,vndr_pr_imp,unit_prc_tol_l,ext_prc_tol_l,pct_unit_prc_tol_l,pct_ex
t_prc_tol_l, packing_volume,packing_weight,unit_measure_vol,unit_measure_wt,ship
_late_days,ship_type_id,kb_ovr_recv_tol, kb_past_due_po from ps_purch_item_attr
where setid = :1 and inv_item_id = :2", &V_ITM_SETID, &V_INV_ITEM_ID, &G_PO_AVAI
L_DT, &G_PO_UNAVAIL_DT, &G_DESCR, &G_DESCRSHORT, &G_PRODUCT, &G_ACCOUNT, &G_ALTA
CCT, &G_PRICE_LIST, &G_TAXABLE_CD, &G_AUTO_SOURCE, &G_STD_LEAD, &G_UNIT_PRC_TOL,
&G_EXT_PRC_TOL, &G_PCT_UNIT_PRC_TOL, &G_PCT_EXT_PRC_TOL, &G_INSPECT_CD, &G_INSP
ECT_UOM_TYPE, &G_ROUTING_ID, &G_RECV_REQ, &G_QTY_RECV_TOL_PCT, &G_RJCT_OVER_TOL_
FLAG, &G_RFQ_REQ_FLAG, &G_REJECT_DAYS, &G_PRIMARY_BUYER, &G_MODEL, &G_ACCEPT_ALL
_VENDOR, &G_ACCEPT_ALL_SHIPTO, &G_CONTRACT_REQ, &G_DESCR254_MIXED, &G_FILENAME,
&G_FILE_EXTENSION, &G_RECV_PARTIAL_FLG, &G_CURRENCY_CD, &G_PCT_UNDER_QTY, &G_VAT
_USE_ID, &G_STOCKLESS_FLG, &G_INSPECT_SAMPLE_PER, &G_LAST_PO_PRICE_PAID, &G_LEAD

_TIME_IMP, &G_PRICE_IMP, &G_SHIPTO_PR_IMP, &G_VNDR_PR_IMP, &G_UNIT_PRC_TOL_L, &G
_EXT_PRC_TOL_L, &G_PCT_UNIT_PRC_TOL_L, &G_PCT_EXT_PRC_TOL_L, &G_PACKING_VOLUME,
&G_PACKING_WEIGHT, &G_UNIT_MEASURE_VOL, &G_UNIT_MEASURE_WT, &G_SHIP_LATE_DAYS, &
G_SHIP_TYPE_ID, &G_KB_OVR_RECV_TOL, &G_KB_PAST_DUE_PO);
SQLExec("select a.cur_symbol, a.decimal_positions, a.scale_positions from
sysadm.ps_currency_cd_tbl a where a.currency_cd=:1 and a.effdt = (select max(b.e
ffdt) from sysadm.ps_currency_cd_tbl b where b.currency_cd = a.currency_cd) and
a.eff_status='A'", &V_CURRENCY_CD, &V_CUR_SYMBOL, &V_DECIMAL_POSITIONS, &V_SCALE
_POSITIONS);
SQLExec("select qty_recv_tol_pct, rjct_over_tol_flag, reject_days from ps_
po_line_ship where business_unit = :1 and po_id = :2 and line_nbr = :3 and sched
_nbr = :4 ", &V_BUSINESS_UNIT_PO, &V_PO_ID, &V_LINE_NBR, &V_SCHED_NBR, &V_QTY_RE
CV_TOL_PCT, &V_RJCT_OVER_TOL_FLAG, &V_REJECT_DAYS);
SQLExec("select po_dist_line_num, account, altacct, activity_id, analysis_
type, business_unit_am, business_unit_gl, business_unit_in, business_unit_pc, bu
yer_id, cap_num, cap_sequence, chartfield_status, consigned_flag, cost_type, cur
rency_cd, currency_cd_base, distrib_type, dst_acct_type, emplid, financial_asset
_sw, location, merch_amt_po_bse, merchandise_amt_po, phone, profile_id, qty_po,
rate_div, rate_mult, req_id, req_line_nbr, req_sched_nbr, req_distrib_nbr, resou
rce_category, resource_sub_cat, resource_type, rt_type, statistic_amount, statis
tics_code, tax_cd_sut_pct, tax_cd_vat_pct, operating_unit, deptid, product, proj
ect_id, affiliate from ps_recv_po_dist_vw where business_unit_po = :1 and po_id
= :2 and line_nbr = :3 and sched_nbr = :4 order by business_unit_po, po_id desc
, line_nbr, sched_nbr, po_dist_line_num", &V_BUSINESS_UNIT_PO, &V_PO_ID, &V_LINE
_NBR, &V_SCHED_NBR, &RECVPO_PO_DIST_LINE_NUM, &RECVPO_ACCOUNT, &RECVPO_ALTACCT,
&RECVPO_ACTIVITY_ID, &RECVPO_ANALYSIS_TYPE, &RECVPO_BUSINESS_UNIT_AM, &RECVPO_BU
SINESS_UNIT_GL, &RECVPO_BUSINESS_UNIT_IN, &RECVPO_BUSINESS_UNIT_PC, &RECVPO_BUYE
R_ID, &RECVPO_CAP_NUM, &RECVPO_CAP_SEQUENCE, &RECVPO_CHARTFIELD_STATUS, &RECVPO_
CONSIGNED_FLAG, &RECVPO_COST_TYPE, &RECVPO_CURRENCY_CD, &RECVPO_CURRENCY_CD_BASE
, &RECVPO_DISTRIB_TYPE, &RECVPO_DST_ACCT_TYPE, &RECVPO_EMPLID, &RECVPO_FINANCIAL
_ASSET_SW, &RECVPO_LOCATION, &RECVPO_MERCH_AMT_PO_BSE, &RECVPO_MERCHANDISE_AMT_P
O, &RECVPO_PHONE, &RECVPO_PROFILE_ID, &RECVPO_QTY_PO, &RECVPO_RATE_DIV, &RECVPO_
RATE_MULT, &RECVPO_REQ_ID, &RECVPO_REQ_LINE_NBR, &RECVPO_REQ_SCHED_NBR, &RECVPO_
REQ_DISTRIB_NBR, &RECVPO_RESOURCE_CATEGORY, &RECVPO_RESOURCE_SUB_CAT, &RECVPO_RE
SOURCE_TYPE, &RECVPO_RT_TYPE, &RECVPO_STATISTIC_AMOUNT, &RECVPO_STATISTICS_CODE,
&RECVPO_TAX_CD_SUT_PCT, &RECVPO_TAX_CD_VAT_PCT, &RECVPO_OPERATING_UNIT, &RECVPO
_DEPTID, &RECVPO_PRODUCT, &RECVPO_PROJECT_ID, &RECVPO_AFFILIATE);
SQLExec("select inv_item_type, lot_control, serial_control, ship_serial_cn
trl, non_own_flag from ps_inv_item_deflt where setid=:1 order by setid", &V_ITM_
SETID, &VITM_DEF_INV_ITEM_TYPE, &VITM_DEF_LOT_CONTROL, &VITM_DEF_SERIAL_CONTROL,
&VITM_DEF_SHIP_SERIAL_CNTRL, &VITM_DEF_NON_OWN_FLAG);
SQLExec("select dflt_serial_id, %dateout(dflt_staged_date), dflt_inv_lot_i
d, dflt_receiver_id, dflt_receiver_line, dflt_iunit_prefix, iunit_id_counter, st
aged_date_flag, uom_conv_flag, reserve_id_counter, confirm_id_counter, deplete_i
d_counter, ctnr_ae_counter from ps_installation_in", &INT_DFLT_SERIAL_ID, &INT_D
FLT_STAGED_DATE, &INT_DFLT_INV_LOT_ID, &INT_DFLT_RECEIVER_ID, &INT_DFLT_RECEIVER
_LINE, &INT_DFLT_IUNIT_PREFIX, &INT_IUNIT_ID_COUNTER, &INT_STAGED_DATE_FLAG, &IN
T_UOM_CONV_FLAG, &INT_RESERVE_ID_COUNTER, &INT_CONFIRM_ID_COUNTER, &INT_DEPLETE_
ID_COUNTER, &INT_CTNR_AE_COUNTER);
/*
|||||||||||||||||||||||||||||||||||||
||
||
|| GRAVANDO O RECEBIMENTO
||
||
||
|||||||||||||||||||||||||||||||||||||
*/
/*########################################################################
#
# INSERINDO TABELA RECV_HDR
#
########################################################################*/
SQLExec("select 'X' from sysadm.ps_recv_hdr where business_unit=:1 and rec
eiver_id=:2 ", &V_BUSINESS_UNIT_PO, &PAR_RECEIVER_ID, &EXISTE_RECEBTO);
If &EXISTE_RECEBTO <> "X" Then
&P6_BUSINESS_UNIT = &V_BUSINESS_UNIT_PO;
&P6_SHIPTO_ID = &V_SHIPTO_ID;
&P6_VENDOR_ID = &V_VENDOR_ID;
&P6_VEHICLE_ID = " ";
&P6_CARRIER_ID = " ";
&P6_COUNTRY_SHIP_FROM = "BRA";
&P6_DFLT_PACKSLIP_NO = " ";
&P6_DRIVER_ID = " ";
&P6_ERS_FLAG = "N";
&P6_ERS_INV_DT_OPT = " ";
&P6_ERS_INV_STATUS = "N";
&P6_FREIGHT_TERMS = " ";
&P6_HOLD_ASSET = "N";
&P6_HOLD_INVENTORY = "N";
&P6_IN_PROCESS_FLG = "N";
&P6_INTFC_ASSET = "Y";
&P6_INTFC_INVENTORY = "Y";
&P6_INTFC_MG = "Y";
&P6_MATCH_CNTRL_ID = &V_MATCH_CNTRL_ID;
&P6_MATCH_PROCESS_FLG = "N";
&P6_MATCH_STATUS_RECV = "N";
&P6_NUM_OF_CARTONS = 0;
&P6_OPRID = %OperatorId;
&P6_ORIGIN = " ";
&P6_PALLETS_RECV = 0;
&P6_PALLETS_RTN = 0;
&P6_PO_RECEIPT_FLG = "Y";
&P6_PORT_OF_UNLOADING = " ";
&P6_RECEIPT_DT = %Date;
&P6_RECEIPT_TM = %Time;
&P6_RECV_SOURCE = "1";
&P6_RECV_STATUS = "M";
&P6_SETID = &V_ITM_SETID;
&P6_SHIP_DATE = %Date;
&P6_SHIP_FROM_LOC = " ";

&P6_SHIPMENT_NO = " ";
&P6_VENDOR_SETID = &V_VENDOR_SETID;
&P6_VNDR_LOC = &V_VNDR_LOC;
&P6_POST_STATUS_RECV = " ";
&P6_OPRID_MODIFIED_BY = %OperatorId;
&P6_LAST_DTTM_UPDATE = %Datetime;
&P6_NF_BRL = &PAR_NF_BRL;
&P6_NF_BRL_SERIES = &PAR_NF_BRL_SERIES;
&P6_NF_BRL_DATE = &PAR_NF_BRL_DATE;
&P6_ADDRESS_SEQ_NUM = &V_ADDRESS_SEQ_NUM;
&P6_FLG_NF_FISCAL_PBL = "N";
GRAVA_RECV_HDR(&P6_BUSINESS_UNIT, &P6_RECEIVER_ID, &P6_SHIPTO_ID, &P6_V
ENDOR_ID, &P6_VEHICLE_ID, &P6_BILL_OF_LADING, &P6_CARRIER_ID, &P6_CONTAINER_ID,
&P6_COUNTRY_SHIP_FROM, &P6_DFLT_PACKSLIP_NO, &P6_DRIVER_ID, &P6_EIP_CTL_ID, &P6_
ERS_FLAG, &P6_ERS_INV_DT_OPT, &P6_ERS_INV_STATUS, &P6_FREIGHT_TERMS, &P6_HOLD_AS
SET, &P6_HOLD_INVENTORY, &P6_IN_PROCESS_FLG, &P6_INTFC_ASSET, &P6_INTFC_INVENTOR
Y, &P6_INTFC_MG, &P6_MATCH_CNTRL_ID, &P6_MATCH_PROCESS_FLG, &P6_MATCH_STATUS_REC
V, &P6_NUM_OF_CARTONS, &P6_OPRID, &P6_ORIGIN, &P6_PALLETS_RECV, &P6_PALLETS_RTN,
&P6_PO_RECEIPT_FLG, &P6_PORT_OF_UNLOADING, &P6_PRO_NUMBER, &P6_PROCESS_INSTANCE
, &P6_RECEIPT_DT, &P6_RECEIPT_TM, &P6_RECV_SOURCE, &P6_RECV_STATUS, &P6_SETID, &
P6_SHIP_DATE, &P6_SHIP_FROM_LOC, &P6_SHIPMENT_NO, &P6_VENDOR_SETID, &P6_VNDR_LOC
, &P6_POST_STATUS_RECV, &P6_OPRID_MODIFIED_BY, &P6_LAST_DTTM_UPDATE, &P6_NF_BRL,
&P6_NF_BRL_SERIES, &P6_NF_BRL_DATE, &P6_ADDRESS_SEQ_NUM, &P6_FLG_NF_FISCAL_PBL)
;
End-If;
/*########################################################################
#
# FIM INSERINDO TABELA RECV_HDR
#
########################################################################*/
If &PAR_CUSTO_TERCEIRO_FLG = "Y" Then
&CUSTO_UNITARIO = &PAR_CUSTO_TERCEIRO;
Else
&CUSTO_UNITARIO = &PAR_PRECO_UNITARIO;
End-If;
&TOTAL_LN_RECV = &PAR_QTD_ACEITA * &CUSTO_UNITARIO;
/*########################################################################
#
# INSERINDO TABELA RECV_LN_ASSET
#
########################################################################*/
&P1_DISTRIB_LINE_NUM = &V_DISTRIB_LINE_NUM;
&P1_DISTRIB_SEQ_NUM = 1;
&P1_ACTUAL_COST = &CUSTO_UNITARIO;
&P1_ASSET_ID = " ";
&P1_AUTO_BIN2BIN = "N";
&P1_BUSINESS_UNIT_AM = &RECVPO_BUSINESS_UNIT_AM;
&P1_BUSINESS_UNIT_IN = &V_BUSINESS_UNIT_IN;
&P1_COST = &TOTAL_LN_RECV;
&P1_CUSTODIAN = " ";
&P1_DESCR = &VM_DESCR;
&P1_DTTM_STAMP = %Datetime;
&P1_FINANCIAL_ASSET_SW = &RECVPO_FINANCIAL_ASSET_SW;
&P1_FROM_STOR_AREA = " ";
&P1_INV_ITEM_ID = &V_INV_ITEM_ID;
&P1_ITM_SETID = &V_ITM_SETID;
&P1_LOT_ID = &INT_DFLT_INV_LOT_ID;
&P1_MANUFACTURER = &V_MANUFACTURER;
&P1_MODEL = &G_MODEL;
&P1_PRE_INTFC_ID = 0;
&P1_PRE_INTFC_LINE_NUM = 0;
&P1_PRICE_PO_BSE = &V_PRICE_PO_BSE;
&P1_PROFILE_ID = &RECVPO_PROFILE_ID;
&P1_QTY_MOVED_ASSET = 0;
&P1_QTY_MOVED_INV = 0;
&P1_QUANTITY = &PAR_QTD_ACEITA;
&P1_RECV_AM_STATUS = "O";
&P1_SERIAL_ID = &INT_DFLT_SERIAL_ID;
&P1_SF_KANBAN_ID = " ";
&P1_STORAGE_AREA = " ";
&P1_STORAGE_CODE = " ";
&P1_TAG_NUMBER = &V_TAG_NUMBER;
&P1_VENDOR_ID = &V_VENDOR_ID;
&P1_VENDOR_LOT_ID = " ";
&P1_PRICE_FOR_INV_PBL = 0;
&P1_COST_AM_PBL = 0;
&P1_PROC_NF_CANCEL_PBL = " ";
GRAVA_RECV_LN_ASSET(&P1_BUSINESS_UNIT, &P1_RECEIVER_ID, &P1_RECV_LN_NBR, &
P1_RECV_SHIP_SEQ_NBR, &P1_DISTRIB_LINE_NUM, &P1_DISTRIB_SEQ_NUM, &P1_ACTUAL_COST
, &P1_ASSET_ID, &P1_AUTO_BIN2BIN, &P1_BUSINESS_UNIT_AM, &P1_BUSINESS_UNIT_IN, &P
1_CONTAINER_ID, &P1_COST, &P1_CURRENCY_CD, &P1_CUSTODIAN, &P1_DESCR, &P1_DTTM_ST
AMP, &P1_FINANCIAL_ASSET_SW, &P1_FROM_STOR_AREA, &P1_FROM_STOR_LEV1, &P1_FROM_ST
OR_LEV2, &P1_FROM_STOR_LEV3, &P1_FROM_STOR_LEV4, &P1_INV_ITEM_ID, &P1_ITM_SETID,
&P1_LOCATION, &P1_LOT_ID, &P1_MANUFACTURER, &P1_MODEL, &P1_PRE_INTFC_ID, &P1_PR
E_INTFC_LINE_NUM, &P1_PRICE_PO_BSE, &P1_PROCESS_INSTANCE, &P1_PROFILE_ID, &P1_QT

Y_MOVED_ASSET, &P1_QTY_MOVED_INV, &P1_QUANTITY, &P1_RECV_AM_STATUS, &P1_SERIAL_I
D, &P1_SF_KANBAN_ID, &P1_STORAGE_AREA, &P1_STORAGE_CODE, &P1_STOR_LEVEL_1, &P1_S
TOR_LEVEL_2, &P1_STOR_LEVEL_3, &P1_STOR_LEVEL_4, &P1_TAG_NUMBER, &P1_VENDOR_ID,
&P1_VENDOR_LOT_ID, &P1_PRICE_FOR_INV_PBL, &P1_COST_AM_PBL, &P1_PROC_NF_CANCEL_PB
L);
/*########################################################################
#
# FIM INSERINDO TABELA RECV_LN_ASSET
#
########################################################################*/
/*########################################################################
#
# INSERINDO TABELA RECV_LN_DISTRIB
#
########################################################################*/
&P2_DISTRIB_LINE_NUM = &V_DISTRIB_LINE_NUM;
&P2_ACCOUNT = &RECVPO_ACCOUNT;
&P2_ALTACCT = &RECVPO_ALTACCT;
&P2_ACTIVITY_ID = &RECVPO_ACTIVITY_ID;
&P2_ANALYSIS_TYPE = &RECVPO_ANALYSIS_TYPE;
&P2_BUSINESS_UNIT_AM = &RECVPO_BUSINESS_UNIT_AM;
&P2_BUSINESS_UNIT_GL = &RECVPO_BUSINESS_UNIT_GL;
&P2_BUSINESS_UNIT_PC = &RECVPO_BUSINESS_UNIT_PC;
&P2_BUSINESS_UNIT_PO = &V_BUSINESS_UNIT_PO;
&P2_CAP_NUM = &RECVPO_CAP_NUM;
&P2_CAP_SEQUENCE = &RECVPO_CAP_SEQUENCE;
&P2_CHARTFIELD_STATUS = &RECVPO_CHARTFIELD_STATUS;
&P2_CONSIGNED_FLAG = &RECVPO_CONSIGNED_FLAG;
&P2_COST_TYPE = &RECVPO_COST_TYPE;
&P2_COSTED_FLAG = "N";
&P2_CURRENCY_CD_BASE = &V_CURRENCY_CD_BASE;
&P2_DELIVERED_FLG = "N";
&P2_DELIVERED_TO = " ";
&P2_DISTRIB_TYPE = &PAR_DISTRIB_TYPE;
&P2_DST_ACCT_TYPE = &RECVPO_DST_ACCT_TYPE;
&P2_EMPLID = &RECVPO_EMPLID;
&P2_FREIGHT_PERCENT = 0;
&P2_LINE_NBR = &V_LINE_NBR;
&P2_LOC_RECV_LBL_FLG = "N";
&P2_MERCH_AMT_BSE = &TOTAL_LN_RECV;
&P2_MERCH_AMT_PO_BSE = &V_MERCH_AMT_PO_BSE;
&P2_MERCHANDISE_AMT = &TOTAL_LN_RECV;
&P2_MERCHANDISE_AMT_PO = &V_MERCHANDISE_AMT_PO;
&P2_MOV_DS_ACCPT_SUOM = 0;
&P2_PO_DIST_LINE_NUM = &RECVPO_PO_DIST_LINE_NUM;
&P2_PO_ID = &V_PO_ID;
&P2_PROFILE_ID = &RECVPO_PROFILE_ID;
&P2_QTY_DS_ACCPT_SUOM = &PAR_QTD_ACEITA * &RECV_CONVERSION_RATE;
&P2_QTY_DS_ACCPT_VUOM = &PAR_QTD_ACEITA;
&P2_QTY_PO = &V_QTY_PO;
&P2_RATE_DIV = &V_RATE_DIV;
&P2_RATE_MULT = &V_RATE_MULT;
&P2_RECV_DS_STATUS = "R";
&P2_REQ_ID = &RECVPO_REQ_ID;
&P2_RESOURCE_CATEGORY = &RECVPO_RESOURCE_SUB_CAT;
&P2_RESOURCE_SUB_CAT = &RECVPO_RESOURCE_SUB_CAT;
&P2_RESOURCE_TYPE = &RECVPO_RESOURCE_TYPE;
&P2_RT_TYPE = &RECVPO_RT_TYPE;
&P2_SCHED_NBR = &V_SCHED_NBR;
&P2_STATISTICS_CODE = &RECVPO_STATISTICS_CODE;
&P2_STATISTIC_AMOUNT = &RECVPO_STATISTIC_AMOUNT;
&P2_TAX_CD_SUT_PCT = &RECVPO_TAX_CD_SUT_PCT;
&P2_TAX_CD_VAT_PCT = &RECVPO_TAX_CD_VAT_PCT;
&P2_OPERATING_UNIT = &RECVPO_OPERATING_UNIT;
&P2_DEPTID = &V_DEPTID;
&P2_PRODUCT = &V_PRODUCTION_ID;
&P2_PROJECT_ID = &V_PROJECT_ID;
&P2_AFFILIATE = &RECVPO_AFFILIATE;
GRAVA_RECV_LN_DISTRIB(&P2_BUSINESS_UNIT, &P2_RECEIVER_ID, &P2_RECV_LN_NBR,
&P2_RECV_SHIP_SEQ_NBR, &P2_DISTRIB_LINE_NUM, &P2_ACCOUNT, &P2_ALTACCT, &P2_ACTI
VITY_ID, &P2_ANALYSIS_TYPE, &P2_BUSINESS_UNIT_AM, &P2_BUSINESS_UNIT_GL, &P2_BUSI
NESS_UNIT_IN, &P2_BUSINESS_UNIT_PC, &P2_BUSINESS_UNIT_PO, &P2_CAP_NUM, &P2_CAP_S
EQUENCE, &P2_CHARTFIELD_STATUS, &P2_CONSIGNED_FLAG, &P2_COST_TYPE, &P2_COSTED_FL
AG, &P2_CURRENCY_CD, &P2_CURRENCY_CD_BASE, &P2_DELIVERED_FLG, &P2_DELIVERED_TO,
&P2_DISTRIB_TYPE, &P2_DST_ACCT_TYPE, &P2_EMPLID, &P2_FINANCIAL_ASSET_SW, &P2_FRE
IGHT_PERCENT, &P2_LINE_NBR, &P2_LOCATION, &P2_LOC_RECV_LBL_FLG, &P2_MERCH_AMT_BS
E, &P2_MERCH_AMT_PO_BSE, &P2_MERCHANDISE_AMT, &P2_MERCHANDISE_AMT_PO, &P2_MOV_DS
_ACCPT_SUOM, &P2_PO_DIST_LINE_NUM, &P2_PO_ID, &P2_PROCESS_INSTANCE, &P2_PROFILE_
ID, &P2_QTY_DS_ACCPT_SUOM, &P2_QTY_DS_ACCPT_VUOM, &P2_QTY_PO, &P2_RATE_DIV, &P2_
RATE_MULT, &P2_RECV_DS_STATUS, &P2_REQ_ID, &P2_RESOURCE_CATEGORY, &P2_RESOURCE_S
UB_CAT, &P2_RESOURCE_TYPE, &P2_RT_TYPE, &P2_SCHED_NBR, &P2_STATISTICS_CODE, &P2_
STATISTIC_AMOUNT, &P2_TAX_CD_SUT_PCT, &P2_TAX_CD_VAT_PCT, &P2_OPERATING_UNIT, &P
2_DEPTID, &P2_PRODUCT, &P2_PROJECT_ID, &P2_AFFILIATE);
/*########################################################################
#
# FIM INSERINDO TABELA RECV_LN_DISTRIB
#
########################################################################*/
/*########################################################################
#
# INSERINDO TABELA RECV_LN_INSP
#
########################################################################*/
&P3_OP_SEQ = &V_OP_SEQUENCE;
&P3_ROUTING_SETID = " ";
&P3_ROUTING_ID = &V_ROUTING_ID;
&P3_OP_TIME_STD = 0;
&P3_OP_TIME_CD = "P";
&P3_OP_TIME_STD_TTL = 0;
&P3_OP_TIME_ACT_TTL = 0;
GRAVA_RECV_LN_INSP(&P3_BUSINESS_UNIT, &P3_RECEIVER_ID, &P3_RECV_LN_NBR, &P
3_OP_SEQ, &P3_ROUTING_SETID, &P3_ROUTING_ID, &P3_OP_TIME_STD, &P3_OP_TIME_CD, &P
3_OP_TIME_STD_TTL, &P3_OP_TIME_ACT_TTL, &P3_PROCESS_INSTANCE);
/*########################################################################
#
# FIM INSERINDO TABELA RECV_LN_INSP
#
########################################################################*/
/*########################################################################
#
# INSERINDO TABELA RECV_LN_SHIP
#
########################################################################*/
&P4_AMT_ONLY_FLG = &V_AMT_ONLY_FLG;
&P4_ASN_SEQ_NBR = 0;
&P4_BUSINESS_UNIT_PO = &V_BUSINESS_UNIT_PO;
&P4_CATEGORY_ID = &V_CATEGORY_ID;
&P4_CONFIG_CODE = &V_CONFIG_CODE;
&P4_CONVERSION_RATE = &RECV_CONVERSION_RATE;
&P4_CONVERT_TO_STK = &RECV_CONVERSION_RATE;
&P4_CONVERT_TO_PO = &IN_CONVERSION_RATE;
&P4_CONVERT_STK_TO_STD = &IN_CONVERSION_RATE;
&P4_COUNTRY_IST_ORIGIN = &V_COUNTRY_IST_ORIGIN;
&P4_CURRENCY_CD_BASE = &V_CURRENCY_CD_BASE;
&P4_DESCR254_MIXED = &V_DESCR254_MIXED;
&P4_DEVICE_TRACKING = &V_DEVICE_TRACKING;
&P4_DISTRIB_MTHD_FLG = &V_DISTRIB_MTHD_FLG;
&P4_DUE_DT = &V_DUE_DT;
&P4_DUE_TIME = %Time;
&P4_ERS_INV_SEQ = 0;
&P4_ERS_STATUS = "N";
&P4_INSPECT_CD = &V_INSPECT_CD;
&P4_INSPECT_DTTM = %Datetime;
&P4_INSPECT_STATUS = "C";
&P4_INV_ITEM_ID = &V_INV_ITEM_ID;
&P4_IST_DISTRIB_STATUS = "I";
&P4_ITM_ID_VNDR = " ";
&P4_ITM_SETID = &PAR_SETID;
&P4_LINE_NBR = &PAR_LINE_NBR;
&P4_LOT_CONTROL = &VM_LOT_CONTROL;
&P4_LOT_STATUS = "C";
&P4_MATCH_LINE_FLG = "Y";
&P4_MATCH_STATUS_LC = 0;
&P4_MERCH_AMT_BSE = &TOTAL_LN_RECV;
&P4_MERCH_AMT_PO_BSE = &V_MERCH_AMT_PO_BSE;
&P4_MERCHANDISE_AMT = &TOTAL_LN_RECV;
&P4_MERCHANDISE_AMT_PO = &V_MERCHANDISE_AMT_PO;
&P4_MFG_ID = &V_MFG_ID;
&P4_MFG_ITM_ID = &V_MFG_ITM_ID;
&P4_MOVE_STAT_AM = "N";
&P4_MOVE_STAT_INV = "P";
&P4_MOVE_STAT_MFG = "N";
&P4_OP_SEQUENCE = 0;
&P4_OPRID = %UserId;
&P4_PACKSLIP_NO = " ";
&P4_PO_ID = &V_PO_ID;
&P4_PO_TYPE = &V_PO_TYPE;
&P4_PRICE_PO = &V_PRICE_PO_BSE;
&P4_PRICE_PO_BSE = &V_PRICE_PO_BSE;
&P4_PROCESS_COMPLETE = "N";
&P4_PRODUCTION_ID = &V_PRODUCTION_ID;
&P4_QTY_LN_ASSET_SUOM = 0;
&P4_QTY_LN_INV_SUOM = &PAR_QTD_ACEITA * &RECV_CONVERSION_RATE;
&P4_QTY_SH_ACCPT = &PAR_QTD_ACEITA;
&P4_QTY_SH_ACCPT_SUOM = &PAR_QTD_ACEITA;
&P4_QTY_SH_ACCPT_VUOM = &PAR_QTD_ACEITA;
&P4_QTY_SH_INSPD = 0;
&P4_QTY_SH_INSPD_SUOM = 0;
&P4_QTY_SH_INSPD_VUOM = 0;
&P4_QTY_SH_NETRCV_VUOM = &PAR_QTD_ACEITA;
&P4_QTY_SH_RECVD = &PAR_QTD_ACEITA;
&P4_QTY_SH_RECVD_SUOM = &PAR_QTD_ACEITA * &RECV_CONVERSION_RATE;
&P4_QTY_SH_RECVD_VUOM = &PAR_QTD_ACEITA;
&P4_QTY_SH_REJCT = 0;
&P4_QTY_SH_REJCT_SUOM = 0;
&P4_QTY_SH_REJCT_VUOM = 0;
&P4_QTY_SH_RTN = 0;
&P4_QTY_SH_RTN_SUOM = 0;
&P4_QTY_SH_RTN_VUOM = 0;
&P4_REJECT_ACTION = " ";
&P4_REJECT_REASON = " ";
&P4_REVISION = &V_REVISION;
&P4_RMA_ID = " ";
&P4_RMA_LINE_NBR = 0;
&P4_RECEIPT_ALLOC_TYPE = "1";
&P4_RECEIPT_DTTM = %Datetime;
&P4_RECEIPT_UM = &V_UNIT_OF_MEASURE;
&P4_RECEIVE_UOM = &V_UNIT_OF_MEASURE;
&P4_RECV_LN_MATCH_OPT = "N";
&P4_RECV_SHIP_STATUS = "R";
&P4_RECV_STOCK_UOM = &VM_UNIT_MEASURE_STD;
&P4_REPLACEMENT_FLG = "NA";
&P4_SCHED_NBR = &V_SCHED_NBR;
&P4_SERIAL_CONTROL = &VM_SERIAL_CONTROL;
&P4_SERIAL_STATUS = "C";
&P4_SHIP_DATE_STATUS = "3";
&P4_SHIP_QTY_STATUS = "1";
&P4_SHIPTO_ID = &V_SHIPTO_ID;
&P4_UNIT_MEASURE_STD = &VM_UNIT_MEASURE_STD;
GRAVA_RECV_LN_SHIP(&P4_BUSINESS_UNIT, &P4_RECEIVER_ID, &P4_RECV_LN_NBR, &P
4_RECV_SHIP_SEQ_NBR, &P4_AMT_ONLY_FLG, &P4_ASN_SEQ_NBR, &P4_BILL_OF_LADING, &P4_
BUSINESS_UNIT_IN, &P4_BUSINESS_UNIT_PO, &P4_CATEGORY_ID, &P4_CONFIG_CODE, &P4_CO
NVERSION_RATE, &P4_CONVERT_TO_STK, &P4_CONVERT_TO_PO, &P4_CONVERT_STK_TO_STD, &P
4_COUNTRY_IST_ORIGIN, &P4_CURRENCY_CD, &P4_CURRENCY_CD_BASE, &P4_DESCR254_MIXED,
&P4_DEVICE_TRACKING, &P4_DISTRIB_MTHD_FLG, &P4_DUE_DT, &P4_DUE_TIME, &P4_EIP_CT
L_ID, &P4_ERS_INV_SEQ, &P4_ERS_STATUS, &P4_INSPECT_CD, &P4_INSPECT_DTTM, &P4_INS
PECT_STATUS, &P4_INV_ITEM_ID, &P4_IST_DISTRIB_STATUS, &P4_ITM_ID_VNDR, &P4_ITM_S
ETID, &P4_LINE_NBR, &P4_LOT_CONTROL, &P4_LOT_STATUS, &P4_MATCH_LINE_FLG, &P4_MAT
CH_STATUS_LC, &P4_MERCH_AMT_BSE, &P4_MERCH_AMT_PO_BSE, &P4_MERCHANDISE_AMT, &P4_
MERCHANDISE_AMT_PO, &P4_MFG_ID, &P4_MFG_ITM_ID, &P4_MOVE_STAT_AM, &P4_MOVE_STAT_
INV, &P4_MOVE_STAT_MFG, &P4_OP_SEQUENCE, &P4_OPRID, &P4_PACKSLIP_NO, &P4_PO_ID,
&P4_PO_TYPE, &P4_PRICE_PO, &P4_PRICE_PO_BSE, &P4_PRO_NUMBER, &P4_PROCESS_COMPLET
E, &P4_PROCESS_INSTANCE, &P4_PRODUCTION_ID, &P4_QTY_LN_ASSET_SUOM, &P4_QTY_LN_IN
V_SUOM, &P4_QTY_SH_ACCPT, &P4_QTY_SH_ACCPT_SUOM, &P4_QTY_SH_ACCPT_VUOM, &P4_QTY_
SH_INSPD, &P4_QTY_SH_INSPD_SUOM, &P4_QTY_SH_INSPD_VUOM, &P4_QTY_SH_NETRCV_VUOM,
&P4_QTY_SH_RECVD, &P4_QTY_SH_RECVD_SUOM, &P4_QTY_SH_RECVD_VUOM, &P4_QTY_SH_REJCT
, &P4_QTY_SH_REJCT_SUOM, &P4_QTY_SH_REJCT_VUOM, &P4_QTY_SH_RTN, &P4_QTY_SH_RTN_S
UOM, &P4_QTY_SH_RTN_VUOM, &P4_REJECT_ACTION, &P4_REJECT_REASON, &P4_REVISION, &P
4_RMA_ID, &P4_RMA_LINE_NBR, &P4_RECEIPT_ALLOC_TYPE, &P4_RECEIPT_DTTM, &P4_RECEIP
T_UM, &P4_RECEIVE_UOM, &P4_RECV_LN_MATCH_OPT, &P4_RECV_SHIP_STATUS, &P4_RECV_STO
CK_UOM, &P4_REPLACEMENT_FLG, &P4_SCHED_NBR, &P4_SERIAL_CONTROL, &P4_SERIAL_STATU
S, &P4_SHIP_DATE_STATUS, &P4_SHIP_QTY_STATUS, &P4_SHIPTO_ID, &P4_UNIT_MEASURE_ST
D);
/*########################################################################
#
# FIM INSERINDO TABELA RECV_LN_SHIP
#
########################################################################*/
/*########################################################################
#
# INSERINDO TABELA RECV_LN_SHP_MTH
#
########################################################################*/
&P5_TXN_CURRENCY_CD = " ";
&P5_QTY_MATCHED = 0;
&P5_AMT_MATCHED = 0;
GRAVA_RECV_LN_SHP_MTH(&P5_BUSINESS_UNIT, &P5_RECEIVER_ID, &P5_RECV_LN_NBR,
&P5_RECV_SHIP_SEQ_NBR, &P5_TXN_CURRENCY_CD, &P5_QTY_MATCHED, &P5_AMT_MATCHED);
/*########################################################################
#
# FIM INSERINDO TABELA RECV_LN_SHP_MTH
#
########################################################################*/
/*
|||||||||||||||||||||||||||||||||||||
||
||
|| FIM GRAVANDO O RECEBIMENTO
||
||
||
|||||||||||||||||||||||||||||||||||||
*/
If &ULTIMA_LINHA = "Y" Then
&RECEBIDO_TUDO = "Y";
SQLExec("SELECT 'N' FROM SYSADM.PS_MMC_TE_OC_VW WHERE BUSINESS_UNIT = :
1 AND PO_ID = :2 AND QTY_PO > 0", &V_BUSINESS_UNIT_PO, &V_PO_ID, &RECEBIDO_TUDO)
;
If None(&RECEBIDO_TUDO) Or
&RECEBIDO_TUDO = "N" Then
SQLExec("update sysadm.ps_po_hdr set recv_status = 'P', backorder_st
atus='3' where business_unit =:1 and po_id =:2 ", &V_BUSINESS_UNIT_PO, &V_PO_ID)
;
Else
SQLExec("update sysadm.ps_po_hdr set recv_status = 'R', backorder_st
atus='3' where business_unit =:1 and po_id =:2 ", &V_BUSINESS_UNIT_PO, &V_PO_ID)
;
End-If;
End-If;
End-While;
End-Function;
[MMC_TE_CAL_PREC.ADD_AMOUNT.FieldChange]
/*******************************************************************************
***
* Claudio Henrique da Costa - MMC - 20/12/2007 - mmcb.2323
*
* Criao da tela de parametrizao de valor/percentual adicional/fixo para item
*
* em faturamento via Solicitao Eletrnica.
*
********************************************************************************
***/
If %Page = "MMC_TE_CAL_PREC" Then
If (ADD_AMOUNT <> 0 And
AMOUNT <> 0) Or
(AMOUNT <> 0 And
MMC_PERCENTUAL <> 0) Or
(MMC_PERCENTUAL <> 0 And
ADD_AMOUNT <> 0) Then

Error ("Apenas um tipo de acrscimo ou valor fixo permitido por Grupo/OF ou
Item.");
End-If;
End-If;
[MMC_TE_CAL_PREC.AMOUNT.FieldChange]
/*******************************************************************************
***
*
*
*
********************************************************************************
***/
AMOUNT <> 0) Or
(AMOUNT <> 0 And
Item.");
End-If;
End-If;
[MMC_TE_CAL_PREC.DT_TIMESTAMP.RowInsert]
/*******************************************************************************
***
*
*
*
********************************************************************************
***/
/*******************************************************************************
**
* Ricardo L. Rezende - MMCB - 06/11/2009
- mmcb.sds3239
*
* Projeto Implantao People - Multi Empresa MMCB-SVB.
*
********************************************************************************
*/
Declare Function BUSCA_SETID PeopleCode MMC_BU_SETID.SETID SavePreChange; /* mmc
b.sds3239.ln */
&SETID_GERAL = BUSCA_SETID(); /* mmcb.sds3239.ln */
DT_TIMESTAMP = %Datetime;
EFF_STATUS = "A";
/********************** mmcb.sds3239.so *********************

SETID = "MMCSA";
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.sds3239.sn **********************/
SETID = &SETID_GERAL;
/********************** mmcb.sds3239.en **********************/
End-If;
[MMC_TE_CAL_PREC.INV_ITEM_ID.FieldChange]
/*******************************************************************************
***
*
*
*
********************************************************************************
***/
If All(INV_ITEM_ID) And
(All(LT_GRP_ID_BBL) Or
All(TOF_PBL)) Then
Error ("Apenas Dados Fiscais ou Item deve ser parametrizados.");
End-If;
End-If;
[MMC_TE_CAL_PREC.MMC_PERCENTUAL.FieldChange]
/*******************************************************************************
***
*
*
*
********************************************************************************
***/
AMOUNT <> 0) Or
(AMOUNT <> 0 And
Item.");
End-If;
End-If;
[MMC_TE_CAL_PREC.SETID.RowInit]
/*******************************************************************************
***
*
*
*
********************************************************************************
***/
/*******************************************************************************
**
* Ricardo L. Rezende - MMCB - 06/11/2009
- mmcb.sds3239
*
*
********************************************************************************
*/
b.sds3239.ln */
/********************** mmcb.sds3239.so *********************
SETID = "MMCSA";
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.sds3239.sn **********************/
SETID = BUSCA_SETID();
/********************** mmcb.sds3239.en **********************/
[MMC_TE_CRIAOP.MMC_ESPECIFICO.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Oculta Campo de NF para todas NFs.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Vincius Alves Mello - MMC - 14/10/2010 - mmcb.sds3425 - Sistema Controle Terce
iros
*
* Retirada a tabela MMC_TE_OP_ASNFS da tela.
*
*******************************************************************************
*****************/
If %Component = "MMC_TE_CRIAOP" Then
NF_BRL_ID = " ";
If MMC_ESPECIFICO = "T" Then
Hide(NF_BRL_ID);
/*HideScroll(Record.MMC_TE_OP_ASNFS);*/ /*mmcb.sds3425.lo*/
Else
UnHide(NF_BRL_ID);
End-If;
End-If;
[MMC_TE_CRIAOP.NF_BRL_ID.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Oculta Campo de NF para todas NFs.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
iros
*
* Foi retirada a tabela MMC_TE_OP_ASNFS da tela.
*
*******************************************************************************
*****************/
/*ScrollFlush(Record.MMC_TE_OP_ASNFS);*/ /*mmcb.sds3425.lo*/
If NF_BRL_ID = " " Or
NF_BRL_ID = "" Or
None(NF_BRL_ID) Then
/*********************** mmcb.sds3425.so ***********************/
/*HideScroll(Record.MMC_TE_OP_ASNFS);
GetRowset(Scroll.MMC_TE_OP_ASNFS).Select(Record.MMC_TE_OP_ASNFS, "where bu
siness_unit = '" | BUSINESS_UNIT | "' AND NF_BRL_ID = '" | NF_BRL_ID | "'");*/
/*********************** mmcb.sds3425.eo ***********************/
Else
/*UnhideScroll(Record.MMC_TE_OP_ASNFS);*/ /*mmcb.sds3425.lo*/
SQLExec("SELECT COUNT(DISTINCT NF_BRL_LINE_NUM) FROM SYSADM.PS_MMC_TE_OP W
HERE BUSINESS_UNIT = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_BRL_ID, &RESULTAD
O);
/*********************** mmcb.sds3425.so ***********************/
/*
GetRowset(Scroll.MMC_TE_OP_ASNFS).Select(Record.MMC_TE_OP_ASNFS, "where bu
siness_unit = '" | BUSINESS_UNIT | "' AND NF_BRL_ID = '" | NF_BRL_ID | "'");
If &RESULTADO = GetLevel0()(1).GetRowset(Scroll.MMC_TE_OP_ASNFS).ActiveRow
Count Then
For &I = 1 To GetLevel0()(1).GetRowset(Scroll.MMC_TE_OP_ASNFS).ActiveRo
wCount
GetLevel0()(1).GetRowset(Scroll.MMC_TE_OP_ASNFS)(&I).GetRecord(Recor
d.MMC_TE_OP_ASNFS).SEQ_NBR.Value = &I;
d.MMC_TE_OP_ASNFS).BUSINESS_UNIT.Value = BUSINESS_UNIT;
d.MMC_TE_OP_ASNFS).NF_BRL_ID.Value = NF_BRL_ID;
End-For;
End-If;
*/
/*********************** mmcb.sds3425.eo ***********************/
If &RESULTADO = 1 Then
SQLExec("SELECT BUSINESS_UNIT_IN, NF_BRL_ID_2_BBL, NF_BRL_LINE_NUM FROM
SYSADM.PS_MMC_TE_OP WHERE BUSINESS_UNIT = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT
, NF_BRL_ID, &BUI, &NFI, &NFLN);

/*
GetLevel0()(1).GetRowset(Scroll.MMC_TE_OP_ASNFS)(1).GetRecord(Record.MMC_
TE_OP_ASNFS).BUSINESS_UNIT_IN.Value = &BUI;
GetLevel0()(1).GetRowset(Scroll.MMC_TE_OP_ASNFS)(1).GetRecord(Record.MM
C_TE_OP_ASNFS).NF_BRL_ID_2_BBL.Value = &NFI;
GetLevel0()(1).GetRowset(Scroll.MMC_TE_OP_ASNFS)(1).GetRecord(Record.MM
C_TE_OP_ASNFS).NF_BRL_LINE_NUM.Value = &NFLN;
*/
End-If;
End-If;
End-If;
[MMC_TE_CRIAOP.OPRID.RowInit]
/*******************************************************************************
*****************
ole Terceiros *
* Preenche automaticamente dados do usurio.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Fabianoa Cunha - MMC - 24/02/2010 - mmcb.hd84567 - Correo no erro que estava apa
recendo na *
* tela
*
********************************************************************************
*****************/
/*******************************************************************************
*****************
iros
*
* Retirada a tabela MMC_TE_OP_ASNFS da tela.
*
*******************************************************************************
*****************/
OPRID = %UserId;
MMC_ESPECIFICO = "T";
Hide(NF_BRL_ID);
/*********************** mmcb.sds3425.so ***********************/
/*
If GetLevel0()(1).RecordCount > 1 Then
GetLevel0()(1).GetRowset(Scroll.MMC_TE_OP_ASNFS)(1).Visible = False;
End-If;
*/
/*********************** mmcb.sds3425.eo ***********************/
/* mmcb.hd84567-s.n */
/*If %OperatorClass <> "ALLPNLS" Then
Gray(OPRID);
End-If; */
/* mmcb.hd84567-e.n */
End-If;
[MMC_TE_OP.MMC_TE_QTD_PAI.SaveEdit]
/*******************************************************************************
*****************
* Wagner Sorio MMC - 09/04/2008 - mmcb.at2323 - Sistema Controle Terceiros
*
* No deixar salvar codigo item pai negativo ou zerado.
*
********** ********************************************************************
******************/
/********************** mmcb.at2323.sn **********************/
If MMC_TE_QTD_PAI <= 0 Then
Error ("Quantidade Item Pai deve ser maior que Zero ");
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_OP_OC_WK.ADDRESS_SEQ_NUM.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Preenche automaticamente CNPJ do fornecedor.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Augusto Vilarinho Neto - MMCB - 05/11/2009 - mmcb.sds3239
*
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Vincius Alves Mello - MMC - 05/10/2010 - mmcb.sds3426
*
* Preencher dados fornecedor.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Vincius Alves Mello - MMCB - 07/10/2010 - mmcb.sds3425 - Sistema Controle Terc
eiros
*
* Buscar condio de pagamento automaticamente, para notas de triangulao.
*
*******************************************************************************
*****************/
b.sds3239.ln */
/********************** mmcb.at2323.sn **********************/
If All(VENDOR_ID) And
All(ADDRESS_SEQ_NUM) Then
/********************** mmcb.sds3239.so **********************/

/*SQLExec("Select A.CGC_BRL,B.DEFAULT_LOC FROM PS_VNDR_ADDR_SCROL A, PS_VENDO
R B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = 'MMCSA'
AND A.VENDOR_ID=:1 AND A.ADDRESS_SEQ_NUM =:2 ", VENDOR_ID, ADDRESS_SEQ_NUM, CGC_
BRL, VNDR_LOC);*/
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.sds3426.so **********************/
/********************** mmcb.sds3239.sn **********************/
R B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = :1 AND A
.VENDOR_ID=:2 AND A.ADDRESS_SEQ_NUM =:3 ", BUSCA_SETID(), VENDOR_ID, ADDRESS_SEQ
_NUM, CGC_BRL, VNDR_LOC);*/
/********************** mmcb.sds3239.en **********************/
/********************** mmcb.sds3426.eo **********************/
/********************** mmcb.sds3426.sn **********************/
CGC_BRL = "";
VNDR_LOC = "";
SQLExec("SELECT A.CGC_BRL, C.VNDR_LOC FROM SYSADM.PS_VNDR_ADDR_SCROL A, SYSAD
M.PS_VENDOR B, SYSADM.PS_VENDOR_LOC C WHERE A.SETID = B.SETID AND A.VENDOR_ID =
B.VENDOR_ID AND A.SETID = C.SETID AND A.VENDOR_ID = C.VENDOR_ID AND A.ADDRESS_SE
Q_NUM = C.ADDR_SEQ_NUM_ORDR AND C.EFF_STATUS = 'A' AND C.EFFDT IN ( SELECT MAX(C
_X.EFFDT) FROM SYSADM.PS_VENDOR_LOC C_X WHERE C_X.SETID = C.SETID AND C_X.VENDOR
_ID = C.VENDOR_ID AND C_X.ADDR_SEQ_NUM_ORDR = C.ADDR_SEQ_NUM_ORDR AND C_X.EFF_ST
ATUS = 'A' ) AND A.SETID = :1 AND A.VENDOR_ID=:2 AND A.ADDRESS_SEQ_NUM =:3", BUS
CA_SETID(), VENDOR_ID, ADDRESS_SEQ_NUM, CGC_BRL, VNDR_LOC);
SQLExec("SELECT PYMNT_TERMS_CD FROM SYSADM.PS_VNDR_ADDR_SCROL A, SYSADM.PS_VE
NDOR_LOC B WHERE B.SETID = A.SETID AND B.VENDOR_ID = A.VENDOR_ID AND B.REMIT_ADD
R_SEQ_NUM = A.ADDRESS_SEQ_NUM AND A.CGC_BRL=:1", CGC_BRL, NF_HDR_BRL.PYMNT_TERMS
_CD); /*mmcb.sds3425.ln*/
Else
CGC_BRL = "";
ADDRESS_SEQ_NUM = 0;
VNDR_LOC = "";
/********************** mmcb.sds3426.en **********************/
End-If;
/********************** mmcb.at2323.en **********************/
/********************** mmcb.sds3426.sn **********************/
Gray(VNDR_LOC);
/********************** mmcb.sds3426.en **********************/
[MMC_TE_OP_OC_WK.BTN_SELECT.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - Limpa Grade OC da Industrializao.
*
********** ********************************************************************
******************/
/********************** mmcb.at2323.sn **********************/
If %Page = Page.MMC_TE_NF_OP Then
If None(BUSINESS_UNIT_IN) Then
WinMessage("Unidade Negocio Insumos est em branco");
Exit;
End-If;
If None(NF_BRL_ID_2_BBL) Then
WinMessage("NF Insumos est em branco");
Exit;
End-If;
If None(MMC_TE_QTD_PAI) Or
MMC_TE_QTD_PAI <= 0 Then
WinMessage("Qtd Item Pai invalida.");
End-If;
&LEVEL1 = GetRowset(Scroll.MMC_TE_OP_OC_VW);
&condicao = " where business_unit= '" | NF_HDR_BRL.BUSINESS_UNIT | "' ";
If All(VENDOR_ID) Then
&condicao = &condicao | " and vendor_id='" | VENDOR_ID | "' ";
Else
WinMessage("O Campo fornecedor Obrigatorio.");
Exit;
End-If;
If All(PO_ID) Then
&condicao = &condicao | " and po_id='" | PO_ID | "' ";
End-If;
If All(INV_ITEM_ID) Then
&condicao = &condicao | " and inv_item_id='" | INV_ITEM_ID | "' ";
End-If;
&condicao = &condicao | " and qty_po > 0 ";
For &Q = &LEVEL1.ACTIVEROWCOUNT To 1 Step - 1;
If &LEVEL1.GetRow(&Q).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE <> "Y" Then
&LEVEL1.DeleteRow(&Q);
End-If
End-For;
&LEVEL1.Select(Record.MMC_TE_OP_OC_VW, &condicao);
REM Codigo para validar se existe OC Duplicado ;
REM LIMPA AS NFS QUE NO FORAM SELECIONADAS ;
For &N1 = &LEVEL1.ActiveRowCount To 1 Step - 1;
&PO_ID_ANTERIOR = &LEVEL1.GetRow(&N1).MMC_TE_OP_OC_VW.PO_ID.VALUE;
&PO_LINE_ANTERIOR = &LEVEL1.GetRow(&N1).MMC_TE_OP_OC_VW.LINE_NBR.VALUE;
&PO_SCHED_ANTERIOR = &LEVEL1.GetRow(&N1).MMC_TE_OP_OC_VW.SCHED_NBR.VALUE;
For &N2 = &LEVEL1.ActiveRowCount To 1 Step - 1;
If &N1 <> &N2 Then

&PO_ID_NOVA = &LEVEL1.GetRow(&N2).MMC_TE_OP_OC_VW.PO_ID.VALUE;
&PO_LINE_NOVA = &LEVEL1.GetRow(&N2).MMC_TE_OP_OC_VW.LINE_NBR.VALUE;
&PO_SCHED_NOVA = &LEVEL1.GetRow(&N2).MMC_TE_OP_OC_VW.SCHED_NBR.VALUE
;
If (&PO_ID_ANTERIOR = &PO_ID_NOVA And
&PO_LINE_ANTERIOR = &PO_LINE_NOVA And
&PO_SCHED_ANTERIOR = &PO_SCHED_NOVA) Then
&LEVEL1.DeleteRow(&N2);
End-If;
End-If;
End-For;
End-For;
REM FIM Codigo para validar se existe OC Duplicado ;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_OP_OC_WK.BUTTON.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
iros
*
* Permitir inserir mais de um insumo para a NF de industrializao e Validar BOM.
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
If %Component = "NF_INFO_PBL" Then

If MMC_TE_NFLN_WRK.MMC_TERCEIRO_FLG = "Y" Then
SQLExec("select setid from sysadm.ps_set_cntrl_tbl where setcntrlvalue =:1
", NF_HDR_BRL.BUSINESS_UNIT, &VAR_SETID);
&L1_OP = GetRowset(Scroll.MMC_TE_OP_OC_VW);
&rowsetNiv1 = GetRowset(Scroll.NF_LN_BRL);
/********************** mmcb.sds3426.sn **********************/

&rowsetNiv2 = GetRowset(Scroll.MMC_TE_TRIA_BOM);
For &i = &rowsetNiv1.ActiveRowCount To 1 Step - 1;
&rowsetNiv1.DeleteRow(&i);
End-For;
For &i = &rowsetNiv2.ActiveRowCount To 1 Step - 1;
&rowsetNiv2.DeleteRow(&i);
End-For;
/********************** mmcb.sds3426.en **********************/
&COUNT = &rowsetNiv1.ActiveRowCount;
NF_HDR_BRL.VENDOR_ID = VENDOR_ID;
NF_HDR_BRL.ADDRESS_SEQ_NUM = ADDRESS_SEQ_NUM;
NF_HDR_INFO_WRK.CGC_BRL = CGC_BRL;
NF_HDR_BRL.VNDR_LOC = VNDR_LOC;
NF_HDR_BRL.NF_BRL_TYPE = "NF";
SQLExec("select a.location from sysadm.ps_location_tbl a, sysadm.ps_shipt
o_tbl b where b.setid =:1 and b.shipto_id =:2 and b.effdt = (select max(effdt) f
rom sysadm.ps_shipto_tbl where setid = b.setid and shipto_id = b.shipto_id) and
b.eff_status = 'A' and b.setid = a.setid and b.crtl_location_bbl = a.location an
d a.effdt = (select max(effdt) from sysadm.ps_location_tbl where setid = a.setid
and location = a.location) and a.eff_status = 'A' ", &VAR_SETID, NF_HDR_BRL.SHI
PTO_ID, &LOCATION);
NF_HDR_BRL.EF_LOC_BRL = &LOCATION;
For &Q = &L1_OP.ActiveRowCount To 1 Step - 1;
If &L1_OP.GetRow(&Q).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE <> "Y" Then
&L1_OP.DeleteRow(&Q);
End-If;
End-For;
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||
|| INICIO: ROTINA DE VERIFICAO QTD ITEMS ENTRE NF SERVIO E NF INSUMOS
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||*/
/********************** mmcb.sds3426.so **********************/
/*
&ITEM_SERVICO = "";
For &W = &L1_OP.ActiveRowCount To 1 Step - 1;
If &L1_OP.ActiveRowCount = 1 Then
&ITEM_SERVICO = &ITEM_SERVICO | "'" | &L1_OP.GetRow(&W).MMC_TE_OP_OC
_VW.INV_ITEM_ID.VALUE | "'";
Else
&ITEM_SERVICO = &ITEM_SERVICO | "'" | &L1_OP.GetRow(&W).MMC_TE_OP_OC

_VW.INV_ITEM_ID.VALUE | "',";
End-If;
End-For;
SQLExec("select business_unit_in from sysadm.ps_shipto_tbl where business_
unit_recv=:1", NF_HDR_BRL.BUSINESS_UNIT, &BU_INDUST);
&SQLCMD = "select count(*) from sysadm.ps_en_bom_comps eb where eb.busines
s_unit =:1 and eb.inv_item_id =:2 and sysdate between eb.date_in_effect and eb.d
ate_obsolete ";
SQLExec(&SQLCMD, &BU_INDUST, MMC_ITEM_PAI, &QTD_LN_BOM);
SQLExec("select count(*) from sysadm.ps_nf_ln_brl where business_unit=:1 a
nd nf_brl_id=:2", BUSINESS_UNIT_IN, NF_BRL_ID_2_BBL, &QTD_LN_NF);
If &QTD_LN_BOM <> (&QTD_LN_NF + &L1_OP.ActiveRowCount) Then
WinMessage("Existe diferena entre Quantidade Items na NF Insumos: " | &Q
TD_LN_NF | " e a quantidade Items BOM:" | &QTD_LN_BOM | " ");
End-If;
*/
/********************** mmcb.sds3426.eo **********************/
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||
|| FIM: ROTINA DE VERIFICAO QTD ITEMS ENTRE NF SERVIO E NF INSUMOS
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||*/
For &i = 1 To &L1_OP.ActiveRowCount;

If &COUNT > 1 Then
&rowsetNiv1.InsertRow(&COUNT - 1);
End-If;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.ITM_SETID.VALUE = &VAR_SETID;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INV_ITEM_ID.VALUE = &L1_OP.GetRow(
&i).MMC_TE_OP_OC_VW.INV_ITEM_ID.VALUE;
SQLExec("select unit_of_measure from ps_itm_vndr_uom_pr where setid = :
1 and inv_item_id = :2 and vendor_id = :3 and vndr_loc = :4 and vendor_setid = :
5", &VAR_SETID, &rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INV_ITEM_ID.VALUE, VENDOR_I
D, VNDR_LOC, &VAR_SETID, &UNIDADE_MEDIDA);
SQLExec("select tax_class_brl from sysadm.ps_inv_items where setid=:1 a
nd inv_item_id=:2 and effdt<= %DateTimeIn(:3) order by setid, inv_item_id, effdt
desc", &VAR_SETID, &rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INV_ITEM_ID.VALUE, %Dat
e, &TAX_CLASS_BRL);
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.TAX_CLASS_BRL.VALUE = &TAX_CLASS_B
RL;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.UNIT_OF_MEASURE.VALUE = &UNIDADE_M
EDIDA;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.BUSINESS_UNIT_PO.Value = &L1_OP.Ge
tRow(&i).MMC_TE_OP_OC_VW.BUSINESS_UNIT.VALUE;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.PO_ID.Value = &L1_OP.GetRow(&i).MM
C_TE_OP_OC_VW.PO_ID.VALUE;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.QTY_NF_BRL.VALUE = &L1_OP.GetRow(&
i).MMC_TE_WRK.QTY_OPEN.VALUE;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.UNIT_PRICE.VALUE = &L1_OP.GetRow(&
i).MMC_TE_OP_OC_VW.PRICE_PO.VALUE;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.MERCH_ORIG_AMT_PBL.VALUE = &L1_OP.
GetRow(&i).MMC_TE_WRK.QTY_OPEN.VALUE * &L1_OP.GetRow(&i).MMC_TE_OP_OC_VW.PRICE_P
O.VALUE;
If None(&L1_OP.GetRow(&i).MMC_TE_OP_OC_VW.DESCR254_MIXED.VALUE) Then
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.DESCR.VALUE = &L1_OP.GetRow(&i)
.MASTER_ITEM_TBL.DESCR.VALUE;
Else
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.DESCR.VALUE = &L1_OP.GetRow(&i)
.MMC_TE_OP_OC_VW.DESCR254_MIXED.VALUE;
End-If;
SQLExec("select A.INVENTORY_ITEM, A.UNIT_MEASURE_STD from PS_MASTER_ITE
M_TBL A where A.SETID = :1 and A.INV_ITEM_ID = :2", &VAR_SETID, &rowsetNiv1.GetR
ow(&COUNT).NF_LN_BRL.INV_ITEM_ID.VALUE, &INVENTORY_ITEM, &UNIT_OF_MEASURE);
If None(&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.UNIT_OF_MEASURE.VALUE) The
n
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.UNIT_OF_MEASURE.VALUE = &UNIT_O
F_MEASURE;
End-If;
If None(&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INVENTORY_ITEM.VALUE) Then
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INVENTORY_ITEM.Value = &INVENTO
RY_ITEM;
End-If;
SQLExec("select account from sysadm.ps_itm_purch_vw where setid=:1 and
inv_item_id =:2 ", &VAR_SETID, &rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INV_ITEM_ID.
VALUE, &ACCOUNT);
UpdateValue(Record.NF_LN_BRL, &COUNT, BRL_DISTRIB_LN.ACCOUNT, 1, &ACCOU
NT);
&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.BUSINESS_UNIT_PO.VALUE = &L1_O
P.GetRow(&i).MMC_TE_OP_OC_VW.BUSINESS_UNIT.VALUE;
&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.PO_ID.VALUE = &L1_OP.GetRow(&i
).MMC_TE_OP_OC_VW.PO_ID.VALUE;
&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.LINE_NBR.VALUE = &L1_OP.GetRow
(&i).MMC_TE_OP_OC_VW.LINE_NBR.VALUE;
&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.SCHED_NBR.VALUE = &L1_OP.GetRo
w(&i).MMC_TE_OP_OC_VW.SCHED_NBR.VALUE;
&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.BUSINESS_UNIT_IN.VALUE = BUSIN
ESS_UNIT_IN;
&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.NF_BRL_ID_2_BBL.VALUE = NF_BRL
_ID_2_BBL;
&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.INV_ITEM_ID.VALUE = MMC_ITEM_P
AI;
/*&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.MMC_TE_QTD_PAI.VALUE = &L1_O
P.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE;*/ /*mmcb.sds3426.lo*/
/********************** mmcb.sds3426.sn **********************/
&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.MMC_TE_QTD_PAI.VALUE = MMC_TE_
QTD_PAI;
&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.INV_ITEM_ID_PO.VALUE = &rowset
Niv1.GetRow(&COUNT).NF_LN_BRL.INV_ITEM_ID.VALUE;
&rowsetNiv1.GetRow(&COUNT).MMC_TE_OP_WRK.QTY_NF_BRL.VALUE = &rowsetNiv1
.GetRow(&COUNT).NF_LN_BRL.QTY_NF_BRL.VALUE;
/********************** mmcb.sds3426.en **********************/
&COUNT = &COUNT + 1;
End-For;
MMC_TE_OP_OC_WK.VENDOR_ID.Enabled = False;
MMC_TE_OP_OC_WK.ADDRESS_SEQ_NUM.Enabled = False;
MMC_TE_OP_OC_WK.CGC_BRL.Enabled = False;
MMC_TE_OP_OC_WK.VNDR_LOC.Enabled = False;
/********************** mmcb.sds3426.so **********************/
/*MMC_TE_OP_OC_WK.PO_ID.Enabled = False;
MMC_TE_OP_OC_WK.INV_ITEM_ID.Enabled = False;
MMC_TE_OP_OC_WK.BTN_SELECT.Enabled = False;
MMC_TE_OP_OC_WK.BUTTON1.Enabled = False;
MMC_TE_OP_OC_WK.BUTTON.Enabled = False;*/
/********************** mmcb.sds3426.eo **********************/
MMC_TE_OP_OC_WK.MMC_ITEM_PAI.Enabled = False;
MMC_TE_OP_OC_WK.MMC_TE_QTD_PAI.Enabled = False;
MMC_TE_OP_OC_WK.BUSINESS_UNIT_IN.Enabled = False;
MMC_TE_OP_OC_WK.NF_BRL_ID_2_BBL.Enabled = False;
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_OP_OC_WK.BUTTON1.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - Limpa Grade OC da Industrializao.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
iros
*
* Permitir inserir mais de um insumo para a NF de industrializao.
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
/*GetRowset(Scroll.MMC_TE_OP_OC_VW).Flush();*/ /*mmcb.sds3426.lo*/
/********************** mmcb.sds3426.sn **********************/
&rowsetN1 = GetRowset(Scroll.MMC_TE_OP_OC_VW);
&rowsetN2 = GetRowset(Scroll.NF_LN_BRL);
&rowsetN3 = GetRowset(Scroll.MMC_TE_TRIA_BOM);
For &i = &rowsetN1.ActiveRowCount To 1 Step - 1;
&rowsetN1.DeleteRow(&i);
End-For;
End-For;
End-For;
&rowsetN1.Flush();
&rowsetN2.Flush();
&rowsetN3.Flush();
MMC_TE_OP_OC_WK.VENDOR_ID.Enabled = True;
MMC_TE_OP_OC_WK.ADDRESS_SEQ_NUM.Enabled = True;
MMC_TE_OP_OC_WK.CGC_BRL.Enabled = True;
MMC_TE_OP_OC_WK.VNDR_LOC.Enabled = True;
MMC_TE_OP_OC_WK.MMC_ITEM_PAI.Enabled = True;
MMC_TE_OP_OC_WK.MMC_TE_QTD_PAI.Enabled = True;
MMC_TE_OP_OC_WK.BUSINESS_UNIT_IN.Enabled = True;
MMC_TE_OP_OC_WK.NF_BRL_ID_2_BBL.Enabled = True;
/********************** mmcb.sds3426.en **********************/
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_OP_OC_WK.BUTTON2.FieldChange]
/*******************************************************************************
*****************
iros
*
* Realizar a verificao entre os itens da NF de retorno e o BOM.
*
*******************************************************************************
*****************/
/*************************** mmcb.sds3426.sn ***************************/
Declare Function VERIFICA_NF_VS_BOM PeopleCode BUTTON2 FieldFormula;
If MMC_TE_NFLN_WRK.MMC_TERCEIRO_FLG = "Y" Then
If None(MMC_ITEM_PAI) Or
None(MMC_TE_QTD_PAI) Then
WinMessage("Favor informe o Item Pai e a sua Quantidade.");
Exit;
End-If;
VERIFICA_NF_VS_BOM();
End-If;
End-If;
/*************************** mmcb.sds3426.en ***************************/
[MMC_TE_OP_OC_WK.BUTTON2.FieldFormula]
/*******************************************************************************
*****************
iros
*
*
*******************************************************************************
*****************/
/********************** mmcb.sds3426.sn **********************/
Function VERIFICA_NF_VS_BOM;
If All(MMC_ITEM_PAI) And
All(MMC_TE_QTD_PAI) Then
&V_DATA_HORA = %Datetime;
&V_OPRID = %OperatorId;
&LINHA = 1;
For &I = &rowsetN1.ActiveRowCount To 1 Step - 1;
&rowsetN1.DeleteRow(&I);
End-For;
SQLExec("SELECT BUSINESS_UNIT_IN, SHIPTO_ID FROM SYSADM.PS_SHIPTO_TBL WHER
E SETID=:1 AND BUSINESS_UNIT_RECV=:2", &SETID, NF_HDR_BRL.BUSINESS_UNIT, &BU_IND
UST, &LOC_INDUST);
&SQL = CreateSQL("SELECT X.COMPONENT_ID, SUM(X.QTY_PER) AS QTY_PER FROM (
SELECT CONNECT_BY_ROOT C.INV_ITEM_ID CARRO, C.COMPONENT_ID, C.QTY_PER FROM SYSAD
M.PS_EN_BOM_COMPS C WHERE C.BUSINESS_UNIT = :1 AND C.BOM_STATE = 'PR' AND C.BOM_
TYPE = 'PR' AND SYSDATE BETWEEN C.DATE_IN_EFFECT AND C.DATE_OBSOLETE CONNECT BY
NOCYCLE PRIOR C.COMPONENT_ID = C.INV_ITEM_ID START WITH C.INV_ITEM_ID = :3 AND S
YSDATE BETWEEN C.DATE_IN_EFFECT AND C.DATE_OBSOLETE ORDER BY C.COMPONENT_ID ) X
GROUP BY X.COMPONENT_ID", &BU_INDUST, &LOC_INDUST, MMC_ITEM_PAI);
While &SQL.Fetch(&V_COMPONENT_ID, &V_QTY_PER)
&rowsetN1.InsertRow(&LINHA);
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.BUSINESS_UNIT.VALUE = NF_HDR_B
RL.BUSINESS_UNIT;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.NF_BRL.VALUE = NF_HDR_BRL.NF_B
RL;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.NF_BRL_SERIES.VALUE = NF_HDR_B
RL.NF_BRL_SERIES;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.VENDOR_ID.VALUE = VENDOR_ID;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.ADDRESS_SEQ_NUM.VALUE = ADDRES
S_SEQ_NUM;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.DT_TIMESTAMP.VALUE = &V_DATA_H
ORA;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.SEQ_NBR.VALUE = &LINHA;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.MMC_OPRID.VALUE = &V_OPRID;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.INV_ITEM_ID.VALUE = &V_COMPONE
NT_ID;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.DESCR254.VALUE = "-";
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.QTY_PER.VALUE = &V_QTY_PER * M
MC_TE_QTD_PAI;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE = 0;
&LINHA = &LINHA + 1;
End-While;
&SQL2 = CreateSQL("SELECT INV_ITEM_ID, SUM(QTY_NF_BRL) AS QTY_NF_BRL FROM
SYSADM.PS_NF_LN_BRL WHERE BUSINESS_UNIT=:1 AND NF_BRL_ID=:2 GROUP BY INV_ITEM_ID
", BUSINESS_UNIT_IN, NF_BRL_ID_2_BBL);
While &SQL2.Fetch(&V_INV_ITEM_ID, &V_QTY_NF_BRL)
&statusLinha = "NOT OK";
For &j = &rowsetN1.ActiveRowCount To 1 Step - 1;
If &V_INV_ITEM_ID = &rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.INV_ITEM_ID
.VALUE And
&rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.DESCR254.VALUE = "-" Then
&statusLinha = "OK";
&rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE = &rowset
N1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE + &V_QTY_NF_BRL;
Else
If &V_INV_ITEM_ID = &rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.INV_ITEM
_ID.VALUE And
&rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.DESCR254.VALUE <> "-"
Then
&rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE = &row
setN1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE + &V_QTY_NF_BRL;
&rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.DESCR254.VALUE = "-";
End-If;
End-If;
End-For;
If &statusLinha = "NOT OK" Then
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.BUSINESS_UNIT.VALUE = NF_HD
R_BRL.BUSINESS_UNIT;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.NF_BRL.VALUE = NF_HDR_BRL.N
F_BRL;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.NF_BRL_SERIES.VALUE = NF_HD
R_BRL.NF_BRL_SERIES;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.VENDOR_ID.VALUE = VENDOR_ID
;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.ADDRESS_SEQ_NUM.VALUE = ADD
RESS_SEQ_NUM;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.DT_TIMESTAMP.VALUE = &V_DAT
A_HORA;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.INV_ITEM_ID.VALUE = &V_INV_
ITEM_ID;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.DESCR254.VALUE = "Item no en
contrado no BOM.";
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.QTY_PER.VALUE = 0;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE = &V_QTY
_NF_BRL;
End-If;
End-While;
If &rowsetN2.GetRow(&I).NF_LN_BRL.INV_ITEM_ID.VALUE = &rowsetN1.GetR
ow(&j).MMC_TE_TRIA_BOM.INV_ITEM_ID.VALUE And
N1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE + &rowsetN2.GetRow(&I).NF_LN_BR
L.QTY_NF_BRL.VALUE;
Else
If &rowsetN2.GetRow(&I).NF_LN_BRL.INV_ITEM_ID.VALUE = &rowsetN1.G
etRow(&j).MMC_TE_TRIA_BOM.INV_ITEM_ID.VALUE And
&rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.DESCR254.VALUE <> "-"
Then
setN1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE + &rowsetN2.GetRow(&I).NF_LN
_BRL.QTY_NF_BRL.VALUE;
End-If;
End-If;
End-For;
F_BRL;
;
RESS_SEQ_NUM;
A_HORA;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.INV_ITEM_ID.VALUE = &rowset
N2.GetRow(&I).NF_LN_BRL.INV_ITEM_ID.VALUE;
contrado no BOM.";
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE = &rowse
tN2.GetRow(&I).NF_LN_BRL.QTY_NF_BRL.VALUE;
End-If;
End-For;
&rowsetN1.DeleteRow(&LINHA);
If &rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER.VALUE <> &rowsetN1.GetR
ow(&I).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE And
&rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.DESCR254.VALUE = "-" Then
If &rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER.VALUE > 0 And
&rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE > 0 Th
en
&rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.DESCR254.VALUE = "Quantidade
do BOM (" | &rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER.VALUE | ") esta difere
nte da quantidade da NF (" | &rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER_BASE.V
ALUE | ").";
Else
&rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE = 0
Then
&rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.DESCR254.VALUE = "Item no
encontrado na NF.";
Else
If &rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.DESCR254.VALUE = "-" T
hen
End-If;
End-If;
End-If;
Else
If &rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.DESCR254.VALUE = "-" Then
End-If;
End-If;
End-For;
End-If;
End-Function;
/********************** mmcb.sds3426.en **********************/
[MMC_TE_OP_OC_WK.CGC_BRL.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Preenche automaticamente fornecedor.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
* Preenche automaticamente os dados do fornecedor.
*
********************************************************************************
*****************/
/*******************************************************************************
*****************
eiros
*
*
*******************************************************************************
*****************/
/********************** mmcb.sds3426.sn **********************/
If All(CGC_BRL) Then
&SETID_GERAL = BUSCA_SETID();
VENDOR_ID = "";
VNDR_LOC = "";
SQLExec("SELECT A.VENDOR_ID, A.ADDRESS_SEQ_NUM, C.VNDR_LOC FROM SYSADM.PS_VND
R_ADDR_SCROL A, SYSADM.PS_VENDOR B, SYSADM.PS_VENDOR_LOC C WHERE A.SETID = B.SET
ID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = C.SETID AND A.VENDOR_ID = C.VENDO
R_ID AND A.ADDRESS_SEQ_NUM = C.ADDR_SEQ_NUM_ORDR AND C.EFF_STATUS = 'A' AND C.EF

FDT IN ( SELECT MAX(C_X.EFFDT) FROM SYSADM.PS_VENDOR_LOC C_X WHERE C_X.SETID = C
.SETID AND C_X.VENDOR_ID = C.VENDOR_ID AND C_X.ADDR_SEQ_NUM_ORDR = C.ADDR_SEQ_NU
M_ORDR AND C_X.EFF_STATUS = 'A' ) AND A.SETID =:1 AND A.CGC_BRL =:2", &SETID_GER
AL, CGC_BRL, VENDOR_ID, ADDRESS_SEQ_NUM, VNDR_LOC);
R_SEQ_NUM = A.ADDRESS_SEQ_NUM AND A.CGC_BRL=:1", CGC_BRL, NF_HDR_BRL.PYMNT_TERMS
_CD); /*mmcb.sds3425.ln*/
Else
CGC_BRL = "";
VNDR_LOC = "";
End-If;
Gray(VNDR_LOC);
/********************** mmcb.sds3426.en **********************/
/********************** mmcb.sds3426.so **********************/
/********************** mmcb.at2323.sn **********************/
/*SQLExec("Select setid from ps_set_cntrl_tbl where setcntrlvalue = :1", NF_HDR_
BRL.BUSINESS_UNIT, &SETID);
SQLExec("Select A.VENDOR_ID, B.ADDR_SEQ_NUM_ORDR, B.DEFAULT_LOC FROM PS_VNDR_
ADDR_SCROL A, PS_VENDOR B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID
AND A.SETID = :1 and A.CGC_BRL = :2", &SETID, CGC_BRL, VENDOR_ID, ADDRESS_SEQ_NU
M, VNDR_LOC);
End-If;*/
/********************** mmcb.at2323.en **********************/
/********************** mmcb.sds3426.eo **********************/
[MMC_TE_OP_OC_WK.MMC_ITEM_PAI.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Desabilitar os botoes de pesquisa.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Vincius Alves Mello - MMC - 05/10/2010 - mmcb.sds3426 - Sistema Controle Tercei
ros
*
* Preenche automaticamente os dados do fornecedor e Validar se o item pai possui
BOM cadastrado.*
********************************************************************************
*****************/
/*******************************************************************************
*****************
eiros
*

*
*******************************************************************************
*****************/
.sds3426.ln*/
/********************** mmcb.at2323.sn **********************/
If All(MMC_ITEM_PAI) Then
MMC_TE_OP_OC_WK.BUTTON1.Enabled = True;
MMC_TE_OP_OC_WK.BTN_SELECT.Enabled = True;
MMC_TE_OP_OC_WK.BUTTON.Enabled = True;
/********************** mmcb.sds3426.so **********************/
/*SQLExec("select business_unit, nf_brl_id from sysadm.ps_mmc_te_nf_tmp wh
ere business_unit_in=:1 and nf_brl_id_2_bbl=:2", NF_HDR_BRL.BUSINESS_UNIT, NF_HD
R_BRL.NF_BRL_ID, BUSINESS_UNIT_IN, NF_BRL_ID_2_BBL);*/
/********************** mmcb.sds3426.eo **********************/
/********************** mmcb.sds3426.sn **********************/
&QTY_COMP = 0;
E SETID=:1 AND BUSINESS_UNIT_RECV=:2", &SETID_GERAL, NF_HDR_BRL.BUSINESS_UNIT, &
BU_INDUST, &LOC_INDUST);
SQLExec("SELECT COUNT(*) AS QTY FROM ( SELECT CONNECT_BY_ROOT C.INV_ITEM_I
D CARRO, C.COMPONENT_ID, C.QTY_PER FROM SYSADM.PS_EN_BOM_COMPS C WHERE C.BUSINES
S_UNIT = :1 AND C.BOM_STATE = 'PR' AND C.BOM_TYPE = 'PR' AND SYSDATE BETWEEN C.D
ATE_IN_EFFECT AND C.DATE_OBSOLETE CONNECT BY NOCYCLE PRIOR C.COMPONENT_ID = C.IN
V_ITEM_ID START WITH C.INV_ITEM_ID = :3 AND SYSDATE BETWEEN C.DATE_IN_EFFECT AND
C.DATE_OBSOLETE ORDER BY C.COMPONENT_ID ) X", &BU_INDUST, &LOC_INDUST, MMC_ITEM
_PAI, &QTY_COMP);
If &QTY_COMP <= 0 Then
Error ("No existem BOM cadastrado para este item.");
End-If;
If NF_HDR_BRL.NF_BRL_ID <> "NEXT" Then
SQLExec("SELECT A.BUSINESS_UNIT, A.NF_BRL_ID, B.VENDOR_ID, B.ADDRESS_SE
Q_NUM, C.CGC_BRL, E.VNDR_LOC FROM SYSADM.PS_MMC_TE_NF_TMP A, SYSADM.PS_NF_HDR_BR
L B, SYSADM.PS_VNDR_ADDR_SCROL C, SYSADM.PS_VENDOR D, SYSADM.PS_VENDOR_LOC E WHE
RE A.BUSINESS_UNIT = B.BUSINESS_UNIT AND A.NF_BRL_ID = B.NF_BRL_ID AND B.NF_BRL_
STATUS = 'F' AND C.SETID=:1 AND C.VENDOR_ID= B.VENDOR_ID AND C.ADDRESS_SEQ_NUM =
B.ADDRESS_SEQ_NUM AND C.SETID = D.SETID AND C.VENDOR_ID = D.VENDOR_ID AND C.SET
ID = E.SETID AND C.VENDOR_ID = E.VENDOR_ID AND C.ADDRESS_SEQ_NUM = E.ADDR_SEQ_NU
M_ORDR AND E.EFF_STATUS = 'A' AND E.EFFDT IN ( SELECT MAX(E_X.EFFDT) FROM SYSADM
.PS_VENDOR_LOC E_X WHERE E_X.SETID = E.SETID AND E_X.VENDOR_ID = E.VENDOR_ID AND
E_X.ADDR_SEQ_NUM_ORDR = E.ADDR_SEQ_NUM_ORDR AND E_X.EFF_STATUS = 'A' ) AND A.BU
SINESS_UNIT_IN=:2 AND A.NF_BRL_ID_2_BBL =:3", &SETID_GERAL, NF_HDR_BRL.BUSINESS_
UNIT, NF_HDR_BRL.NF_BRL_ID, BUSINESS_UNIT_IN, NF_BRL_ID_2_BBL, VENDOR_ID, ADDRES
S_SEQ_NUM, CGC_BRL, VNDR_LOC);
End-If;
/********************** mmcb.sds3426.en **********************/
SQLExec("SELECT PYMNT_TERMS_CD FROM SYSADM.PS_VNDR_ADDR_SCROL A, SYSADM.PS
_VENDOR_LOC B WHERE B.SETID = A.SETID AND B.VENDOR_ID = A.VENDOR_ID AND B.REMIT_
ADDR_SEQ_NUM = A.ADDRESS_SEQ_NUM AND A.CGC_BRL=:1", CGC_BRL, NF_HDR_BRL.PYMNT_TE
RMS_CD); /*mmcb.sds3425.ln*/
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_OP_OC_WK.NF_BRL_ID_2_BBL.FieldChange]
/*******************************************************************************
*****************
eiros
*
*
*******************************************************************************
*****************/
/********************** mmcb.sds3425.sn **********************/
If All(BUSINESS_UNIT_IN) And
All(NF_BRL_ID_2_BBL) Then
SQLExec("SELECT B.VENDOR_ID, B.ADDRESS_SEQ_NUM, C.CGC_BRL, E.VNDR_LOC FROM
SYSADM.PS_NF_HDR_BRL B, SYSADM.PS_VNDR_ADDR_SCROL C, SYSADM.PS_VENDOR D, SYSADM
.PS_VENDOR_LOC E WHERE B.BUSINESS_UNIT=:1 AND B.NF_BRL_ID=:2 AND B.NF_BRL_STATUS
= 'F' AND C.SETID = :3 AND C.VENDOR_ID = B.VENDOR_ID AND C.ADDRESS_SEQ_NUM = B.
ADDRESS_SEQ_NUM AND C.SETID = D.SETID AND C.VENDOR_ID = D.VENDOR_ID AND C.SETID
= E.SETID AND C.VENDOR_ID = E.VENDOR_ID AND C.ADDRESS_SEQ_NUM = E.ADDR_SEQ_NUM_O
RDR AND E.EFF_STATUS = 'A' AND E.EFFDT IN ( SELECT MAX (E_X.EFFDT) FROM SYSADM.P
S_VENDOR_LOC E_X WHERE E_X.SETID = E.SETID AND E_X.VENDOR_ID = E.VENDOR_ID AND E
_X.ADDR_SEQ_NUM_ORDR = E.ADDR_SEQ_NUM_ORDR AND E_X.EFF_STATUS = 'A')", BUSINESS_
UNIT_IN, NF_BRL_ID_2_BBL, &SETID_GERAL, VENDOR_ID, ADDRESS_SEQ_NUM, CGC_BRL, VND
R_LOC);
ADDR_SEQ_NUM = A.ADDRESS_SEQ_NUM AND A.CGC_BRL=:1", CGC_BRL, NF_HDR_BRL.PYMNT_TE
RMS_CD);
End-If;
End-If;
/********************** mmcb.sds3425.en **********************/
[MMC_TE_OP_OC_WK.VENDOR_ID.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *

*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
iros
*
* Preencher dados fornecedor
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
eiros
*
*
*******************************************************************************
*****************/
.sds3426.ln*/
/********************** mmcb.at2323.sn **********************/
BRL.BUSINESS_UNIT, &SETID);*/ /*mmcb.sds3426.lo*/
/********************** mmcb.sds3426.so **********************/
/*SQLExec("Select A.CGC_BRL, B.ADDR_SEQ_NUM_ORDR, B.DEFAULT_LOC FROM PS_VNDR_
AND A.SETID = :1 and A.VENDOR_ID = :2", &SETID, VENDOR_ID, CGC_BRL, ADDRESS_SEQ_
NUM, VNDR_LOC);*/
/********************** mmcb.sds3426.eo **********************/
/********************** mmcb.sds3426.sn **********************/
CGC_BRL = "";
VNDR_LOC = "";
SQLExec("SELECT A.CGC_BRL, A.ADDRESS_SEQ_NUM, C.VNDR_LOC FROM SYSADM.PS_VNDR_
ADDR_SCROL A, SYSADM.PS_VENDOR B, SYSADM.PS_VENDOR_LOC C WHERE A.SETID = B.SETID
AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = C.SETID AND A.VENDOR_ID = C.VENDOR_
ID AND A.ADDRESS_SEQ_NUM = C.ADDR_SEQ_NUM_ORDR AND C.EFF_STATUS = 'A' AND C.EFFD
T IN ( SELECT MAX(C_X.EFFDT) FROM SYSADM.PS_VENDOR_LOC C_X WHERE C_X.SETID = C.S
ETID AND C_X.VENDOR_ID = C.VENDOR_ID AND C_X.ADDR_SEQ_NUM_ORDR = C.ADDR_SEQ_NUM_
ORDR AND C_X.EFF_STATUS = 'A' ) AND A.SETID = :1 and A.VENDOR_ID = :2 AND ROWNUM
= 1", &SETID_GERAL, VENDOR_ID, CGC_BRL, ADDRESS_SEQ_NUM, VNDR_LOC);
/********************** mmcb.sds3426.en **********************/
R_SEQ_NUM = A.ADDRESS_SEQ_NUM AND A.SETID=:1 AND A.CGC_BRL=:2", &SETID_GERAL, CG
C_BRL, NF_HDR_BRL.PYMNT_TERMS_CD); /*mmcb.sds3425.ln*/
GetRowset(Scroll.MMC_TE_OP_OC_VW).Flush();
End-If;
/********************** mmcb.at2323.en **********************/
/********************** mmcb.sds3426.sn **********************/
Gray(VNDR_LOC);
/********************** mmcb.sds3426.en **********************/
[MMC_TE_OP_WRK.BUSINESS_UNIT_IN.SaveEdit]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - No deixa os campos serem salvos em branco.
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
If %Component = Component.NF_INFO_PBL Then
If MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "Y" Then
If None(BUSINESS_UNIT_IN) Or
None(NF_BRL_ID_2_BBL) Then
Error ("UN Servio ou NF Servio esto em branco.");
End-If;
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_OP_WRK.BUSINESS_UNIT_PO.SaveEdit]
/*******************************************************************************
*****************
ole Terceiros *
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
If None(BUSINESS_UNIT_PO) Or
None(PO_ID) Or
None(LINE_NBR) Or
None(SCHED_NBR) Then
Error ("Error Industrializao: Um dos campos Ordem Compra est em branco.");
End-If;
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_OP_WRK.INV_ITEM_ID.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - Preencher automaticamente o campo de Industri
alizao
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
/*
Local Rowset &L;
&L = GetLevel0();
&L_IND = &L(1).GetRowset(Scroll.NF_LN_BRL);
If All(&L_IND.GetRow(1).MMC_TE_OP_WRK.INV_ITEM_ID.VALUE) Then
For &NIND = 2 To &L_IND.ActiveRowCount;
&L_IND.GetRow(&NIND).MMC_TE_OP_WRK.INV_ITEM_ID.VALUE = &L_IND.GetRow(1)
.MMC_TE_OP_WRK.INV_ITEM_ID.VALUE;
End-For;
End-If;
End-If;
*/
/********************** mmcb.at2323.en **********************/
[MMC_TE_OP_WRK.INV_ITEM_ID.SaveEdit]
/*******************************************************************************
*****************
ole Terceiros *
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
If None(INV_ITEM_ID) Or
Error ("Error: Campos Industrializao em branco.");
End-If;
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_RECV_VND.ADDRESS_SEQ_NUM.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
*****************************************************************************
*******************/
/*******************************************************************************
**
*
*
********************************************************************************
*/
b.sds3239.ln */
/********************** mmcb.at2323.sn **********************/
/********************** mmcb.sds3239.so **********************/
/* SQLExec("Select A.CGC_BRL,B.DEFAULT_LOC FROM PS_VNDR_ADDR_SCROL A, PS_VE
NDOR B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = 'MMCS
A' AND A.VENDOR_ID=:1 AND A.ADDRESS_SEQ_NUM =:2 ", VENDOR_ID, ADDRESS_SEQ_NUM, C
GC_BRL, VNDR_LOC);*/
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.sds3239.sn **********************/
SQLExec("Select A.CGC_BRL,B.DEFAULT_LOC FROM PS_VNDR_ADDR_SCROL A, PS_VENDOR
B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = :1 AND A.V
ENDOR_ID=:2 AND A.ADDRESS_SEQ_NUM =:3 ", BUSCA_SETID(), VENDOR_ID, ADDRESS_SEQ_N
UM, CGC_BRL, VNDR_LOC);
/********************** mmcb.sds3239.en **********************/
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_RECV_VND.NF_BRL_SERIES.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* No permitir documento fiscal igual entre NF de Remessa e NF Referencia.
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
If NF_HDR_BRL.NF_BRL = NF_BRL And
NF_HDR_BRL.NF_BRL_SERIES = NF_BRL_SERIES Then
WinMessage("Erro: Documento Fiscal do Cabealho igual ao da Referencia");
NF_BRL = "";
NF_BRL_SERIES = "";
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_RECV_VND.VENDOR_ID.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
*****************************************************************************
*******************/
/********************** mmcb.at2323.sn **********************/
SQLExec("Select A.CGC_BRL, B.ADDR_SEQ_NUM_ORDR, B.DEFAULT_LOC FROM PS_VNDR_AD
DR_SCROL A, PS_VENDOR B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AN
D A.SETID = :1 and A.VENDOR_ID = :2", MMC_TE_RECV_WRK.SETID, VENDOR_ID, CGC_BRL,
ADDRESS_SEQ_NUM, VNDR_LOC);
If VENDOR_ID = MMC_TE_RECV_WRK.VENDOR_ID Then
WinMessage("Fornecedor de Industrializao deve ser diferente do fornecedor de
Insumos.");
VENDOR_ID = "";
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_RECV_WRK.ADDRESS_SEQ_NUM.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
*****************************************************************************
****************/
/*******************************************************************************
**
*
*
*******************************************************************************
*/
/*******************************************************************************
*****************
* Douglas/Itamar Junior (Enc. Dhyogo Almeida) - SVB - 21/07/2014 - mmcb.hd20860
2 - Buscando *
* a cidade do fornecedor de forma incorreta.
*
*******************************************************************************
****************/
b.sds3239.ln */
/********************** mmcb.at2323.sn **********************/
/********************** mmcb.sds3239.so **********************/
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.hd208602.so **********************
/********************** mmcb.sds3239.sn ***********************
SQLExec("Select A.CGC_BRL,B.DEFAULT_LOC FROM PS_VNDR_ADDR_SCROL A, PS_VENDOR
B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = :1 AND A.V
ENDOR_ID=:2 AND A.ADDRESS_SEQ_NUM =:3 ", &SETID_GERAL, VENDOR_ID, ADDRESS_SEQ_NU
M, CGC_BRL, VNDR_LOC);
/********************** mmcb.sds3239.en ***********************
*********************** mmcb.hd208602.eo *********************/
/********************** mmcb.hd208602.sn **********************/
SQLExec("Select A.CGC_BRL, A.DESCR FROM PS_VNDR_ADDR_SCROL A, PS_VENDOR B whe
re A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = :1 AND A.VENDOR
_ID=:2 AND A.ADDRESS_SEQ_NUM =:3 ", &SETID_GERAL, VENDOR_ID, ADDRESS_SEQ_NUM, CG
C_BRL, VNDR_LOC);
/********************** mmcb.hd208602.en **********************/
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_RECV_WRK.BUTTON.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - Cria linha do recebimento, automticamente, pel
a OC. *
********** ********************************************************************
******************/
/********************** mmcb.at2323.sn **********************/
If %Page = Page.MMC_TE_RECV Then
&LEVEL1 = GetRowset(Scroll.MMC_TE_OC_VW);
&condicao = " where business_unit= '" | NF_HDR_BRL.BUSINESS_UNIT | "' ";

Else
Exit;
End-If;
If All(PO_ID) Then
For &LN = 1 To &LEVEL1.ACTIVEROWCOUNT;
If &LEVEL1.GETROW(&LN).MMC_TE_OC_VW.PO_ID.VALUE = PO_ID Then
WinMessage("OC: " | PO_ID | " no pode se repetir.");
Exit;
End-If;
End-For;
&condicao = &condicao | " and po_id='" | PO_ID | "' ";
End-If;
&condicao = &condicao | " and inv_item_id='" | INV_ITEM_ID | "' ";
End-If;
&condicao = &condicao | " and qty_po > 0 ";
For &Q = &LEVEL1.ACTIVEROWCOUNT To 1 Step - 1;
If &LEVEL1.GetRow(&Q).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE <> "Y" Then
&LEVEL1.DeleteRow(&Q);
End-If
End-For;
&LEVEL1.Select(Record.MMC_TE_OC_VW, &condicao);
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_RECV_WRK.BUTTON1.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
a OC. *
********** ********************************************************************
******************/
/********************** mmcb.at2323.sn **********************/
&LEVEL1 = GetRowset(Scroll.MMC_TE_OC_VW);
&LEVEL1.Flush();
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_RECV_WRK.CGC_BRL.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Preenche automaticamente fornecedor.
*
*******************************************************************************
****************/
/*******************************************************************************
*****************
* Itamar Junior - SVB - 18/07/2014 - mmcb.hd207896 - Pgina puxando o endereo de f
ornecedor
*
* errado.
*
*******************************************************************************
****************/
/*******************************************************************************
*****************
* Douglas/Itamar Junior (Enc. Dhyogo Almeida) - MMCB - 21/07/2014 - mmcb.hd2081
17 - Buscando *
*
*******************************************************************************
****************/
/********************** mmcb.at2323.sn **********************/
/********************** mmcb.hd207896.so **********************
SQLExec("Select A.VENDOR_ID, B.ADDR_SEQ_NUM_ORDR, B.DEFAULT_LOC FROM PS_VNDR_
AND A.SETID = :1 and A.CGC_BRL = :2", SETID, CGC_BRL, VENDOR_ID, ADDRESS_SEQ_NUM
, VNDR_LOC);
********************** mmcb.hd207896.eo **********************/
/********************** mmcb.hd208117.so **********************
/********************** mmcb.hd207896.sn **********************
SQLExec("Select A.VENDOR_ID, A.ADDRESS_SEQ_NUM, B.DEFAULT_LOC FROM PS_VNDR_AD
D A.SETID = :1 and A.CGC_BRL = :2", SETID, CGC_BRL, VENDOR_ID, ADDRESS_SEQ_NUM,
VNDR_LOC);
/********************** mmcb.hd207896.en **********************
*********************** mmcb.hd208117.eo **********************/
/********************** mmcb.hd208117.sn **********************/
SQLExec("Select A.VENDOR_ID, A.ADDRESS_SEQ_NUM, A.DESCR FROM PS_VNDR_ADDR_SCR
OL A, PS_VENDOR B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SE
TID = :1 and A.CGC_BRL = :2", SETID, CGC_BRL, VENDOR_ID, ADDRESS_SEQ_NUM, VNDR_L
OC);
/********************** mmcb.hd208117.en **********************/
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG.FieldChange]
/*******************************************************************************
*****
Wagner Sorio - MMC - 12/12/2007 - mmcb.at2323 - Sistema Controle Terceiros
Fazer pequisa e Preencher o GRID das Requisies de Solicitao.

********************************************************************************
*****/
/********************** mmcb.at2323.sn **********************/
If MMC_TE_NFSERVI_FLG = "Y" Then
Gray(MMC_TE_WRK.BTN_REFRESH);
MMC_TE_NFLN_WRK.MMC_TERCEIRO_FLG = "Y";
MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "Y"
End-If;
/********************** mmcb.at2323.sn **********************/
[MMC_TE_RECV_WRK.SHIPTO_ID.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Preenche automaticamente Business Unit Estoque
*
*****************************************************************************
*******************/
/********************** mmcb.at2323.sn **********************/
SQLExec("Select setid from ps_set_cntrl_tbl where setcntrlvalue = :1", NF_HDR_BR
L.BUSINESS_UNIT.Value, MMC_TE_RECV_WRK.SETID.Value);
SQLExec("SELECT BUSINESS_UNIT_IN FROM PS_SHIPTO_TBL A WHERE A.EFFDT = (SELECT MA
X(B.EFFDT) FROM PS_SHIPTO_TBL B WHERE B.SETID = A.SETID AND B.SHIPTO_ID = A.SHIP
TO_ID AND B.EFFDT <= SYSDATE) And A.setid = :1 And A.shipto_id = :2", SETID, SHI
PTO_ID, BUSINESS_UNIT_IN);
/********************** mmcb.at2323.en **********************/
[MMC_TE_RECV_WRK.VENDOR_ID.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
*
*******************************************************************************
****************/
/*******************************************************************************
*****************
* Itamar Junior - SVB - 18/07/2014 - mmcb.hd207896 - Pgina puxando o endereo de f
ornecedor
*
* errado.
*
*******************************************************************************
****************/
/*******************************************************************************
*****************
* Douglas/Itamar Junior (Enc. Dhyogo Almeida) - MMCB - 21/07/2014 - mmcb.hd2081
17 - Buscando *
*
*******************************************************************************
****************/
/********************** mmcb.at2323.sn **********************/
/********************** mmcb.hd207896.so **********************
SQLExec("Select A.CGC_BRL, B.ADDR_SEQ_NUM_ORDR, B.DEFAULT_LOC FROM PS_VNDR_AD

D A.SETID = :1 and A.VENDOR_ID = :2", SETID, VENDOR_ID, CGC_BRL, ADDRESS_SEQ_NUM
, VNDR_LOC);
********************** mmcb.hd207896.eo **********************/
/********************** mmcb.hd207896.sn **********************/
/********************** mmcb.hd208117.so ***********************
SQLExec("Select A.CGC_BRL, A.ADDRESS_SEQ_NUM, B.DEFAULT_LOC FROM PS_VNDR_ADDR
_SCROL A, PS_VENDOR B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND
A.SETID = :1 and A.VENDOR_ID = :2", SETID, VENDOR_ID, CGC_BRL, ADDRESS_SEQ_NUM,
VNDR_LOC);
********************** mmcb.hd208117.eo ***********************/
/********************** mmcb.hd207896.en **********************/
/********************** mmcb.hd208117.sn **********************/
SQLExec("Select A.CGC_BRL, A.ADDRESS_SEQ_NUM, A.DESCR FROM PS_VNDR_ADDR_SCROL
A, PS_VENDOR B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETI
D = :1 and A.VENDOR_ID = :2", SETID, VENDOR_ID, CGC_BRL, ADDRESS_SEQ_NUM, VNDR_L
OC);
/********************** mmcb.hd208117.en **********************/
SQLExec("select 'Y' from ps_nf_hdr_brl a where a.business_unit = :1 and a.ve
ndor_id =:2 and a.nf_brl =:3 and a.nf_brl_series =:4 and a.nf_brl_status = 'X'",
NF_HDR_BRL.BUSINESS_UNIT, VENDOR_ID, NF_HDR_BRL.NF_BRL, NF_HDR_BRL.NF_BRL_SERIE
S, &EXISTE_NF);
If &EXISTE_NF = "Y" Then
Error ("Documento Fical j existe");
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_SOLEE_VW.MMC_TE_SOL_ID.SavePostChange]
/*******************************************************************************
*****
Salvar as Solicitaes de Requisio Terceiros na tabela de parametro PS_MMC_TE_RUN_SREQ
,
para ser usado programa SQR de Solicitao Terceiros.
********************************************************************************
******
Filipe Rehder - MMC - 30/09/2013 - mmcb.sds4522
Adcionar trava para evitar duplicidade no processamento de solicitaes.
/*******************************************************************************
******
Itamar Junior- MMC - 11/07/2014 - mmcb.hd207253
Trava para bloquear a execuo de um mesmo controle de execuo ao mesmo tempo
********************************************************************************
*****/
/********************** mmcb.at2323.sn **********************/
Local Record &REC;
If %Page = Page.MMC_TE_REQ_SOLICIT Then
If MMC_TE_WRK.MMC_DELETA_FLG = "N" Then
SQLExec("delete from sysadm.ps_mmc_te_run_sreq where oprid=:1 and run_cntl

_id=:2 ", PRCSRUNCNTL.OPRID, PRCSRUNCNTL.RUN_CNTL_ID);
MMC_TE_WRK.MMC_DELETA_FLG = "Y";
End-If;
If MMC_TE_WRK.MMC_TE_EXEC = "Y" Then
&update = "N";
SQLExec("SELECT PROCESS_FLAG FROM SYSADM.PS_MMC_TE_SOL_PRCS WHERE MMC_TE_S
OL_ID = :1", MMC_TE_SOL_ID, &ValidaID);
If &ValidaID = "N" Then
&update = "Y";
End-If;
If &ValidaID = "Y" Then
Error ("Solicitao " | MMC_TE_SOL_ID | " em processo ou j processada");
End-If;
/********************** mmcb.hd207253.sn **********************/
/*** Verificando se o controle de execuo est em processamento ***/
SQLExec("SELECT 'Y' FROM SYSADM.PSPRCSRQST WHERE PRCSNAME IN('MMC_TECR') A
ND OPRID = :1 AND RUNCNTLID = :2 AND RUNSTATUS NOT IN ('3','8','9','10','2')", P
RCSRUNCNTL.OPRID, PRCSRUNCNTL.RUN_CNTL_ID, &ValidaControle); /*('4','5','6','7')
*/
/*** Retornando erro caso esteja ***/
If &ValidaControle = "Y" Then
Error ("Controle de execuo (" | PRCSRUNCNTL.RUN_CNTL_ID | ") em processa
mento.");
End-If;
/********************** mmcb.hd207253.en **********************/
If &update = "Y" Then
SQLExec("UPDATE SYSADM.PS_MMC_TE_SOL_PRCS SET PROCESS_FLAG = 'Y' WHERE
MMC_TE_SOL_ID = :1", MMC_TE_SOL_ID);
Else
&ValidaSQL = CreateRecord(Record.MMC_TE_SOL_PRCS);
&ValidaSQL.SETID.Value = SETID;
&ValidaSQL.OPRID.Value = PRCSRUNCNTL.OPRID;
&ValidaSQL.PROCESS_FLAG.Value = "Y";
&ValidaSQL.MMC_TE_SOL_ID.Value = MMC_TE_SOL_ID;
&ValidaSQL.Insert();
End-If;
&REC = CreateRecord(Record.MMC_TE_RUN_SREQ);
&REC.OPRID.Value = PRCSRUNCNTL.OPRID;
&REC.RUN_CNTL_ID.Value = PRCSRUNCNTL.RUN_CNTL_ID;
&REC.SETID.Value = SETID;
&REC.MMC_TE_SOL_ID.Value = MMC_TE_SOL_ID;
&REC.Insert();
End-If;
MMC_TE_WRK.MMC_TE_EXEC.Enabled = False;
End-If;
/********************** mmcb.at2323.sn **********************/
[MMC_TE_TOF_TYPE.MMC_OF_IDENT.SaveEdit]
If None(MMC_OF_IDENT) Then
Error ("Preenchimento do campo: Identificao Operao Fiscal obrigatrio.");
End-If;
[MMC_TE_TRIA_WRK.ADDRESS_SEQ_NUM.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
* Preencher dados fornecedor.
*
*******************************************************************************
*****************/
b.sds3239.ln */
/********************** mmcb.at2323.sn ***********************/
/********************** mmcb.sds3239.so **********************/
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.sds3426.so **********************/
/********************** mmcb.sds3239.sn **********************/
R B where A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = :1 AND A
.VENDOR_ID=:2 AND A.ADDRESS_SEQ_NUM =:3 ", &SETID_GERAL, VENDOR_ID, ADDRESS_SEQ_
NUM, CGC_BRL, VNDR_LOC);*/
/********************** mmcb.sds3239.en **********************/
/********************** mmcb.sds3426.eo **********************/
/********************** mmcb.sds3426.sn **********************/
CGC_BRL = "";
VNDR_LOC = "";
SQLExec("SELECT A.CGC_BRL, C.VNDR_LOC FROM SYSADM.PS_VNDR_ADDR_SCROL A, SYSAD

M.PS_VENDOR B, SYSADM.PS_VENDOR_LOC C WHERE A.SETID = B.SETID AND A.VENDOR_ID =
B.VENDOR_ID AND A.SETID = C.SETID AND A.VENDOR_ID = C.VENDOR_ID AND A.ADDRESS_SE
Q_NUM = C.ADDR_SEQ_NUM_ORDR AND C.EFF_STATUS = 'A' AND C.EFFDT IN ( SELECT MAX(C
_X.EFFDT) FROM SYSADM.PS_VENDOR_LOC C_X WHERE C_X.SETID = C.SETID AND C_X.VENDOR
_ID = C.VENDOR_ID AND C_X.ADDR_SEQ_NUM_ORDR = C.ADDR_SEQ_NUM_ORDR AND C_X.EFF_ST
ATUS = 'A' ) AND A.SETID = :1 AND A.VENDOR_ID=:2 AND A.ADDRESS_SEQ_NUM =:3", &SE
TID_GERAL, VENDOR_ID, ADDRESS_SEQ_NUM, CGC_BRL, VNDR_LOC);
Else
CGC_BRL = "";
VNDR_LOC = "";
/********************** mmcb.sds3426.en **********************/
End-If;
/********************** mmcb.at2323.en ***********************/
/********************** mmcb.sds3426.sn **********************/
Gray(VNDR_LOC);
/********************** mmcb.sds3426.en **********************/
[MMC_TE_TRIA_WRK.BTN_COPY.FieldChange]
/*******************************************************************************
*****************
* Wagner Sorio / Claudio Costa - MMC - 11/01/2008- mmcb.at2323 - Sistema Contro
le Terceiros
*
* EDI - Recebimento.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
eiros
*
* Evitar que sejam baixados mais que o disponvel em uma determinada nf de retorn
o.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
* Alterar a mascara do NF_BRL para aceitar 9 caracteres.
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
If %Page = Page.MMC_TE_RECV_TRIAN Then
If None(VENDOR_ID) Then
WinMessage("Campo Fornecedor Obrigatorio");
Exit;
End-If;
/*
If None(MMC_STOCK_UN) Then
WinMessage("Campo Unidade Remessa Obrigatorio");

Exit;
End-If;
*/
/*********************************************************************/
&WHERE = " WHERE vendor_id= '" | VENDOR_ID | "' ";
&WHERE = &WHERE | " AND CGC_BRL='" | CGC_BRL | "'";
/*&WHERE = &WHERE | " AND MMC_REMESSA_BRL = '" | NF_HDR_BRL.NF_BRL | "'";*/ /
*mmcb.sds4031.lo*/
&WHERE = &WHERE | " AND ( ( MMC_REMESSA_BRL = TRIM(TO_CHAR('" | NF_HDR_BRL.NF
_BRL | "','000000')) ) OR ( MMC_REMESSA_BRL = TRIM(TO_CHAR('" | NF_HDR_BRL.NF_BR
L | "','000000000')) ) )"; /*mmcb.sds4031.ln*/
&WHERE = &WHERE | " AND NF_BRL_SERIES_PO ='" | NF_HDR_BRL.NF_BRL_SERIES | "'"
;
&WHERE = &WHERE | " AND MMC_EDI_FLAG ='Y' ";
If All(MMC_STOCK_UN) Then
&WHERE = &WHERE | " AND BUSINESS_UNIT = '" | MMC_STOCK_UN | "'";
End-If;
&L1 = GetRowset(Scroll.MMC_TE_S_NF_VW);
&L1.Flush();
&L1.Select(Record.MMC_TE_S_NF_VW, &WHERE);
For &I = 1 To &L1.ActiveRowCount;
&L1.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.Enabled = False;
&L1.GetRow(&I).MMC_TE_WRK.QTY_OPEN.Enabled = False;
/*&L1.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE = &L1.GetRow(&I).MMC_TE_S_NF_VW
.QTY_NF_BRL.VALUE;*/ /*mmcb.sds3425.lo*/
If &L1.GetRow(&I).MMC_TE_S_NF_VW.QTY_NF_BRL.VALUE > &L1.GetRow(&I).MMC_TE_
S_NF_VW.QTY_AVAILABLE.VALUE Then
&L1.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "N";
/************************** mmcb.sds3425.sn **************************/
&L1.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE = 0;
&L1.GetRow(&I).MMC_TE_WRK.MMC_SALDO.VALUE = &L1.GetRow(&I).MMC_TE_S_NF_
VW.QTY_NF_BRL.VALUE;
&L1.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.Enabled = True;
&L1.GetRow(&I).MMC_TE_WRK.QTY_OPEN.Enabled = True;
/************************** mmcb.sds3425.en **************************/
Else
&L1.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE = &L1.GetRow(&I).MMC_TE_S_NF_V
W.QTY_NF_BRL.VALUE; /*mmcb.sds3425.ln*/
&L1.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y";
/************************** mmcb.sds3425.sn **************************/
For &N2 = 1 To &L1.ActiveRowCount;
If &L1.GetRow(&I).MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE = &L1.GetRow(&N2)
.MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE And
&L1.GetRow(&I).MMC_TE_S_NF_VW.NF_BRL.VALUE = &L1.GetRow(&N2).M
MC_TE_S_NF_VW.NF_BRL.VALUE Then
&L1.GetRow(&N2).MMC_TE_WRK.MMC_SALDO.VALUE = 0;
End-If;
End-For;
/************************** mmcb.sds3425.en **************************/
End-If;
End-For;
REM Codigo para validar se existe numero de NF Duplicado ;
For &N1 = &L1.ActiveRowCount To 1 Step - 1;
&NF_ID_ANTERIOR = &L1.GetRow(&N1).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE;
&NF_LN_ANTERIOR = &L1.GetRow(&N1).MMC_TE_S_NF_VW.NF_BRL_LINE_NUM.VALUE;
If &N1 <> &N2 Then
&NF_ID_NOVA = &L1.GetRow(&N2).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE;
&NF_LN_NOVA = &L1.GetRow(&N2).MMC_TE_S_NF_VW.NF_BRL_LINE_NUM.VALUE;
If (&NF_ID_ANTERIOR = &NF_ID_NOVA) And
(&NF_LN_ANTERIOR = &NF_LN_NOVA) Then
&L1.DeleteRow(&N2);
End-If;
End-If;
End-For;
End-For;
REM FIM Codigo para validar se existe numero de NF Duplicado ;
/************************** mmcb.sds3425.sn **************************/
If &L1.GetRow(&N1).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "N" And
&L1.GetRow(&N1).MMC_TE_WRK.MMC_SALDO.VALUE > 0 And
&L1.GetRow(&N1).MMC_TE_WRK.MMC_SALDO.VALUE > &L1.GetRow(&N1).MMC_TE_
S_NF_VW.QTY_AVAILABLE.VALUE Then
&V_QTY_SALDO = &L1.GetRow(&N1).MMC_TE_WRK.MMC_SALDO.VALUE - &L1.GetRow(
&N1).MMC_TE_S_NF_VW.QTY_AVAILABLE.VALUE;
&L1.GetRow(&N1).MMC_TE_WRK.QTY_OPEN.VALUE = &L1.GetRow(&N1).MMC_TE_S_NF
_VW.QTY_AVAILABLE.VALUE;
&L1.GetRow(&N1).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y";
&L1.GetRow(&N1).MMC_TE_WRK.MMC_TE_CONFI_FLG.Enabled = False;
&L1.GetRow(&N1).MMC_TE_WRK.QTY_OPEN.Enabled = False;
If &L1.GetRow(&N1).MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE = &L1.GetRow(&N2
).MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE Then
&L1.GetRow(&N2).MMC_TE_WRK.MMC_SALDO.VALUE = &V_QTY_SALDO;
End-If;
End-For;
Else
&L1.GetRow(&N1).MMC_TE_WRK.MMC_SALDO.VALUE > 0 And
&L1.GetRow(&N1).MMC_TE_WRK.MMC_SALDO.VALUE <= &L1.GetRow(&N1).MMC
_TE_S_NF_VW.QTY_AVAILABLE.VALUE Then
&V_QTY_SALDO = 0;
&L1.GetRow(&N1).MMC_TE_WRK.QTY_OPEN.VALUE = &L1.GetRow(&N1).MMC_TE_W
RK.MMC_SALDO.VALUE;
&L1.GetRow(&N1).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y";
&L1.GetRow(&N1).MMC_TE_WRK.MMC_TE_CONFI_FLG.Enabled = False;
&L1.GetRow(&N1).MMC_TE_WRK.QTY_OPEN.Enabled = False;
If &L1.GetRow(&N1).MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE = &L1.GetRow(
&N2).MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE Then
&L1.GetRow(&N2).MMC_TE_WRK.MMC_SALDO.VALUE = &V_QTY_SALDO;
End-If;
End-For;
End-If;
End-If;
End-For;
&L1.GetRow(&N1).MMC_TE_WRK.MMC_SALDO.VALUE = 0 Then
&L1.DeleteRow(&N1);
End-If;
End-For;
/************************** mmcb.sds3425.en **************************/
MMC_TE_TRIA_WRK.BUTTON.Enabled = False;
MMC_TE_TRIA_WRK.BUTTON1.Enabled = False;
MMC_TE_TRIA_WRK.BTN_COPY.Enabled = False;
MMC_TE_TRIA_WRK.VENDOR_ID.Enabled = False;
MMC_TE_TRIA_WRK.MMC_STOCK_UN.Enabled = False;
MMC_TE_TRIA_WRK.MMC_TE_TIPO_RECEBI.Enabled = False;
MMC_TE_TRIA_WRK.ADDRESS_SEQ_NUM.Enabled = False;
MMC_TE_TRIA_WRK.CGC_BRL.Enabled = False;
MMC_TE_TRIA_WRK.VNDR_LOC.Enabled = False;
MMC_TE_TRIA_WRK.NF_BRL.Enabled = False;
MMC_TE_TRIA_WRK.NF_BRL_SERIES.Enabled = False;
MMC_TE_TRIA_WRK.INV_ITEM_ID.Enabled = False;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_TRIA_WRK.BUTTON.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
a OC. *
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Claudio Henrique da Costa - MMC - 03/06/2008 - mmcb.sds2701
*
* Correo do programa - Apagando Linha com retorno indicado em nova pesquisa.
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
If &L1.GetRow(1).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE = "NEXT" Then
&L1.Flush();
End-If;
/*
If None(MMC_STOCK_UN) Then
WinMessage("O Campo BU Remessa Obrigatrio.");
Exit;
End-If;
*/
&condicao = " where ";
If All(MMC_STOCK_UN) Then
&condicao = &condicao | " business_unit= '" | MMC_STOCK_UN | "'";
End-If;
Else
Exit;
End-If;
If All(NF_BRL) Then
&condicao = &condicao | " and nf_brl ='" | NF_BRL | "'";
End-If;
If All(NF_BRL_SERIES) Then
&condicao = &condicao | " and nf_brl_series='" | NF_BRL_SERIES | "'";
End-If;
&condicao = &condicao | " and inv_item_id='" | INV_ITEM_ID | "'";
End-If;
&condicao = &condicao | " AND MMC_EDI_FLAG = 'N' ";
For &Q = &L1.ACTIVEROWCOUNT To 1 Step - 1;
If &L1.GetRow(&Q).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE <> "Y" Then
&L1.DeleteRow(&Q);
End-If
End-For;
&L1.Select(Record.MMC_TE_S_NF_VW, &condicao);
If &N1 <> &N2 Then
If &L1.GetRow(&N2).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE <> "Y" Then
/* mmcb.sds2701.n */
&L1.DeleteRow(&N2);
End-If; /* mmcb.sds2701.n */
End-If;
End-If;
End-For;
End-For;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_TRIA_WRK.BUTTON1.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
a OC. *
********** ********************************************************************
******************/
/********************** mmcb.at2323.sn **********************/
&L1.Flush();
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_TRIA_WRK.BUTTON2.FieldChange]
/*******************************************************************************
*****************
iros
*
*
*******************************************************************************
*****************/
/********************** mmcb.sds3426.sn **********************/
&V_DATA_HORA = %Datetime;
&V_OPRID = %OperatorId;
&rowsetN2 = GetRowset(Scroll.MMC_TE_S_NF_VW);
If None(MMC_ITEM_PAI) Or
WinMessage("Favor informe o Item Pai e a sua Quantidade.");
Exit;
End-If;
End-For;
SQLExec("SELECT BUSINESS_UNIT_IN, SHIPTO_ID FROM SYSADM.PS_SHIPTO_TBL WHERE S
ETID=:1 AND BUSINESS_UNIT_RECV=:2", &SETID, NF_HDR_BRL.BUSINESS_UNIT, &BU_INDUST
, &LOC_INDUST);
&SQL = CreateSQL("SELECT X.COMPONENT_ID, SUM(X.QTY_PER) AS QTY_PER FROM ( SEL
ECT CONNECT_BY_ROOT C.INV_ITEM_ID CARRO, C.COMPONENT_ID, C.QTY_PER FROM SYSADM.P
S_EN_BOM_COMPS C WHERE C.BUSINESS_UNIT = :1 AND C.BOM_STATE = 'PR' AND C.BOM_TYP
E = 'PR' AND SYSDATE BETWEEN C.DATE_IN_EFFECT AND C.DATE_OBSOLETE CONNECT BY NOC
YCLE PRIOR C.COMPONENT_ID = C.INV_ITEM_ID START WITH C.INV_ITEM_ID = :3 AND SYSD
ATE BETWEEN C.DATE_IN_EFFECT AND C.DATE_OBSOLETE ORDER BY C.COMPONENT_ID ) X GRO
UP BY X.COMPONENT_ID", &BU_INDUST, &LOC_INDUST, MMC_ITEM_PAI);
&LINHA = 1;
While &SQL.Fetch(&V_COMPONENT_ID, &V_QTY_PER)
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.BUSINESS_UNIT.VALUE = NF_HDR_BRL.
BUSINESS_UNIT;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.NF_BRL.VALUE = NF_HDR_BRL.NF_BRL;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.NF_BRL_SERIES.VALUE = NF_HDR_BRL.
NF_BRL_SERIES;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.VENDOR_ID.VALUE = VENDOR_ID;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.ADDRESS_SEQ_NUM.VALUE = ADDRESS_S
EQ_NUM;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.DT_TIMESTAMP.VALUE = &V_DATA_HORA
;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.INV_ITEM_ID.VALUE = &V_COMPONENT_
ID;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.DESCR254.VALUE = "-";
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.QTY_PER.VALUE = &V_QTY_PER * MMC_
TE_QTD_PAI;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE = 0;
End-While;
If &rowsetN2.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y" Then
If &rowsetN2.GetRow(&I).MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE = &rowsetN1
.GetRow(&j).MMC_TE_TRIA_BOM.INV_ITEM_ID.VALUE And
&valorTeste = &rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.V
ALUE + &rowsetN2.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE;
N1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE + &rowsetN2.GetRow(&I).MMC_TE_W
RK.QTY_OPEN.VALUE;
Else
If &rowsetN2.GetRow(&I).MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE = &rowse
tN1.GetRow(&j).MMC_TE_TRIA_BOM.INV_ITEM_ID.VALUE And
&rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER.VALUE > 0 And
&rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.DESCR254.VALUE = "Item
no encontrado no BOM." Then
setN1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE + &rowsetN2.GetRow(&I).MMC_T
E_WRK.QTY_OPEN.VALUE;
Else
If &rowsetN2.GetRow(&I).MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE = &ro
wsetN1.GetRow(&j).MMC_TE_TRIA_BOM.INV_ITEM_ID.VALUE And
&rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.DESCR254.VALUE = "I
tem no encontrado no BOM." Then
&rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE = &
rowsetN1.GetRow(&j).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE + &rowsetN2.GetRow(&I).MM
C_TE_WRK.QTY_OPEN.VALUE;
End-If;
End-If;
End-If;
End-For;
F_BRL;
;
RESS_SEQ_NUM;
A_HORA;
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.INV_ITEM_ID.VALUE = &rowset
N2.GetRow(&I).MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE;
contrado no BOM.";
&rowsetN1.GetRow(&LINHA).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE = &rowse
tN2.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE;
End-If;
End-If;
End-For;
&rowsetN1.DeleteRow(&LINHA);
If &rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER.VALUE <> &rowsetN1.GetRow(
&I).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE And
&rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.DESCR254.VALUE = "-" Then
&rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE > 0 Then
&rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.DESCR254.VALUE = "Quantidade do
BOM (" | &rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER.VALUE | ") esta diferente
da quantidade da NF (" | &rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALU
E | ").";
Else
&rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER_BASE.VALUE = 0 Th
en
&rowsetN1.GetRow(&I).MMC_TE_TRIA_BOM.DESCR254.VALUE = "Item no enc
ontrado na NF.";
Else
End-If;
End-If;
End-If;
Else
End-If;
End-If;
End-For;
End-If;
/********************** mmcb.sds3426.en **********************/
[MMC_TE_TRIA_WRK.CGC_BRL.FieldChange]
/*******************************************************************************
*****************
*
* Preenche automaticamente os dados do fornecedor.
*
********************************************************************************
*****************/
VENDOR_ID = "";
VNDR_LOC = "";
SQLExec("SELECT A.VENDOR_ID, A.ADDRESS_SEQ_NUM, C.VNDR_LOC FROM SYSADM.PS_VND
R_ADDR_SCROL A, SYSADM.PS_VENDOR B, SYSADM.PS_VENDOR_LOC C WHERE A.SETID = B.SET

ID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = C.SETID AND A.VENDOR_ID = C.VENDO
R_ID AND A.ADDRESS_SEQ_NUM = C.ADDR_SEQ_NUM_ORDR AND C.EFF_STATUS = 'A' AND C.EF
FDT IN ( SELECT MAX(C_X.EFFDT) FROM SYSADM.PS_VENDOR_LOC C_X WHERE C_X.SETID = C
.SETID AND C_X.VENDOR_ID = C.VENDOR_ID AND C_X.ADDR_SEQ_NUM_ORDR = C.ADDR_SEQ_NU
M_ORDR AND C_X.EFF_STATUS = 'A' ) AND A.SETID =:1 AND A.CGC_BRL =:2", &SETID_GER
AL, CGC_BRL, VENDOR_ID, ADDRESS_SEQ_NUM, VNDR_LOC);
Else
CGC_BRL = "";
VNDR_LOC = "";
End-If;
Gray(VNDR_LOC);
[MMC_TE_TRIA_WRK.MERCHANDISE_AMT.RowInit]
/*******************************************************************************
****
* Bleno L Sampaio - MMC - mmcb.sds4924 - 05/12/2014
*
* Otimizar processo Recbto Terceiros via XML
*
*******************************************************************************
****/
Hide(MERCHANDISE_AMT);
End-If;
[MMC_TE_TRIA_WRK.MMC_CHAVE_ACS_NFE.FieldChange]
/*******************************************************************************
****
*
*
*******************************************************************************
****/
If All(MMC_CHAVE_ACS_NFE) Then
SetDefault(VENDOR_ID);
SetDefault(ADDRESS_SEQ_NUM);
SetDefault(CGC_BRL);
SetDefault(VNDR_LOC);
SetDefault(MERCHANDISE_AMT);
&setid = GetSetId("BUSINESS_UNIT", NF_HDR_BRL.BUSINESS_UNIT, "VENDOR", "")
;
&sql1 = "";
&sql1 = &sql1 | "SELECT REGEXP_REPLACE(LPAD (A.EMIT_CNPJ, 14, 0),'([0-9]{2
})([0-9]{3})([0-9]{3})([0-9]{4})([0-9]{2})','\1.\2.\3/\4-\5') AS CGC_BRL ";

&sql1 = &sql1 | "
, LPAD(A.IDE_NNF, 9, '0') AS NF_BRL ";
&sql1 = &sql1 | "
, A.IDE_SERIE
AS NF_BRL_SERIES ";
&sql1 = &sql1 | "
, %DateOut(A.IDE_DEMI)
AS NF_BRL_DATE ";
&sql1 = &sql1 | "
, A.CFG_UN ";
&sql1 = &sql1 | "
, A.CFG_CNPJFORN ";
&sql1 = &sql1 | "
, A.ICMSTOT_VPROD ";
&sql1 = &sql1 | " FROM SYSADM.INFF00_NFE A ";
&sql1 = &sql1 | " WHERE A.ID = 'NFe" | MMC_CHAVE_ACS_NFE | "' ";
SQLExec(&sql1, &CGC_BRL, &NF_BRL, &NF_BRL_SERIES, &NF_BRL_DATE, &CFG_UN, &
CFG_CNPJFORN, &MERCHANDISE_AMT);
/* Caso no tenha encontrado a NF, emite erro. */
If None(&CGC_BRL) Then
Error ("NF-e no encontrada na base de dados.");
Else
/*Recupera o status da NFe e verifica se j foi validada pela SEFAZ. */
SQLExec("SELECT STAT FROM SYSADM.NFF02_DOC WHERE CHAVE_ACESSO = :1", MM
C_CHAVE_ACS_NFE, &status);
If None(&status) Or
&status <> "100" Then
Error ("NF-e no validada pela SEFAZ.");
End-If;
/* Valida o N da NF. */
If (NF_HDR_BRL.NF_BRL <> &NF_BRL) Then
Error ("O Doc. Fiscal da NF-e (" | &NF_BRL | ") no corresponde ao Doc
. Fiscal que voc est tentando receber (" | NF_HDR_BRL.NF_BRL | ").");
End-If;
/* Valida a Srie da NF. */
If (NF_HDR_BRL.NF_BRL_SERIES <> &NF_BRL_SERIES) Then
Error ("A Srie da NF-e (" | &NF_BRL_SERIES | ") no corresponde Srie da
NF que voc est tentando receber (" | NF_HDR_BRL.NF_BRL_SERIES | ").");
End-If;
/* Valida a Data da NF. */
If (NF_HDR_BRL.NF_BRL_DATE <> &NF_BRL_DATE) Then
Error ("A Data da NF-e (" | &NF_BRL_DATE | ") no corresponde Data da
NF que voc est tentando receber (" | NF_HDR_BRL.NF_BRL_DATE | ").");
End-If;
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
=
=
=
=
=
=
=
=
=
=
=
=
"";
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
|
|
|
|
|
|
|
|
|
|
|
" SELECT A.VENDOR_ID

";
"
, A.NAME1
";
"
, B.ADDRESS_SEQ_NUM ";
"
, C.VNDR_LOC ";
" FROM SYSADM.PS_VENDOR
A ";
"
, SYSADM.PS_VNDR_ADDR_SCROL B ";
"
, SYSADM.PS_VENDOR_LOC
C ";
" WHERE A.SETID
= B.SETID ";
"
AND A.VENDOR_ID
= B.VENDOR_ID ";
"
AND A.SETID
= '" | &setid | "' ";
"
AND A.VENDOR_STATUS
= 'A' ";
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
=
=
=
=
=
=
=
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
&sql2
|
|
|
|
|
|
|
"
"
"
"
"
"
"
AND
AND
AND
AND
AND
AND
AND
A.VNDR_STATUS_PO
B.CGC_BRL
C.SETID
C.VENDOR_ID
C.REMIT_ADDR_SEQ_NUM
C.EFF_STATUS
C.EFFDT
=
=
=
=
=
=
=
'Y' ";
'" | &CGC_BRL | "' ";
B.SETID ";
B.VENDOR_ID ";
B.ADDRESS_SEQ_NUM ";
'A' ";
(SELECT MAX(X.EFFDT) "
;
&sql2 = &sql2 | "
FROM SYSADM.PS_VENDO
R_LOC X ";
&sql2 = &sql2 | "
WHERE X.SETID
= C
.SETID ";
&sql2 = &sql2 | "
AND X.VENDOR_ID = C
.VENDOR_ID ";
&sql2 = &sql2 | "
AND X.VNDR_LOC = C
.VNDR_LOC ";
&sql2 = &sql2 | "
AND X.EFFDT
<= S
YSDATE) ";
SQLExec(&sql2, &VENDOR_ID, &NAME1, &ADDRESS_SEQ_NUM, &VNDR_LOC);
If None(&VENDOR_ID) Then
Error ("No foi possvel localizar os dados do Fornecedor da NF-e.");
End-If;
VENDOR_ID = &VENDOR_ID;
ADDRESS_SEQ_NUM = &ADDRESS_SEQ_NUM;
CGC_BRL = &CGC_BRL;
VNDR_LOC = &VNDR_LOC;
Gray(VNDR_LOC);
If MMC_TE_TIPO_RECEBI = "N" Then
MERCHANDISE_AMT = &MERCHANDISE_AMT;
UnHide(MERCHANDISE_AMT);
Else
MERCHANDISE_AMT = 0;
End-If;
End-If;
Else
SetDefault(MERCHANDISE_AMT);
End-If;
End-If;
[MMC_TE_TRIA_WRK.MMC_ITEM_PAI.FieldChange]
/*******************************************************************************
*****************
* Vincius Alves Mello - MMC - 05/10/2010 - mmcb.sds3426 - Sistema Controle Tercei
ros
*
* Validar se o item pai possui BOM cadastrado.
*
********************************************************************************
*****************/
/********************** mmcb.sds3426.sn **********************/
If All(MMC_ITEM_PAI) Then
&QTY_COMP = 0;
E SETID=:1 AND BUSINESS_UNIT_RECV=:2", &SETID_GERAL, NF_HDR_BRL.BUSINESS_UNIT, &
BU_INDUST, &LOC_INDUST);
SQLExec("SELECT COUNT(*) AS QTY FROM ( SELECT CONNECT_BY_ROOT C.INV_ITEM_I
D CARRO, C.COMPONENT_ID, C.QTY_PER FROM SYSADM.PS_EN_BOM_COMPS C WHERE C.BUSINES
S_UNIT = :1 AND C.BOM_STATE = 'PR' AND C.BOM_TYPE = 'PR' AND SYSDATE BETWEEN C.D
ATE_IN_EFFECT AND C.DATE_OBSOLETE CONNECT BY NOCYCLE PRIOR C.COMPONENT_ID = C.IN
V_ITEM_ID START WITH C.INV_ITEM_ID = :3 AND SYSDATE BETWEEN C.DATE_IN_EFFECT AND
C.DATE_OBSOLETE ORDER BY C.COMPONENT_ID ) X", &BU_INDUST, &LOC_INDUST, MMC_ITEM
_PAI, &QTY_COMP);
If &QTY_COMP <= 0 Then
Error ("No existem BOM cadastrado para este item.");
End-If;
End-If;
End-If;
/********************** mmcb.sds3426.en **********************/
[MMC_TE_TRIA_WRK.VENDOR_ID.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Preenche automaticamente dados do fornecedor
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
iros
*
* Preencher dados fornecedor
*
*******************************************************************************
*****************/
.sds3426.ln*/
/********************** mmcb.at2323.sn **********************/
BRL.BUSINESS_UNIT, &VAR_SERID);*/ /*mmcb.sds3426.lo*/
/********************** mmcb.sds3426.so **********************/
/*SQLExec("Select A.CGC_BRL, B.ADDR_SEQ_NUM_ORDR, B.DEFAULT_LOC FROM PS_VNDR_
AND A.SETID = :1 and A.VENDOR_ID = :2", &VAR_SERID, VENDOR_ID, CGC_BRL, ADDRESS_
SEQ_NUM, VNDR_LOC);*/
/********************** mmcb.sds3426.eo **********************/
/********************** mmcb.sds3426.sn **********************/
CGC_BRL = "";
VNDR_LOC = "";
SQLExec("SELECT A.CGC_BRL, A.ADDRESS_SEQ_NUM, C.VNDR_LOC FROM SYSADM.PS_VNDR_
ADDR_SCROL A, SYSADM.PS_VENDOR B, SYSADM.PS_VENDOR_LOC C WHERE A.SETID = B.SETID
AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = C.SETID AND A.VENDOR_ID = C.VENDOR_
ID AND A.ADDRESS_SEQ_NUM = C.ADDR_SEQ_NUM_ORDR AND C.EFF_STATUS = 'A' AND C.EFFD
T IN ( SELECT MAX(C_X.EFFDT) FROM SYSADM.PS_VENDOR_LOC C_X WHERE C_X.SETID = C.S
ETID AND C_X.VENDOR_ID = C.VENDOR_ID AND C_X.ADDR_SEQ_NUM_ORDR = C.ADDR_SEQ_NUM_
ORDR AND C_X.EFF_STATUS = 'A' ) AND A.SETID = :1 and A.VENDOR_ID = :2 AND ROWNUM
= 1", &SETID_GERAL, VENDOR_ID, CGC_BRL, ADDRESS_SEQ_NUM, VNDR_LOC);
/********************** mmcb.sds3426.en **********************/
&L1.Flush();
End-If;
/********************** mmcb.at2323.en **********************/
/********************** mmcb.sds3426.sn **********************/
Gray(VNDR_LOC);
/********************** mmcb.sds3426.en **********************/
[MMC_TE_WRK.BTN_REFRESH.FieldChange]
/*******************************************************************************
*********
********************************************************************************
*********/
/*******************************************************************************
**********
* Leandro Rodrigues da Silva Souza - MMCB - 18/04/2010 - mmcb.sds3239
*
*
********************************************************************************
**********/
/*******************************************************************************
**********
********************************************************************************
**********/
/*******************************************************************************
**********
* Leandro Rodrigues da Silva Souza - MMCB - 18/04/2010 - mmcb.sds3239
*
*
********************************************************************************
**********/
/*******************************************************************************
**********
* Vincius Alves Mello - MMCB - 05/10/2010 - mmcb.sds3426

*
* Validao itens NF retorno X BOM.
*
********************************************************************************
**********/
/*******************************************************************************
**********
Rafael da Cruz Nascimento - MMCB - 25/01/2013 - SDS4304 - Ordem de Produo em Unida
de de Terceiros
Habilitar o Boto de Recebimento para novo tipo "3 - Rec.Terceiro/Remessa"
********************************************************************************
**********/
/*******************************************************************************
**********
*
* Produo de Ordem em Terceiros/Faturamento Jimny
*
*******************************************************************************
**********/
/*Declare Function BUSCA_CUSTO_ITEM PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange
;*/ /*mmcb.sds3239.lo */
/**/ /*mmcb.sds3239.lo */
/*/*****************************************************************************
********/ /*mmcb.sds3239.lo */
/*Wagner Sorio - MMC - 10/10/2007 - mmcb.at2323 - Sistema Controle Terceiros*/ /
*mmcb.sds3239.lo */
/*Fazer pequisa e Preencher o GRID das Requisies de Solicitao.*/ /*mmcb.sds3239.lo *
/
/*******************************************************************************
*******/ /*mmcb.sds3239.lo */
/*/********************** mmcb.at2323.sn **********************/ /*mmcb.sds3239.
lo */
/*If %Component = Component.MMC_TE_REQ_SOLICIT Then*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* &LEVEL1 = GetRowset(Scroll.MMC_TE_SOLEE_VW);*/ /*mmcb.sds3239.lo */
/* &LEVEL1.Flush();*/ /*mmcb.sds3239.lo */
/* &condicao = "";*/ /*mmcb.sds3239.lo */
/* If None(MMC_TE_REQ_VW.BUSINESS_UNIT) Then*/ /*mmcb.sds3239.lo */
/*
REM WinMessage("O campo local de entrega de preenchimento obrigatrio");*/
/*mmcb.sds3239.lo */
/* Else*/ /*mmcb.sds3239.lo */
/*
&condicao = " WHERE SOURCE_BUS_UNIT =" | "'" | MMC_TE_REQ_VW.BUSINESS_UN
IT | "'" | " AND SHIPTO_ID = " | "'" | MMC_TE_REQ_VW.SHIPTO_ID | "'";*/ /*mmcb.s
ds3239.lo */
/* End-If;*/ /*mmcb.sds3239.lo */
/* &LEVEL1.Select(Record.MMC_TE_SOLEE_VW, &condicao);*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/*End-If;*/ /*mmcb.sds3239.lo */
/**/ /*mmcb.sds3239.lo */
/*If %Page = Page.NF_SUG_AMOUNT_PBL Then*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* SQLExec("select shipto_id from sysadm.ps_shipto_tbl where setid='MMCSA' and
business_unit_recv=:1", NF_HDR_BRL.BUSINESS_UNIT, MMC_TE_RECV_WRK.SHIPTO_ID);*/
/* */ /*mmcb.sds3239.lo */
/* SQLExec("Select setid from ps_set_cntrl_tbl where setcntrlvalue = :1", NF_H
DR_BRL.BUSINESS_UNIT.Value, MMC_TE_RECV_WRK.SETID.Value);*/ /*mmcb.sds3239.lo */

/* SQLExec("SELECT BUSINESS_UNIT_IN FROM PS_SHIPTO_TBL A WHERE A.EFFDT = (SELE
CT MAX(B.EFFDT) FROM PS_SHIPTO_TBL B WHERE B.SETID = A.SETID AND B.SHIPTO_ID = A
.SHIPTO_ID AND B.EFFDT <= SYSDATE) And A.setid = :1 And A.shipto_id = :2", MMC_T
E_RECV_WRK.SETID, MMC_TE_RECV_WRK.SHIPTO_ID, MMC_TE_RECV_WRK.BUSINESS_UNIT_IN);*
/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* SQLExec("select 'Y' from sysadm.ps_mmc_te_recv_par where business_unit_recv
=:1 and eff_status='A' and mmc_cntrl_terc = 'Y' and mmc_te_tipo_recv='2'", NF_HD
R_BRL.BUSINESS_UNIT, &UN_TRIAN);*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If &UN_TRIAN <> "Y" Then*/ /*mmcb.sds3239.lo */
/*
Gray(BTN_REFRESH);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG);*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/* Else*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_WRK.SHIPTO_ID);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_WRK.VENDOR_ID);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_WRK.ADDRESS_SEQ_NUM);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_WRK.CGC_BRL);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_WRK.VNDR_LOC);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_VND.NF_BRL);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_VND.NF_BRL_SERIES);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_VND.VENDOR_ID);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_VND.ADDRESS_SEQ_NUM);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_VND.VNDR_LOC);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_VND.CGC_BRL);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_WRK.PO_ID);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_WRK.INV_ITEM_ID);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_WRK.BUTTON);*/ /*mmcb.sds3239.lo */
/*
Gray(MMC_TE_RECV_WRK.BUTTON1);*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* &RESULT_MODAL = DoModal(Page.MMC_TE_RECV, " ", - 1, - 1, 0);*/ /*mmcb.sds32
39.lo */
/* */ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If None(MMC_TE_RECV_VND.NF_BRL) And*/ /*mmcb.sds3239.lo */
/*
&RESULT_MODAL = 1 And*/ /*mmcb.sds3239.lo */
/*
MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "N" And*/ /*mmcb.sds3239.lo */
/*
MMC_TE_TRIA_WRK.MMC_TE_TIPO_RECEBI = "N" And*/ /*mmcb.sds3239.lo */
/*
MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N" Then*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
While (None(MMC_TE_RECV_VND.NF_BRL))*/ /*mmcb.sds3239.lo */
/*
WinMessage("Nota Fiscal Triangulao em branco");*/ /*mmcb.sds3239.lo */
/*
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV, " ", - 1, - 1, 0);*/ /*mmcb
.sds3239.lo */
/*
End-While;*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If None(MMC_TE_RECV_VND.NF_BRL_SERIES) And*/ /*mmcb.sds3239.lo */
/*
(&RESULT_MODAL = 1) And*/ /*mmcb.sds3239.lo */
/*
/*
/*
/*
*/ /*mmcb.sds3239.lo */
/*
While None(MMC_TE_RECV_VND.NF_BRL_SERIES)*/ /*mmcb.sds3239.lo */
/*
WinMessage("Serie Nota Fiscal Triangulao em branco");*/ /*mmcb.sds3239.
lo */
/*
.sds3239.lo */
/*
/*
*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If None(MMC_TE_RECV_VND.VENDOR_ID) And*/ /*mmcb.sds3239.lo */
/*
/*
/*
/*
/*
*/ /*mmcb.sds3239.lo */
/*
While None(MMC_TE_RECV_VND.VENDOR_ID)*/ /*mmcb.sds3239.lo */
/*
WinMessage("Fornecedor Triangulao em branco");*/ /*mmcb.sds3239.lo */
/*
.sds3239.lo */
/*
Exit;*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
/* */ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* &LINHAOC_SELECIONADA = "N";*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* &rsMMC_TE_OC_VW = GetRowset(Scroll.MMC_TE_OC_VW);*/ /*mmcb.sds3239.lo */
/* For &I = 1 To &rsMMC_TE_OC_VW.activerowcount;*/ /*mmcb.sds3239.lo */
/*
If &rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y" Th
en*/ /*mmcb.sds3239.lo */
/*
If (&rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE <= 0) Then*/
/*
While (&rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE <= 0)*
/*
WinMessage("Error: Quantidade da Ordem Compra: " | &rsMMC_TE_OC
_VW.GetRow(&I).MMC_TE_OC_VW.PO_ID.VALUE | " Linha: " | &rsMMC_TE_OC_VW.GetRow(&I
).MMC_TE_OC_VW.LINE_NBR.VALUE | " programao " | &rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_
OC_VW.SCHED_NBR.VALUE | " deve ser maior que zero");*/ /*mmcb.sds3239.lo */
/*
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV, " ", - 1, - 1, 0);*/
/*
/*
Else*/ /*mmcb.sds3239.lo */
/*
&LINHAOC_SELECIONADA = "Y";*/ /*mmcb.sds3239.lo */
/*
End-If;*/ /*mmcb.sds3239.lo */
/*
/* End-For;*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If &LINHAOC_SELECIONADA = "N" And*/ /*mmcb.sds3239.lo */
/*
/*
&RESULT_MODAL = 1 And*/ /*mmcb.sds3239.lo */
/*
(MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N") Then*/ /*mmcb.sds3239.lo */
/*
WinMessage("Error: Pelomenos uma Linha da OC deve ser lecionada ou Cliqu
e em Cancelar para Sair da Pagina. ");*/ /*mmcb.sds3239.lo */
/*
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV, " ", - 1, - 1, 0);*/ /*mmcb.sd
s3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If All(MMC_TE_RECV_WRK.VENDOR_ID) And*/ /*mmcb.sds3239.lo */
/*
All(MMC_TE_TRIA_WRK.VENDOR_ID) Then*/ /*mmcb.sds3239.lo */
/*
Error ("Entrada documento Fiscal de Terceiros Deve ser Triangulao ou Remes
sa e Ordem. No com os dois tipos ao mesmo tempo.");*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If All(MMC_TE_RECV_WRK.VENDOR_ID) Then*/ /*mmcb.sds3239.lo */
/*
MMC_TE_NFLN_WRK.MMC_TERCEIRO_FLG = "Y";*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If (MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N") Then*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
MMC_TE_TRIA_WRK.VENDOR_ID = "";*/ /*mmcb.sds3239.lo */
/*
MMC_TE_TRIA_WRK.MMC_STOCK_UN = "";*/ /*mmcb.sds3239.lo */
/*
MMC_TE_TRIA_WRK.ADDRESS_SEQ_NUM = 0;*/ /*mmcb.sds3239.lo */
/*
MMC_TE_TRIA_WRK.CGC_BRL = "";*/ /*mmcb.sds3239.lo */
/*
MMC_TE_TRIA_WRK.VNDR_LOC = "";*/ /*mmcb.sds3239.lo */
/*
MMC_TE_TRIA_WRK.NF_BRL = "";*/ /*mmcb.sds3239.lo */
/*
MMC_TE_TRIA_WRK.NF_BRL_SERIES = "";*/ /*mmcb.sds3239.lo */
/*
MMC_TE_TRIA_WRK.INV_ITEM_ID = "";*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
&L1 = GetRowset(Scroll.MMC_TE_S_NF_VW);*/ /*mmcb.sds3239.lo */
/*
&L1.Flush();*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* Gray(BTN_REFRESH);*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If &RESULT_MODAL = 0 Then*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
&L1OC = GetRowset(Scroll.MMC_TE_OC_VW);*/ /*mmcb.sds3239.lo */
/*
&L1OC.Flush();*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/*
EndModal(1);*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/**/ /*mmcb.sds3239.lo */
/*/********************** mmcb.at2323.en **********************/ /*mmcb.sds3239.
lo */
/**/ /*mmcb.sds3239.lo */
/*/********************** mmcb.at2323.sn **********************/ /*mmcb.sds3239.
lo */
/**/ /*mmcb.sds3239.lo */
/*If %Page = Page.MMC_TE_RECV Then*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "N";*/ /*mmcb.sds3239.lo */
/* Gray(MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG);*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* &LINHA_NF_SELECIONADA = "N";*/ /*mmcb.sds3239.lo */
/* &L1 = GetRowset(Scroll.MMC_TE_S_NF_VW);*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* &RESULT_MODAL = DoModal(Page.MMC_TE_RECV_TRIAN, " ", - 1, - 1, 0);*/ /*mmcb
.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* REM LIMPA AS NFS QUE NO FORAM SELECIONADAS ;*/ /*mmcb.sds3239.lo */
/* For &I = &L1.ActiveRowCount To 1 Step - 1;*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
If &L1.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE <> "Y" Then*/ /*mmcb
.sds3239.lo */
/*
&L1.DeleteRow(&I);*/ /*mmcb.sds3239.lo */
/*
End-If*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* &TOTALLN = &L1.ActiveRowCount;*/ /*mmcb.sds3239.lo */
/* For &N = 1 To &TOTALLN;*/ /*mmcb.sds3239.lo */
/*
If &L1.GetRow(&N).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y" Then*/ /*mmcb.
sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
If &L1.GetRow(&N).MMC_TE_WRK.QTY_OPEN.VALUE <= 0 Then*/ /*mmcb.sds323
9.lo */
/*
While ((&L1.GetRow(&N).MMC_TE_WRK.QTY_OPEN.VALUE <= 0) And*/ /*mmc
b.sds3239.lo */
/*
/*
(&L1.GetRow(&N).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y"))*/
/*
WinMessage("Error: NF: " | &L1.GetRow(&N).MMC_TE_S_NF_VW.NF_BRL
_ID.VALUE | " Linha: " | &L1.GetRow(&N).MMC_TE_S_NF_VW.NF_BRL_LINE_NUM.VALUE | "
deve ser maior que zero");*/ /*mmcb.sds3239.lo */
/*
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV_TRIAN, " ", - 1, - 1,
0);*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
/*
/*
&LINHA_NF_SELECIONADA = "Y";*/ /*mmcb.sds3239.lo */
/*
/*&L1.GetRow(&N).MMC_TE_WRK.QTY_OPEN.VALUE <= 0*/ /*mmcb.sds3239.lo *
/
/*
End-If; /*IF &L1.GetRow(&N).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y"*/ /*
mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* While (&LINHA_NF_SELECIONADA = "N" And*/ /*mmcb.sds3239.lo */
/*
(&RESULT_MODAL = 1))*/ /*mmcb.sds3239.lo */
/*
WinMessage("Error: Pelomenos uma NF deve ser lecionada ou Clique em Canc
elar para Sair da Pagina. ");*/ /*mmcb.sds3239.lo */
/*
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV_TRIAN, " ", - 1, - 1, 0);*/ /*m
mcb.sds3239.lo */
/*
/* End-While;*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* REM Codigo para validar se existe numero de NF Duplicado ;*/ /*mmcb.sds3239
.lo */
/* For &N1 = 1 To &L1.ActiveRowCount;*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
&NF_ID_ANTERIOR = &L1.GetRow(&N1).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE;*/ /*mm
cb.sds3239.lo */
/*
&NF_LN_ANTERIOR = &L1.GetRow(&N1).MMC_TE_S_NF_VW.NF_BRL_LINE_NUM.VALUE;*
/*
*/ /*mmcb.sds3239.lo */
/*
For &N2 = 1 To &L1.ActiveRowCount;*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
If &N1 <> &N2 Then*/ /*mmcb.sds3239.lo */
/*
&NF_ID_NOVA = &L1.GetRow(&N2).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE;*/ /*
mmcb.sds3239.lo */
/*
&NF_LN_NOVA = &L1.GetRow(&N2).MMC_TE_S_NF_VW.NF_BRL_LINE_NUM.VALUE
;*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
If (&NF_ID_ANTERIOR = &NF_ID_NOVA) And*/ /*mmcb.sds3239.lo */
/*
(&NF_LN_ANTERIOR = &NF_LN_NOVA) Then*/ /*mmcb.sds3239.lo */
/*
WinMessage("Erro: J exista a NF: " | &NF_ID_NOVA | " Linha: " |
&NF_LN_NONA | " Lista ser Limpa para iniciar a pesquisa novamente.");*/ /*mmcb.sd
s3239.lo */
/*
/*
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV_TRIAN, " ", - 1, - 1,
0);*/ /*mmcb.sds3239.lo */
/*
/*
/*
/*
End-For;*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* REM FIM Codigo para validar se existe numero de NF Duplicado ;*/ /*mmcb.sds
3239.lo */
/* */ /*mmcb.sds3239.lo */
/* For &W = 1 To &L1.ActiveRowCount;*/ /*mmcb.sds3239.lo */
/*
If None(&L1.GetRow(&W).MMC_TE_WRK.INV_LOT_ID.VALUE) Then*/ /*mmcb.sds323
9.lo */
/*
&L1.GetRow(&W).MMC_TE_WRK.INV_LOT_ID.VALUE = "NONE";*/ /*mmcb.sds3239
.lo */
/*
/*
*/ /*mmcb.sds3239.lo */
/*
If None(&L1.GetRow(&W).MMC_TE_WRK.SERIAL_ID.VALUE) Then*/ /*mmcb.sds3239
.lo */
/*
&L1.GetRow(&W).MMC_TE_WRK.SERIAL_ID.VALUE = "NONE";*/ /*mmcb.sds3239.
lo */
/*
/*
*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If (None(MMC_TE_TRIA_WRK.MMC_STOCK_UN) And*/ /*mmcb.sds3239.lo */
/*
(&RESULT_MODAL = 1)) Then*/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/*
/*
*/ /*mmcb.sds3239.lo */
/**/ /*mmcb.sds3239.lo */
/*
While None(MMC_TE_TRIA_WRK.MMC_STOCK_UN) And*/ /*mmcb.sds3239.lo */
/*
(&RESULT_MODAL = 1)*/ /*mmcb.sds3239.lo */
/*
WinMessage("Error: BU Controle de Remessa est em branco.");*/ /*mmcb.s
ds3239.lo */
/*
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV_TRIAN, " ", - 1, - 1, 0);*/
/*
/**/ /*mmcb.sds3239.lo */
/*
*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* If All(MMC_TE_TRIA_WRK.VENDOR_ID) Then*/ /*mmcb.sds3239.lo */
/*
MMC_TE_NFLN_WRK.MMC_TERCEIRO_FLG = "Y";*/ /*mmcb.sds3239.lo */
/*
MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "Y";*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/* Gray(BTN_REFRESH);*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_WRK.SHIPTO_ID = "";*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_WRK.ADDRESS_SEQ_NUM = 0;*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_WRK.CGC_BRL = "";*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_WRK.VNDR_LOC = "";*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_VND.NF_BRL = "";*/ /*mmcb.sds3239.lo */

/* MMC_TE_RECV_VND.NF_BRL_SERIES = "";*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_VND.VENDOR_ID = "";*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_VND.ADDRESS_SEQ_NUM = 0;*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_VND.VNDR_LOC = "";*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_VND.CGC_BRL = "";*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_WRK.PO_ID = "";*/ /*mmcb.sds3239.lo */
/* MMC_TE_RECV_WRK.INV_ITEM_ID = "";*/ /*mmcb.sds3239.lo */
/* &L1OC = GetRowset(Scroll.MMC_TE_OC_VW);*/ /*mmcb.sds3239.lo */
/* &L1OC.Flush();*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/*
&L1 = GetRowset(Scroll.MMC_TE_S_NF_VW);*/ /*mmcb.sds3239.lo */
/*
/* */ /*mmcb.sds3239.lo */
/* If MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "Y" Then*/ /*mmcb.sds3239.lo */
/*
MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "Y";*/ /*mmcb.sds3239.lo */
/* */ /*mmcb.sds3239.lo */
/*
/*
/* */ /*mmcb.sds3239.lo */
/**/ /*mmcb.sds3239.lo */
/*/********************** mmcb.at2323.en **********************/ /*mmcb.sds3239.
lo */
/**/ /*mmcb.sds3239.lo */
b.sds3239.ln */
/********************** mmcb.at2323.sn **********************/
If %Component = Component.MMC_TE_REQ_SOLICIT Then
&LEVEL1 = GetRowset(Scroll.MMC_TE_SOLEE_VW);
&LEVEL1.Flush();
&condicao = "";
If None(MMC_TE_REQ_VW.BUSINESS_UNIT) Then
REM WinMessage("O campo local de entrega de preenchimento obrigatrio");
Else
&condicao = " WHERE SOURCE_BUS_UNIT =" | "'" | MMC_TE_REQ_VW.BUSINESS_UNIT
| "'" | " AND SHIPTO_ID = " | "'" | MMC_TE_REQ_VW.SHIPTO_ID | "'";
End-If;
&LEVEL1.Select(Record.MMC_TE_SOLEE_VW, &condicao);
End-If;
If %Page = Page.NF_SUG_AMOUNT_PBL Then
/*mmcb.sds3239.lo*/
/* SQLExec("select shipto_id from sysadm.ps_shipto_tbl where setid='MMCSA'
and business_unit_recv=:1", NF_HDR_BRL.BUSINESS_UNIT, MMC_TE_RECV_WRK.SHIPTO_ID)
;*/
/*mmcb.sds3239.eo*/
/*mmcb.sds3239.ln*/
SQLExec("select shipto_id from sysadm.ps_shipto_tbl where setid=:1 and busine
ss_unit_recv=:2", &SETID_GERAL, NF_HDR_BRL.BUSINESS_UNIT, MMC_TE_RECV_WRK.SHIPTO
_ID);
/*mmcb.sds3239.sn*/
SQLExec("Select setid from ps_set_cntrl_tbl where setcntrlvalue = :1", NF_HDR
_BRL.BUSINESS_UNIT.Value, MMC_TE_RECV_WRK.SETID.Value);
SQLExec("SELECT BUSINESS_UNIT_IN FROM PS_SHIPTO_TBL A WHERE A.EFFDT = (SELECT
MAX(B.EFFDT) FROM PS_SHIPTO_TBL B WHERE B.SETID = A.SETID AND B.SHIPTO_ID = A.S
HIPTO_ID AND B.EFFDT <= SYSDATE) And A.setid = :1 And A.shipto_id = :2", MMC_TE_
RECV_WRK.SETID, MMC_TE_RECV_WRK.SHIPTO_ID, MMC_TE_RECV_WRK.BUSINESS_UNIT_IN);
/*SQLExec("select 'Y' from sysadm.ps_mmc_te_recv_par where business_unit_recv
=:1 and eff_status='A' and mmc_cntrl_terc = 'Y' and mmc_te_tipo_recv='2'", NF_HD
R_BRL.BUSINESS_UNIT, &UN_TRIAN);*/ /*mmcb.sds4388.lo*/
SQLExec("select 'Y' from sysadm.ps_mmc_te_recv_par where business_unit_recv=:
1 and eff_status='A' and mmc_cntrl_terc = 'Y' and mmc_te_tipo_recv in ('2','3')"
, NF_HDR_BRL.BUSINESS_UNIT, &UN_TRIAN); /*mmcb.sds4388.ln*/
If &UN_TRIAN <> "Y" Then
Gray(BTN_REFRESH);
Gray(MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG);
Else
Gray(MMC_TE_RECV_WRK.SHIPTO_ID);
Gray(MMC_TE_RECV_WRK.VENDOR_ID);
Gray(MMC_TE_RECV_WRK.ADDRESS_SEQ_NUM);
Gray(MMC_TE_RECV_WRK.CGC_BRL);
Gray(MMC_TE_RECV_WRK.VNDR_LOC);
Gray(MMC_TE_RECV_VND.NF_BRL);
Gray(MMC_TE_RECV_VND.NF_BRL_SERIES);
Gray(MMC_TE_RECV_VND.VENDOR_ID);
Gray(MMC_TE_RECV_VND.ADDRESS_SEQ_NUM);
Gray(MMC_TE_RECV_VND.VNDR_LOC);
Gray(MMC_TE_RECV_VND.CGC_BRL);
Gray(MMC_TE_RECV_WRK.PO_ID);
Gray(MMC_TE_RECV_WRK.INV_ITEM_ID);
Gray(MMC_TE_RECV_WRK.BUTTON);
Gray(MMC_TE_RECV_WRK.BUTTON1);
End-If;
/******************************** mmcb.sds4304.sn ***************************
**************/
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_TE_RECV_PAR WHERE BUSINESS_UNIT_RECV=:
1 AND EFF_STATUS='A' AND MMC_CNTRL_TERC = 'Y' AND MMC_TE_TIPO_RECV = 3", NF_HDR_
BRL.BUSINESS_UNIT, &UN_PARAMETRIZADA);
If &UN_PARAMETRIZADA = "Y" Then
UnGray(BTN_REFRESH);
End-If;
/******************************** mmcb.sds4304.en ***************************
**************/
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV, " ", - 1, - 1, 0);
If None(MMC_TE_RECV_VND.NF_BRL) And
&RESULT_MODAL = 1 And
MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "N" And
MMC_TE_TRIA_WRK.MMC_TE_TIPO_RECEBI = "N" And
MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N" Then
While (None(MMC_TE_RECV_VND.NF_BRL))
WinMessage("Nota Fiscal Triangulao em branco");
End-While;
End-If;
If None(MMC_TE_RECV_VND.NF_BRL_SERIES) And
(&RESULT_MODAL = 1) And
While None(MMC_TE_RECV_VND.NF_BRL_SERIES)
WinMessage("Serie Nota Fiscal Triangulao em branco");
End-While;
End-If;
If None(MMC_TE_RECV_VND.VENDOR_ID) And
While None(MMC_TE_RECV_VND.VENDOR_ID)
WinMessage("Fornecedor Triangulao em branco");
Exit;
End-While;
End-If;
&LINHAOC_SELECIONADA = "N";
&rsMMC_TE_OC_VW = GetRowset(Scroll.MMC_TE_OC_VW);
For &I = 1 To &rsMMC_TE_OC_VW.activerowcount;
If &rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y" Then
If (&rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE <= 0) Then
While (&rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE <= 0)
WinMessage("Error: Quantidade da Ordem Compra: " | &rsMMC_TE_OC_V
W.GetRow(&I).MMC_TE_OC_VW.PO_ID.VALUE | " Linha: " | &rsMMC_TE_OC_VW.GetRow(&I).
MMC_TE_OC_VW.LINE_NBR.VALUE | " programao " | &rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_OC
_VW.SCHED_NBR.VALUE | " deve ser maior que zero");
End-While;
Else
&LINHAOC_SELECIONADA = "Y";
End-If;
End-If;
End-For;
If &LINHAOC_SELECIONADA = "N" And
&RESULT_MODAL = 1 And
(MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N") Then
WinMessage("Error: Pelomenos uma Linha da OC deve ser lecionada ou Clique
em Cancelar para Sair da Pagina. ");
End-If;
If All(MMC_TE_RECV_WRK.VENDOR_ID) And
All(MMC_TE_TRIA_WRK.VENDOR_ID) Then
Error ("Entrada documento Fiscal de Terceiros Deve ser Triangulao ou Remessa
e Ordem. No com os dois tipos ao mesmo tempo.");
End-If;
If All(MMC_TE_RECV_WRK.VENDOR_ID) Then
End-If;
If (MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N") Then
MMC_TE_TRIA_WRK.VENDOR_ID = "";
MMC_TE_TRIA_WRK.MMC_STOCK_UN = "";
MMC_TE_TRIA_WRK.ADDRESS_SEQ_NUM = 0;
MMC_TE_TRIA_WRK.CGC_BRL = "";
MMC_TE_TRIA_WRK.VNDR_LOC = "";
MMC_TE_TRIA_WRK.NF_BRL = "";
MMC_TE_TRIA_WRK.NF_BRL_SERIES = "";
MMC_TE_TRIA_WRK.INV_ITEM_ID = "";
&L1.Flush();
End-If;
Gray(BTN_REFRESH);
If &RESULT_MODAL = 0 Then
&L1OC = GetRowset(Scroll.MMC_TE_OC_VW);
&L1OC.Flush();
End-If;
EndModal(1);
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
/********************** mmcb.at2323.sn **********************/
MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "N";
Gray(MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG);
&LINHA_NF_SELECIONADA = "N";
&L2 = GetRowset(Scroll.MMC_TE_TRIA_BOM); /*mmcb.sds3426.ln*/
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV_TRIAN, " ", - 1, - 1, 0);
/************************ mmcb.sds3426.sn ************************/
For &I = &L2.ActiveRowCount To 1 Step - 1;
&L2.DeleteRow(&I);
End-For;
/************************ mmcb.sds3426.en ************************/
For &I = &L1.ActiveRowCount To 1 Step - 1;
If &L1.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE <> "Y" Then
&L1.DeleteRow(&I);
End-If
End-For;
&TOTALLN = &L1.ActiveRowCount;
For &N = 1 To &TOTALLN;
If &L1.GetRow(&N).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y" Then
If &L1.GetRow(&N).MMC_TE_WRK.QTY_OPEN.VALUE <= 0 Then
While ((&L1.GetRow(&N).MMC_TE_WRK.QTY_OPEN.VALUE <= 0) And
(&L1.GetRow(&N).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y"))
WinMessage("Error: NF: " | &L1.GetRow(&N).MMC_TE_S_NF_VW.NF_BRL_I
D.VALUE | " Linha: " | &L1.GetRow(&N).MMC_TE_S_NF_VW.NF_BRL_LINE_NUM.VALUE | " d
eve ser maior que zero");
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV_TRIAN, " ", - 1, - 1, 0)
;
End-While;
End-If;
&LINHA_NF_SELECIONADA = "Y";
/*&L1.GetRow(&N).MMC_TE_WRK.QTY_OPEN.VALUE <= 0*/
End-If; /*IF &L1.GetRow(&N).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y"*/
End-For;
While (&LINHA_NF_SELECIONADA = "N" And
(&RESULT_MODAL = 1))
WinMessage("Error: Pelomenos uma NF deve ser lecionada ou Clique em Cancel
ar para Sair da Pagina. ");
Exit;
End-While;
If &N1 <> &N2 Then
WinMessage("Erro: J exista a NF: " | &NF_ID_NOVA | " Linha: " | &N
F_LN_NONA | " Lista ser Limpa para iniciar a pesquisa novamente.");
&L1.Flush();
&RESULT_MODAL = DoModal(Page.MMC_TE_RECV_TRIAN, " ", - 1, - 1, 0)
;
Exit;
End-If;
End-If;
End-For;
End-For;
For &W = 1 To &L1.ActiveRowCount;
If None(&L1.GetRow(&W).MMC_TE_WRK.INV_LOT_ID.VALUE) Then
&L1.GetRow(&W).MMC_TE_WRK.INV_LOT_ID.VALUE = "NONE";
End-If;
If None(&L1.GetRow(&W).MMC_TE_WRK.SERIAL_ID.VALUE) Then
&L1.GetRow(&W).MMC_TE_WRK.SERIAL_ID.VALUE = "NONE";
End-If;
End-For;
If (None(MMC_TE_TRIA_WRK.MMC_STOCK_UN) And
(&RESULT_MODAL = 1)) Then
/*
While None(MMC_TE_TRIA_WRK.MMC_STOCK_UN) And
(&RESULT_MODAL = 1)
WinMessage("Error: BU Controle de Remessa est em branco.");
End-While;
*/
End-If;
If All(MMC_TE_TRIA_WRK.VENDOR_ID) Then
MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "Y";
End-If;
Gray(BTN_REFRESH);
MMC_TE_RECV_WRK.SHIPTO_ID = "";
MMC_TE_RECV_WRK.ADDRESS_SEQ_NUM = 0;
MMC_TE_RECV_WRK.CGC_BRL = "";
MMC_TE_RECV_WRK.VNDR_LOC = "";
MMC_TE_RECV_VND.NF_BRL = "";
MMC_TE_RECV_VND.NF_BRL_SERIES = "";
MMC_TE_RECV_VND.VENDOR_ID = "";
MMC_TE_RECV_VND.ADDRESS_SEQ_NUM = 0;
MMC_TE_RECV_VND.VNDR_LOC = "";
MMC_TE_RECV_VND.CGC_BRL = "";
MMC_TE_RECV_WRK.PO_ID = "";
MMC_TE_RECV_WRK.INV_ITEM_ID = "";
&L1OC = GetRowset(Scroll.MMC_TE_OC_VW);
&L1OC.Flush();
&L1.Flush();
&L2 = GetRowset(Scroll.MMC_TE_TRIA_BOM); /*mmcb.sds3426.ln*/
&L2.Flush(); /*mmcb.sds3426.ln*/
End-If;
End-If;
EndModal(1);
EndModal(1);
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_WRK.BTN_REFRESH.RowInit]
/*******************************************************************************
*****
Desabilitar o boto Terceiros caso UN no esteja parametrizada para terceiros.
********************************************************************************
*****/
/********************** mmcb.at2323.sn **********************/
1 and eff_status='A' and mmc_cntrl_terc = 'Y'", NF_HDR_BRL.BUSINESS_UNIT, &UN_PA
RAMETRIZADA);
If &UN_PARAMETRIZADA <> "Y" Then
Gray(BTN_REFRESH);
End-If;
1 and eff_status='A' and mmc_cntrl_terc = 'Y'", NF_HDR_BRL.BUSINESS_UNIT, &UN_PA
RAMETRIZADA);
If &UN_PARAMETRIZADA <> "Y" Then
Gray(BTN_REFRESH);
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_WRK.FUNCLIB.SavePostChange]
/*******************************************************************************
*****
Terceiros
Biblioteca de Funes Sistema Terceiros.
********************************************************************************
*****/
/*******************************************************************************
*****
* Wagner Sorio MMC - 19/06/2008 - mmcb.at50856
*
* Adicionar Rotina de Cancelar o Recebimento de Terceiros quando nf for excluida
. *
********************************************************************************
*****/
/*******************************************************************************
*****
* Wagner Sorio MMC - 09/07/2008 - mmcb.hd51767
*
* Exclui NF Servio dos insumos que foram Estornado ou Excluido.
*
********************************************************************************
*****/
/*******************************************************************************
*****
* Wagner Sorio - MMC - 28/05/2008 - mmcb.sds2618 - Retorno Rally
*
* Criao da funao GRAVA_MMC_TE_TRANSAC
*
********************************************************************************
*****/
/*******************************************************************************
*****
*
* Retirar mensagem de erro do cadastro do item na tabela BU_ITENS_INV, pois o
*
* sistema consegue estornar o item, mesmo no tendo cadastro na BU_ITENS_INV.
*
* Existe uma SDS para no deixar entrar itens em terceiros que no possuem cadastro
*
* na BU_ITENS_INV.
*
********************************************************************************
*****/
/*******************************************************************************
*****
* Augusto V Net MMC - 29/12/2014 - mmcb.hd225474
*
* Correo de comando update.
*
********************************************************************************
*****/
Declare Function
PostChange;
Declare Function
nge;
Declare Function
tChange;
Declare Function
ange;
MMC_NUMERACAO_ID PeopleCode MMC_NUMERACAO.MMC_NUMERACAO_ID Save

ATUALIZA_BU_ITEMS_INV PeopleCode MMC_IN_LIB.FUNCLIB SavePostCha
ATUALIZA_PHYSICAL_INV_020 PeopleCode MMC_IN_LIB.FUNCLIB SavePos
max_seqnbr_transaction PeopleCode MMC_IN_LIB.FUNCLIB SavePostCh
Function CANCELA_RECEBIMENTO_TERCEIROS(&P_BUSINESS_UNIT, &P_RECEIVER_ID)

&SQL
&SQL
&SQL
&SQL
"'";
&SQL
'";
=
=
=
=
"";
"
UPDATE SYSADM.PS_RECV_HDR ";
&SQL | "
SET RECV_STATUS
&SQL | "
WHERE BUSINESS_UNIT
= &SQL | "
AND RECEIVER_ID
=
=
'X'";
'" | &P_BUSINESS_UNIT |
'" | &P_RECEIVER_ID | "
SQLExec(&SQL);
&SQL = "";
&SQL = &SQL | " UPDATE SYSADM.PS_RECV_LN_SHIP ";
&SQL = &SQL | "
SET RECV_SHIP_STATUS
= 'X' ";
&SQL = &SQL | "
, PROCESS_COMPLETE
= 'N' ";
= '" | &P_BUSINESS_UNIT |
"' ";
&SQL = &SQL | "
AND RECEIVER_ID
= '" | &P_RECEIVER_ID | "
' ";
SQLExec(&SQL);
&SQL = "";
&SQL = &SQL | " UPDATE SYSADM.PS_RECV_LN_DISTRIB ";
&SQL = &SQL | "
SET RECV_DS_STATUS
= 'X' ";
= '" | &P_BUSINESS_UNIT
| "' ";
&SQL = &SQL | "
AND RECEIVER_ID
= '" | &P_RECEIVER_ID |
"'";
SQLExec(&SQL);
&SQL = "";
&SQL = &SQL | " UPDATE SYSADM.PS_RECV_LN_ASSET ";
&SQL = &SQL | "
SET RECV_AM_STATUS
=
=
| "'";
&SQL = &SQL | "
AND RECEIVER_ID
=
"' ";
SQLExec(&SQL);
'X' ";
'" | &P_BUSINESS_UNIT
'" | &P_RECEIVER_ID |
End-Function;
Function GRAVA_MMC_TE_S_NF_HDR(&PNFH_BUSINESS_UNIT, &PNFH_NF_BRL_ID, &PNFH_NF_BR
L, &PNFH_NF_BRL_SERIES, &PNFH_VENDOR_ID, &PNFH_ADDRESS_SEQ_NUM, &PNFH_IRTAX_BRL_
AMT, &PNFH_MMC_IR_SALDO)
&REC_MMC_TE_S_NF_HDR = CreateRecord(Record.MMC_TE_S_NF_HDR);
&REC_MMC_TE_S_NF_HDR.BUSINESS_UNIT.VALUE = &PNFH_BUSINESS_UNIT;
&REC_MMC_TE_S_NF_HDR.NF_BRL_ID.VALUE = &PNFH_NF_BRL_ID;
&REC_MMC_TE_S_NF_HDR.NF_BRL.VALUE = &PNFH_NF_BRL;
&REC_MMC_TE_S_NF_HDR.NF_BRL_SERIES.VALUE = &PNFH_NF_BRL_SERIES;
&REC_MMC_TE_S_NF_HDR.VENDOR_ID.VALUE = &PNFH_VENDOR_ID;
&REC_MMC_TE_S_NF_HDR.ADDRESS_SEQ_NUM.VALUE = &PNFH_ADDRESS_SEQ_NUM;
&REC_MMC_TE_S_NF_HDR.IRTAX_BRL_AMT.VALUE = &PNFH_IRTAX_BRL_AMT;
&REC_MMC_TE_S_NF_HDR.MMC_IR_SALDO.VALUE = &PNFH_MMC_IR_SALDO;
&REC_MMC_TE_S_NF_HDR.Insert();
End-Function;
Function GRAVA_MMC_TE_S_NF_LN(&PNFL_BUSINESS_UNIT, &PNFL_NF_BRL_ID, &PNFL_NF_BRL
_LINE_NUM, &PNFL_INV_ITEM_ID, &PNFL_INV_LOT_ID, &PNFL_SERIAL_ID, &PNFL_QTY, &PNF
L_QTY_AVAILABLE, &PNFL_ICMSTAX_BRL_AMT, &PNFL_MMC_ICMS_SALDO, &PNFL_IPITAX_BRL_A
MT, &PNFL_MMC_IPI_SALDO, &PNFL_PISTAX_BRL_AMT, &PNFL_MMC_PIS_SALDO, &PNFL_COFINS
TAX_BRL_AMT, &PNFL_MMC_COFINS_SALDO, &PNFL_ISSTAX_BRL_AMT, &PNFL_MMC_ISS_SALDO)
&REC_MMC_TE_S_NF_LN = CreateRecord(Record.MMC_TE_S_NF_LN);
&REC_MMC_TE_S_NF_LN.BUSINESS_UNIT.VALUE = &PNFL_BUSINESS_UNIT;
&REC_MMC_TE_S_NF_LN.NF_BRL_ID.VALUE = &PNFL_NF_BRL_ID;
&REC_MMC_TE_S_NF_LN.NF_BRL_LINE_NUM.VALUE = &PNFL_NF_BRL_LINE_NUM;
&REC_MMC_TE_S_NF_LN.INV_ITEM_ID.VALUE = &PNFL_INV_ITEM_ID;
&REC_MMC_TE_S_NF_LN.QTY.VALUE = &PNFL_QTY;
&REC_MMC_TE_S_NF_LN.QTY_AVAILABLE.VALUE = &PNFL_QTY_AVAILABLE;
&REC_MMC_TE_S_NF_LN.ICMSTAX_BRL_AMT.VALUE = &PNFL_ICMSTAX_BRL_AMT;
&REC_MMC_TE_S_NF_LN.MMC_ICMS_SALDO.VALUE = &PNFL_MMC_ICMS_SALDO;
&REC_MMC_TE_S_NF_LN.IPITAX_BRL_AMT.VALUE = &PNFL_IPITAX_BRL_AMT;
&REC_MMC_TE_S_NF_LN.MMC_IPI_SALDO.VALUE = &PNFL_MMC_IPI_SALDO;
&REC_MMC_TE_S_NF_LN.PISTAX_BRL_AMT.VALUE = &PNFL_PISTAX_BRL_AMT;
&REC_MMC_TE_S_NF_LN.MMC_PIS_SALDO.VALUE = &PNFL_MMC_PIS_SALDO;
&REC_MMC_TE_S_NF_LN.COFINSTAX_BRL_AMT.VALUE = &PNFL_COFINSTAX_BRL_AMT;
&REC_MMC_TE_S_NF_LN.MMC_COFINS_SALDO.VALUE = &PNFL_MMC_COFINS_SALDO;
&REC_MMC_TE_S_NF_LN.ISSTAX_BRL_AMT.VALUE = &PNFL_ISSTAX_BRL_AMT;
&REC_MMC_TE_S_NF_LN.MMC_ISS_SALDO.VALUE = &PNFL_MMC_ISS_SALDO;
&REC_MMC_TE_S_NF_LN.Insert();
End-Function;
Function GRAVA_SALDO_NF_TERCEIRO(&N_BUSINESS_UNIT, &N_NF_BRL_ID, &N_NF_BRL, &N_N
F_BRL_SERIES, &N_VENDOR_ID, &N_ADDRESS_SEQ_NUM, &N_IRTAX_BRL_AMT, &N_MMC_IR_SALD
O, &N_NF_BRL_LINE_NUM, &N_INV_ITEM_ID, &N_INV_LOT_ID, &N_SERIAL_ID, &N_QTY, &N_Q
TY_AVAILABLE, &N_ICMSTAX_BRL_AMT, &N_MMC_ICMS_SALDO, &N_IPITAX_BRL_AMT, &N_MMC_I
PI_SALDO, &N_PISTAX_BRL_AMT, &N_MMC_PIS_SALDO, &N_COFINSTAX_BRL_AMT, &N_MMC_COFI
NS_SALDO, &N_ISSTAX_BRL_AMT, &N_MMC_ISS_SALDO)
If None(&N_QTY) Or
None(&N_QTY_AVAILABLE) Or
&N_QTY <= 0 Or
&N_QTY_AVAILABLE <= 0 Then
Error ("Erro funo GRAVA_SALDO_NF_TERCEIRO QTD em branco");
End-If;
SQLExec("select 'Y' from sysadm.ps_MMC_TE_S_NF_HDR where business_unit=:1 and
nf_brl_id=:2", &N_BUSINESS_UNIT, &N_NF_BRL_ID, &EXISTE);
If &EXISTE <> "Y" Then
GRAVA_MMC_TE_S_NF_HDR(&N_BUSINESS_UNIT, &N_NF_BRL_ID, &N_NF_BRL, &N_NF_BRL
_SERIES, &N_VENDOR_ID, &N_ADDRESS_SEQ_NUM, &N_IRTAX_BRL_AMT, &N_MMC_IR_SALDO);
End-If;
GRAVA_MMC_TE_S_NF_LN(&N_BUSINESS_UNIT, &N_NF_BRL_ID, &N_NF_BRL_LINE_NUM, &N_I
NV_ITEM_ID, &N_INV_LOT_ID, &N_SERIAL_ID, &N_QTY, &N_QTY_AVAILABLE, &N_ICMSTAX_BR
L_AMT, &N_MMC_ICMS_SALDO, &N_IPITAX_BRL_AMT, &N_MMC_IPI_SALDO, &N_PISTAX_BRL_AMT
, &N_MMC_PIS_SALDO, &N_COFINSTAX_BRL_AMT, &N_MMC_COFINS_SALDO, &N_ISSTAX_BRL_AMT
, &N_MMC_ISS_SALDO);
End-Function;
Function GRAVA_TRANSACAO_TERCEIROS(&T_SETID, &T_MMC_TE_SOL_ID, &T_LINE_NBR, &T_B
USINESS_UNIT_BI, &T_NF_BRL_ID, &T_NF_BRL_LINE_NUM, &T_MMC_TE_OPERACAO, &T_BUSINE
SS_UNIT, &T_INV_ITEM_ID, &T_DT_TIMESTAMP, &T_SEQ_NBR, &T_TRANSACTION_GROUP, &T_B
USINESS_UNIT_TO, &T_DT_TIMESTAMP_TO, &T_SEQ_NBR_TO, &T_MMC_TRAN_GROUP, &T_MMC_UN
_ORIGEM, &T_NF_ID_ORIGEM, &T_NF_LINE_ORIGEM)
&REC_MMC_TE_TRANSAC = CreateRecord(Record.MMC_TE_TRANSAC);
&REC_MMC_TE_TRANSAC.SETID.VALUE = &T_SETID;
&REC_MMC_TE_TRANSAC.MMC_TE_SOL_ID.VALUE = &T_MMC_TE_SOL_ID;
&REC_MMC_TE_TRANSAC.LINE_NBR.VALUE = &T_LINE_NBR;
&REC_MMC_TE_TRANSAC.MMC_TE_OPERACAO.VALUE = &T_MMC_TE_OPERACAO;
&REC_MMC_TE_TRANSAC.BUSINESS_UNIT_BI.VALUE = &T_BUSINESS_UNIT_BI;
&REC_MMC_TE_TRANSAC.NF_BRL_ID.VALUE = &T_NF_BRL_ID;
&REC_MMC_TE_TRANSAC.NF_BRL_LINE_NUM.VALUE = &T_NF_BRL_LINE_NUM;
&REC_MMC_TE_TRANSAC.BUSINESS_UNIT.VALUE = &T_BUSINESS_UNIT;
&REC_MMC_TE_TRANSAC.INV_ITEM_ID.VALUE = &T_INV_ITEM_ID;
&REC_MMC_TE_TRANSAC.DT_TIMESTAMP.VALUE = &T_DT_TIMESTAMP;
&REC_MMC_TE_TRANSAC.SEQ_NBR.VALUE = &T_SEQ_NBR;
&REC_MMC_TE_TRANSAC.TRANSACTION_GROUP.VALUE = &T_TRANSACTION_GROUP;
&REC_MMC_TE_TRANSAC.BUSINESS_UNIT_TO.VALUE = &T_BUSINESS_UNIT_TO;
&REC_MMC_TE_TRANSAC.DT_TIMESTAMP_TO.VALUE = &T_DT_TIMESTAMP_TO;
&REC_MMC_TE_TRANSAC.SEQ_NBR_TO.VALUE = &T_SEQ_NBR_TO;
&REC_MMC_TE_TRANSAC.MMC_TRAN_GROUP.VALUE = &T_MMC_TRAN_GROUP;
&REC_MMC_TE_TRANSAC.MMC_UN_ORIGEM.VALUE = &T_MMC_UN_ORIGEM;
&REC_MMC_TE_TRANSAC.MMC_NF_ID_ORIGEM.VALUE = &T_NF_ID_ORIGEM;
&REC_MMC_TE_TRANSAC.MMC_NF_LINE_ORIGEM.VALUE = &T_NF_LINE_ORIGEM;
&REC_MMC_TE_TRANSAC.Insert();
End-Function;
Function AJUSTA_SALDO_NF_TERCEIRO(&N_BUSINESS_UNIT, &N_NF_BRL_ID, &N_NF_BRL_LINE
_NUM, &N_QTY_AVAILABLE, &N_MMC_ICMS_SALDO, &N_MMC_IPI_SALDO, &N_MMC_PIS_SALDO, &
N_MMC_COFINS_SALDO, &N_MMC_ISS_SALDO)
SQLExec("select qty, icmstax_brl_amt,ipitax_brl_amt, pistax_brl_amt, cofinsta

x_brl_amt, isstax_brl_amt from sysadm.ps_mmc_te_s_nf_vw where business_unit=:1 a
nd nf_brl_id=:2 and nf_brl_line_num=:3", &N_BUSINESS_UNIT, &N_NF_BRL_ID, &N_NF_B
RL_LINE_NUM, &V_QTY, &V_ICMSTAX_BRL_AMT, &V_IPITAX_BRL_AMT, &V_PISTAX_BRL_AMT, &
V_COFINSTAX_BRL_AMT, &V_ISSTAX_BRL_AMT);
If &N_QTY_AVAILABLE > &V_QTY Then
Error ("No existe saldo suficiente UN: " | &N_BUSINESS_UNIT | " NF: " | &N_
NF_BRL_ID | " Linha: " | &N_NF_BRL_LINE_NUM | " QTD " | &V_QTY);
End-If;
/* If &N_MMC_ICMS_SALDO > &V_ICMSTAX_BRL_AMT Then
Error ("No existe saldo ICMS suficiente.");
End-If;
If &N_MMC_IPI_SALDO > &V_IPITAX_BRL_AMT Then
Error ("No existe saldo IPI suficiente.");
End-If;
If &N_MMC_PIS_SALDO > &V_PISTAX_BRL_AMT Then
Error ("No existe saldo PIS suficiente.");
End-If;
If &N_MMC_COFINS_SALDO > &V_COFINSTAX_BRL_AMT Then
Error ("No existe saldo COFINS suficiente.");
End-If;
If &N_MMC_ISS_SALDO > &V_ISSTAX_BRL_AMT Then
Error ("No existe saldo ISS suficiente.");
End-If; */
SQLExec("update sysadm.ps_mmc_te_s_nf_ln set qty_available = qty_available :1, mmc_icms_saldo = mmc_icms_saldo - :2, mmc_ipi_saldo = mmc_ipi_saldo - :3 ,
mmc_pis_saldo = mmc_pis_saldo - :4 , mmc_cofins_saldo = mmc_cofins_saldo - :5, m
mc_iss_saldo= mmc_iss_saldo - :6 where business_unit=:7 and nf_brl_id = :8 and n
f_brl_line_num = :9 ", &N_QTY_AVAILABLE, &N_MMC_ICMS_SALDO, &N_MMC_IPI_SALDO, &N
_MMC_PIS_SALDO, &N_MMC_COFINS_SALDO, &N_MMC_ISS_SALDO, &N_BUSINESS_UNIT, &N_NF_B
RL_ID, &N_NF_BRL_LINE_NUM);
End-Function;
Function GRAVA_MMC_TE_OP(&IND_BUSINESS_UNIT, &IND_NF_BRL_ID, &IND_NF_BRL_LINE_NU

M, &IND_BUSINESS_UNIT_PO, &IND_PO_ID, &IND_LINE_NBR, &IND_SCHED_NBR, &IND_BUSINE
SS_UNIT_IN, &IND_NF_BRL_ID_2_BBL, &IND_BUSINESS_UNIT_PF, &IND_PRODUCTION_ID, &IN
D_INV_ITEM_ID, &IND_MMC_TE_QTD_PAI, &IND_MMC_STAT_PROC2)
&REC_MMC_TE_OP = CreateRecord(Record.MMC_TE_OP);
&REC_MMC_TE_OP.BUSINESS_UNIT.VALUE = &IND_BUSINESS_UNIT;
&REC_MMC_TE_OP.NF_BRL_ID.VALUE = &IND_NF_BRL_ID;
&REC_MMC_TE_OP.NF_BRL_LINE_NUM.VALUE = &IND_NF_BRL_LINE_NUM;
&REC_MMC_TE_OP.BUSINESS_UNIT_PO.VALUE = &IND_BUSINESS_UNIT_PO;
&REC_MMC_TE_OP.PO_ID.VALUE = &IND_PO_ID;
&REC_MMC_TE_OP.LINE_NBR.VALUE = &IND_LINE_NBR;
&REC_MMC_TE_OP.SCHED_NBR.VALUE = &IND_SCHED_NBR;
&REC_MMC_TE_OP.BUSINESS_UNIT_IN.VALUE = &IND_BUSINESS_UNIT_IN;
&REC_MMC_TE_OP.NF_BRL_ID_2_BBL.VALUE = &IND_NF_BRL_ID_2_BBL;
&REC_MMC_TE_OP.BUSINESS_UNIT_PF.VALUE = &IND_BUSINESS_UNIT_PF;
&REC_MMC_TE_OP.PRODUCTION_ID.VALUE = &IND_PRODUCTION_ID;
&REC_MMC_TE_OP.INV_ITEM_ID.VALUE = &IND_INV_ITEM_ID;
&REC_MMC_TE_OP.MMC_TE_QTD_PAI.VALUE = &IND_MMC_TE_QTD_PAI;
&REC_MMC_TE_OP.MMC_STAT_PROC2.VALUE = &IND_MMC_STAT_PROC2;
&REC_MMC_TE_OP.Insert();
End-Function;
Function CRIA_NF_SERVICO_UNIFICADO(&PS_BUSINESS_UNIT, &PS_NF_BRL_ID, &PS_NF_ID_T
O)
SQLExec("select business_unit_recv, receiver_id from sysadm.ps_nf_hdr_brl whe
re business_unit=:1 and nf_brl_id =:2", &PS_BUSINESS_UNIT, &PS_NF_BRL_ID, &BUSIN
ESS_UNIT_RECV_FROM, &RECEIVER_ID_FROM);
&NFH1 = "insert into sysadm.ps_nf_hdr_brl (business_unit, nf_brl_id, vendor_i
d, nf_brl, nf_brl_series, nf_brl_type, nf_brl_date, nf_brl_status, nf_status_bbl
, nf_brl_ttl_lines, nf_brl_fatura, max_line, cfo_brl_cd, purch_prop_brl, remit_v
endor, remit_addr_seq_num, remit_setid, remit_loc, ship_from_state, ship_brl_to_
state, origin_method, vendor_setid, vndr_loc, accounting_dt, process_instance, b
usiness_unit_gl, dst_cntrl_id, gross_amt, gross_amt_bse, txn_currency_cd, rt_typ
e, rate_div, ";
&NFH2 = " rate_mult, cur_rt_source, base_currency, dscnt_amt, dscnt_amt_bse,
freight_amt, freight_amt_bse, insurance_brl_amt, insurance_brl_bse, otherexp_brl
_amt, otherexp_brl_bse, pymnt_terms_cd, entered_dt, last_update_dt, merchandise_
amt, merch_amt_bse, isstax_brl_amt, isstax_brl_bse, isstax_brl_cd, isstax_brl_bs
s, inss_brl_retention, inss_brl_ret_bse, irtax_brl_amt, irtax_brl_bse, irtax_brl
_bss, irtax_brl_cd, ipitax_brl_amt, ipitax_brl_bse, ipitax_brl_rcvry, icmstax_br
l_amt, ";
&NFH3 = " icmstax_brl_bse, icmstax_brl_bss, icmstax_brl_rcvry, icmstax_brl_re
tent, icmstax_brl_due, icmssub_brl_amt, icmssub_brl_bse, icmssub_brl_bss, tax_br
l_calc_flg, transport_cd, transport_mode, name1, address1, address2, city_cd_bbl
, city, state, zip, country, net_weight_brl, gross_weight_brl, uom_weight, qty_v
ol_brl, num_vol_brl, trade_vol_brl, type_vol_brl, cgc_brl, ie_brl, freight_pay_b
y_brl, licence_plate_brl, voucher_id, receiver_id, business_unit_recv, oprid_las
t_updt, mtch_status_pbl, inout_flg_pbl, prorate_meth_bbl, frght_prorate_pbl, oth
er_prorate_pbl, icms_compl_amt_pbl, descr100, ";
&NFH4 = " in_process_flg, gross_amt_pbl_div, icmstax_pbl_div, ipitax_pbl_div,
busprocname, appr_rule_set, appr_instance, appr_check_flg, appr_status, dfi_pbl
_apprvl_flg, descr, descr60, lt_grp_id_bbl, ship_to_cust_id, address_seq_ship, e
f_loc_brl, location, destin_bu, bill_to_cust_id, address_seq_num, txn_nat_bbl, i
n_out_cd_bbl, pnd_item_type_bbl, rma_flg_bbl, tie_nf_flg_bbl, acct_flg_bbl, busi
ness_unit_in, rmneio_id_bbl, carrier_id, trnsport_resp_bbl, frght_pmt_resp_bbl,
vehicle_id, ";
&NFH5 = " vehcl_id_state_bbl, ratio_uom_bbl, qty_vol_bbl, num_vol_bbl, dst_id
_ar, cofins_amt_bse_bbl, cofins_bss_amt_bbl, pis_amt_bse_bbl, pis_bss_amt_bbl, s
erv_amt_bbl_bse, rma_id, interunit_flg, cost_adj_sts_pbl, flag_fm_pbl, frt_incr_
bse_bbl, insr_incr_bse_bbl, otex_incr_bse_bbl, collect_cod_brl, dfi_entry_sts_pb
l, grp_id_pbl, cofinst_bseamt_bbl, cofinst_bssamt_bbl, pisst_bse_amt_bbl, ir_bss
_amt_bbl, ir_bse_amt_bbl, inss_bss_amt_bbl, inss_bse_amt_bbl, shipto_id, nf_id_r
el_pbl, voucher_flow_pbl, account_flow_pbl, flow_id_bbl, flow_bus_unit_in, stora

ge_area, stor_level_1, stor_level_2, stor_level_3, ";
&NFH6 = " stor_level_4, flow_ship_id_bbl, flow_location_bbl, icms_discount_bb
l, nf_am_flg_brl, nf_in_flg_bbl, doc_class_bbl, pisst_bss_amt_bbl, ectransid, ec
queueinstance, ectransinoutsw, pay_trm_bse_dt_opt, serie_spin_bbl, irrf_bbl_brl,
inssr_bbl_brl, merch_orig_amt_pbl, cofins_brl_retent, pis_brl_retent, csll_brl_
retent, pistax_brl_amt, cofinstax_brl_amt) select :1, :2, vendor_id, nf_brl, CA
SE WHEN LENGTH(nf_brl_series) < 3 THEN 'S'||nf_brl_series WHEN LENGTH(nf_brl_ser
ies) = 3 THEN 'S'||SUBSTR(nf_brl_series,1,2) END AS SERIE /*nf_brl_series */
, nf_brl_type, nf_brl_date, 'O' /* nf_brl_status */ , nf_status_bbl, nf_brl_ttl
_lines, nf_brl_fatura, max_line, cfo_brl_cd, purch_prop_brl, remit_vendor, remit
_addr_seq_num, remit_setid, remit_loc, ";
&NFH7 = " ship_from_state, ship_brl_to_state, origin_method, vendor_setid, vn
dr_loc, accounting_dt, process_instance, business_unit_gl, dst_cntrl_id, 0 /* gr
oss_amt */ , 0 /* gross_amt_bse*/ , txn_currency_cd, rt_type, 0 /* rate_div */ ,
0 /* rate_mult */ , cur_rt_source, base_currency, 0 /* dscnt_amt */ , 0 /* dscn
t_amt_bse */ , 0 /* freight_amt */, 0 /* freight_amt_bse */ , 0 /* insurance_brl
_amt */ , 0 /* insurance_brl_bse */ , 0 /* otherexp_brl_amt */ , 0 /* otherexp_b
rl_bse*/ , pymnt_terms_cd, entered_dt, last_update_dt, 0 /* merchandise_amt */ ,
0 /* merch_amt_bse*/ , 0 /* isstax_brl_amt */ , 0 /* isstax_brl_bse*/ , isstax_
brl_cd, 0 /* isstax_brl_bss */ , 0 /* inss_brl_retention*/ , 0 /* inss_brl_ret_b
se*/ , 0 /* irtax_brl_amt*/ , 0 /* irtax_brl_bse*/ , 0 /* irtax_brl_bss */ , irt
ax_brl_cd, ";
&NFH8 = " 0 /* ipitax_brl_amt*/ , 0 /* ipitax_brl_bse */ , 0 /* ipitax_brl_rc
vry*/ , 0 /* icmstax_brl_amt */ , 0 /* icmstax_brl_bse */ , 0 /* icmstax_brl_bss
*/ , 0 /* icmstax_brl_rcvry*/ , 0 /* icmstax_brl_retent */ , 0 /* icmstax_brl_du
e */ , 0 /* icmssub_brl_amt*/ , 0 /* icmssub_brl_bse */ , 0 /* icmssub_brl_bss*/
, tax_brl_calc_flg, transport_cd, transport_mode, name1, address1, address2, ci
ty_cd_bbl, city, state, zip, country, 0 /* net_weight_brl*/ , 0 /* gross_weight_
brl*/ , uom_weight, 0 /* qty_vol_brl*/ , num_vol_brl, trade_vol_brl, type_vol_br
l, cgc_brl, ie_brl, freight_pay_by_brl, licence_plate_brl, voucher_id, receiver_
id, business_unit_recv, oprid_last_updt, mtch_status_pbl, inout_flg_pbl, prorate
_meth_bbl, frght_prorate_pbl, ";
&NFH9 = " other_prorate_pbl, 0 /* icms_compl_amt_pbl */, descr100, in_process
_flg, 0 /* gross_amt_pbl_div*/ , 0 /* icmstax_pbl_div */ , 0 /* ipitax_pbl_div *
/, busprocname, appr_rule_set, appr_instance, appr_check_flg, appr_status, dfi_p
bl_apprvl_flg, descr, descr60, lt_grp_id_bbl, ship_to_cust_id, address_seq_ship,
ef_loc_brl, location, destin_bu, bill_to_cust_id, address_seq_num, txn_nat_bbl,
in_out_cd_bbl, pnd_item_type_bbl, rma_flg_bbl, tie_nf_flg_bbl, acct_flg_bbl, bu
siness_unit_in, rmneio_id_bbl, carrier_id, trnsport_resp_bbl, frght_pmt_resp_bbl
, vehicle_id, vehcl_id_state_bbl, ratio_uom_bbl, qty_vol_bbl, num_vol_bbl, dst_i
d_ar, 0 /* cofins_amt_bse_bbl*/ , ";
&NFH10 = " 0 /* cofins_bss_amt_bbl*/ , 0 /* pis_amt_bse_bbl*/ , 0 /* pis_bss_
amt_bbl*/ , 0 /* serv_amt_bbl_bse*/ , rma_id, interunit_flg, cost_adj_sts_pbl, f
lag_fm_pbl, 0 /* frt_incr_bse_bbl*/ , 0 /* insr_incr_bse_bbl */ , 0 /* otex_incr
_bse_bbl */, collect_cod_brl, dfi_entry_sts_pbl, grp_id_pbl, 0 /* cofinst_bseamt
_bbl*/ , 0 /* cofinst_bssamt_bbl*/ , 0 /* pisst_bse_amt_bbl*/ , 0 /* ir_bss_amt_
bbl*/ , 0 /* ir_bse_amt_bbl */ , 0 /* inss_bss_amt_bbl*/ , 0 /* inss_bse_amt_bbl
*/ , shipto_id, nf_id_rel_pbl, 'V'/* voucher_flow_pbl */ , account_flow_pbl, flo
w_id_bbl, flow_bus_unit_in, storage_area, stor_level_1, stor_level_2, stor_level
_3, stor_level_4, flow_ship_id_bbl, flow_location_bbl, 0 /* icms_discount_bbl*/
, nf_am_flg_brl, ";
&NFH11 = " nf_in_flg_bbl, doc_class_bbl, 0 /* pisst_bss_amt_bbl*/ , ectransid
, ecqueueinstance, ectransinoutsw, pay_trm_bse_dt_opt, serie_spin_bbl, 0 /* irrf

_bbl_brl*/ , 0 /* inssr_bbl_brl*/ , 0 /* merch_orig_amt_pbl*/ , 0 /* cofins_brl_
retent*/ , 0 /* pis_brl_retent */ , 0 /* csll_brl_retent*/ , 0 /* pistax_brl_amt
*/ , 0 /* cofinstax_brl_amt */ from sysadm.ps_nf_hdr_brl where business_unit=:3
and nf_brl_id=:4 ";
&sqlNFH = &NFH1 | &NFH2 | &NFH3 | &NFH4 | &NFH5 | &NFH6 | &NFH7 | &NFH8 | &NF
H9 | &NFH10 | &NFH11;
&BUSINESS_UNIT_NF_TO = &PS_BUSINESS_UNIT;
&NF_ID_TO = &PS_NF_ID_TO;
If None(&NF_ID_TO) Then
Error ("Numero NF no encontrado. ");
End-If;
SQLExec(&sqlNFH, &BUSINESS_UNIT_NF_TO, &NF_ID_TO, &PS_BUSINESS_UNIT, &PS_NF_B
RL_ID);
End-Function;
Function EXTORNA_TRANSACTION_INV(&ES_BUSINESS_UNIT, &ES_INV_ITEM_ID, &ES_DT_TIME

STAMP, &ES_SEQ_NBR)
SQLExec(" select 'Y' from sysadm.ps_transaction_inv where business_unit = :1
and inv_item_id = :2 and dt_timestamp = %DateTimeIn(:3) and seq_nbr=:4 ", &ES_BU
SINESS_UNIT, &ES_INV_ITEM_ID, &ES_DT_TIMESTAMP, &ES_SEQ_NBR, &EXISTE_TRAN);
If &EXISTE_TRAN <> "Y" Then
Error ("Transao estoque :" | &ES_BUSINESS_UNIT | "," | &ES_INV_ITEM_ID | " no
encontrada.");
End-If;
&SQL1 = " insert into sysadm.ps_transaction_inv (business_unit, inv_item_id,

dt_timestamp, seq_nbr, source_bus_unit, order_no, order_int_line_no, sched_line_
no, demand_line_no, staged_date, inv_lot_id, serial_id, storage_area, stor_level
_1, stor_level_2, stor_level_3, stor_level_4, container_id, receiver_id, recv_ln
_nbr, counting_event_id, transaction_group, transaction_date, qty_base, qty, uni
t_measure_std, unit_of_measure, to_container_id, to_storage_area, to_stor_level_
1, to_stor_level_2, ";
&SQL2 = " to_stor_level_3, to_stor_level_4, to_uom, adjust_type, reason_cd, d
ocument_id, non_cost_flag, non_own_flag, costed_flag, wt_ave_cost, oprid, accoun
t, altacct, operating_unit, deptid, product, project_id, currency_cd, statistics
_code, po_id, distrib_line_num, distrib_seq_num, recv_ship_seq_nbr, price_po, re
q_id, req_line_nbr, req_sched_nbr, req_distrib_nbr, rma_id, rma_line_nbr, rtv_id
, rtv_ln_nbr, rtv_distrib_num, activity_id, resource_type, resource_category, re
source_sub_cat, ";
&SQL3 = " analysis_type, interunit_id, interunit_line, destin_bu, inspection_

id, transfer_cost, purch_lot_id, vendor_id, production_id, ma_prdn_id_flg, prdn_
area_code, production_type, putaway_comment, staged_type, distrib_type, storage_
code, inv_stock_type, receipt_type, business_unit_po, business_unit_pc, transact
ion_source, conversion_rate, eip_ctl_id, eip_trans_src, transaction_code, bct_so
urce, job_instance, process_instance, process_flag, ship_id, consigned_flag, to_
consigned_flg, ";
&SQL4 = " to_non_own_flg, export, replacement_flg, ist_return_flg_iut, ist_tx
n_flg, transfer_cost_dest, sf_kanban_id) select business_unit, inv_item_id, %Dat
eTimeIn(:1) , :2 , source_bus_unit, order_no, order_int_line_no, sched_line_no,
demand_line_no, staged_date, inv_lot_id, serial_id, storage_area, stor_level_1,
stor_level_2, stor_level_3, stor_level_4, container_id, receiver_id, recv_ln_nbr
, counting_event_id, transaction_group, transaction_date, case when qty_base > 0
then ";
&SQL5 = "qty_base * -1 when qty_base <= 0 then qty_base end as qty_base, case
when qty > 0 then qty * -1 when qty <=0 then qty end as qty, unit_measure_std,
unit_of_measure, to_container_id, to_storage_area, to_stor_level_1, to_stor_leve
l_2, to_stor_level_3, to_stor_level_4, to_uom, adjust_type, reason_cd, document_
id, non_cost_flag, non_own_flag, 'N' , wt_ave_cost, oprid, account, altacct, op
erating_unit, deptid, product, project_id, currency_cd, statistics_code, po_id,
";
&SQL6 = " distrib_line_num, distrib_seq_num, recv_ship_seq_nbr, price_po, req
_id, req_line_nbr, req_sched_nbr, req_distrib_nbr, rma_id, rma_line_nbr, rtv_id,
rtv_ln_nbr, rtv_distrib_num, activity_id, resource_type, resource_category, res
ource_sub_cat, analysis_type, interunit_id, interunit_line, destin_bu, inspectio
n_id, transfer_cost, purch_lot_id, vendor_id, production_id, ma_prdn_id_flg, prd
n_area_code, production_type, putaway_comment, staged_type, distrib_type, storag
e_code, inv_stock_type, ";
&SQL7 = " receipt_type, business_unit_po, business_unit_pc, transaction_sourc
e, conversion_rate, eip_ctl_id, eip_trans_src, transaction_code, bct_source, job
_instance, process_instance, 'N' , ship_id, consigned_flag, to_consigned_flg, to
_non_own_flg, export, replacement_flg, ist_return_flg_iut, ist_txn_flg, transfer
_cost_dest, sf_kanban_id from sysadm.ps_transaction_inv where business_unit = :3
and inv_item_id = :4 and dt_timestamp = %DateTimeIn(:5) and seq_nbr=:6 ";
&SQL = &SQL1 | &SQL2 | &SQL3 | &SQL4 | &SQL5 | &SQL6 | &SQL7;
&NEW_DT_TIMESTAMP = %Datetime;
&NEW_SEQ_NBR = max_seqnbr_transaction(&ES_BUSINESS_UNIT, &ES_INV_ITEM_ID, &NE
W_DT_TIMESTAMP);
SQLExec(&SQL, &NEW_DT_TIMESTAMP, &NEW_SEQ_NBR, &ES_BUSINESS_UNIT, &ES_INV_ITE
M_ID, &ES_DT_TIMESTAMP, &ES_SEQ_NBR);
End-Function;
Function CANCELA_NF_TERCEIRO(&PNF_BUSINESS_UNIT, &PNF_NF_BRL_ID, &PNF_MMC_TE_OPE
RACAO)
SQLExec("SELECT BUSINESS_UNIT_RECV, RECEIVER_ID FROM SYSADM.PS_NF_HDR_BRL WHE
RE BUSINESS_UNIT=:1 AND NF_BRL_ID=:2 ", &PNF_BUSINESS_UNIT, &PNF_NF_BRL_ID, &PR_
BUSINESS_UNIT, &PR_RECEIVER_ID);
CANCELA_RECEBIMENTO_TERCEIROS(&PR_BUSINESS_UNIT, &PR_RECEIVER_ID);
SQLExec("select distinct 'Y' from sysadm.ps_mmc_te_op where business_unit_in=
:1 and nf_brl_id_2_bbl=:2 and mmc_stat_proc2='C'", &PNF_BUSINESS_UNIT, &PNF_NF_B
RL_ID, &EXISTE_PRODU);
If &EXISTE_PRODU = "Y" Then
Error ("NF no pode ser Extornada, pois ja existe Ordem de Produo");
End-If;
SQLExec("select distinct 'Y' from ps_mmc_te_transac where business_unit_bi=:

1 and nf_brl_id =:2 and mmc_te_operacao ='100'", &PNF_BUSINESS_UNIT, &PNF_NF_BRL
_ID, &NF_TERCEIRO);
REM VERIFICANDO SE NF TERCEIRO ;
If &NF_TERCEIRO <> "Y" Then
Error ("NF: " | &PNF_NF_BRL_ID | " no pertence a terceiro");
End-If;
REM VERIFICANDO SE O POTER JA TEVE RECEBIMENTO POPRO ;
SQLExec("select distinct 'Y' from ps_mmc_te_transac a where a.mmc_un_origem =
:1 and a.mmc_nf_id_origem =:2 and a.nf_brl_id not in (select b.nf_brl_id from p
s_mmc_te_transac b where b.business_unit_bi = a.business_unit_bi and b.nf_brl_i
d = a.nf_brl_id and b.nf_brl_line_num = a.nf_brl_line_num and b.mmc_te_operacao
in ('200','300'))", &PNF_BUSINESS_UNIT, &PNF_NF_BRL_ID, &NF_TRIANGULACAO);
If &NF_TRIANGULACAO = "Y" Then
Error ("NF: " | &PNF_NF_BRL_ID | " no pode ser excluida ou cancelada por qu
e possui NF de retorno");
End-If;
SQLExec("select 'Y' from sysadm.ps_mmc_te_recv_par where business_unit_recv =
:1 and eff_status = 'A' and mmc_te_tipo_recv='1' and mmc_cntrl_terc='Y'", &PNF_B
USINESS_UNIT, &SALDO_NF);
If &SALDO_NF = "Y" Then
SQLExec("select count(*) from sysadm.ps_mmc_te_s_nf_ln where business_unit
=:1 and nf_brl_id=:2 and qty <> qty_available", &PNF_BUSINESS_UNIT, &PNF_NF_BRL
_ID, &COUNT_SALDO);
If &COUNT_SALDO <> 0 Then
Error ("NF no pode ser cancelada pois ja possui recebimentos de Retorno"
);
Else
SQLExec("update sysadm.ps_mmc_te_s_nf_ln set qty_available = 0 where bu
siness_unit =:1 and nf_brl_id=:2 ", &PNF_BUSINESS_UNIT, &PNF_NF_BRL_ID);
End-If;
End-If;
SQLExec("update sysadm.ps_mmc_te_op set mmc_stat_proc2='X' where business_uni
t_in=:1 and nf_brl_id_2_bbl=:2", &PNF_BUSINESS_UNIT, &PNF_NF_BRL_ID);
&cmdSQL = CreateSQL("select business_unit_bi, nf_brl_id, nf_brl_line_num, mmc
_te_operacao, setid, mmc_te_sol_id, line_nbr, business_unit, inv_item_id, %DateT
imeOut(dt_timestamp) , seq_nbr, transaction_group, business_unit_to, %DateTimeOu
t(dt_timestamp_to), seq_nbr_to, mmc_tran_group, mmc_un_origem, mmc_nf_id_origem,

mmc_nf_line_origem from ps_mmc_te_transac where business_unit_bi =:1 and nf_br
l_id =:2 and mmc_te_operacao ='100' order by nf_brl_line_num asc", &PNF_BUSINESS
_UNIT, &PNF_NF_BRL_ID);
While &cmdSQL.Fetch(&TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_NF_BRL_LINE_NUM,
&TT_MMC_TE_OPERACAO, &TT_SETID, &TT_MMC_TE_SOL_ID, &TT_LINE_NBR, &TT_BUSINESS_U
NIT, &TT_INV_ITEM_ID, &TT_DT_TIMESTAMP, &TT_SEQ_NBR, &TT_TRANSACTION_GROUP, &TT_
BUSINESS_UNIT_TO, &TT_DT_TIMESTAMP_TO, &TT_SEQ_NBR_TO, &TT_MMC_TRAN_GROUP, &TT_M
MC_UN_ORIGEM, &TT_MMC_NF_ID_ORIGEM, &TT_MMC_NF_LINE_ORIGEM)
&SQL_TRAN1 = "SELECT BUSINESS_UNIT, INV_ITEM_ID, %DateTimeOut(DT_TIMESTAMP
), SEQ_NBR, TRANSACTION_GROUP FROM ( SELECT A.BUSINESS_UNIT_BI , A.NF_BRL_ID,
A.NF_BRL_LINE_NUM, A.MMC_TE_OPERACAO, CASE WHEN A.DT_TIMESTAMP = TO_DATE('01011
900','DDMMYYYY') THEN NULL ELSE A.BUSINESS_UNIT END AS BUSINESS_UNIT, CASE WHEN
A.DT_TIMESTAMP = TO_DATE('01011900','DDMMYYYY') THEN NULL ELSE A.DT_TIMESTAMP EN
D AS DT_TIMESTAMP, CASE WHEN A.DT_TIMESTAMP = TO_DATE('01011900','DDMMYYYY') THE
N NULL ELSE A.SEQ_NBR END AS SEQ_NBR, CASE WHEN A.DT_TIMESTAMP = TO_DATE('010119
00','DDMMYYYY') THEN NULL ELSE A.TRANSACTION_GROUP END AS TRANSACTION_GROUP, CAS
E WHEN A.DT_TIMESTAMP = TO_DATE('01011900','DDMMYYYY') THEN NULL ELSE A.INV_ITEM
_ID END AS INV_ITEM_ID FROM PS_MMC_TE_TRANSAC A UNION SELECT B.BUSINESS_UNIT_BI
, B.NF_BRL_ID, B.NF_BRL_LINE_NUM, B.MMC_TE_OPERACAO, CASE WHEN ";
&SQL_TRAN2 = " B.DT_TIMESTAMP_TO = TO_DATE('01011900','DDMMYYYY') THEN NUL
L ELSE B.BUSINESS_UNIT_TO END AS BUSINESS_UNIT_TO, CASE WHEN B.DT_TIMESTAMP_TO =
TO_DATE('01011900','DDMMYYYY') THEN NULL ELSE B.DT_TIMESTAMP_TO END AS DT_TIMES
TAMP_TO,CASE WHEN B.DT_TIMESTAMP_TO = TO_DATE('01011900','DDMMYYYY') THEN NULL E
LSE B.SEQ_NBR_TO END AS SEQ_NBR_TO, CASE WHEN B.DT_TIMESTAMP_TO = TO_DATE('01011
900','DDMMYYYY') THEN NULL ELSE B.MMC_TRAN_GROUP END AS MMC_TRAN_GROUP, B.INV_IT
EM_ID FROM PS_MMC_TE_TRANSAC B ) WHERE BUSINESS_UNIT_BI =:1 AND NF_BRL_ID = :
2 AND NF_BRL_LINE_NUM = :3 AND MMC_TE_OPERACAO = '100' ";
&SQL_TRAN = &SQL_TRAN1 | &SQL_TRAN2;
&cmdSQL2 = CreateSQL(&SQL_TRAN, &TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_N
F_BRL_LINE_NUM);
While &cmdSQL2.Fetch(&TRAN_BUSINESS_UNIT, &TRAN_INV_ITEM_ID, &TRAN_DT_TIME
STAMP, &TRAN_SEQ_NBR, &TRAN_TRANSACTION_GROUP)
If All(&TRAN_BUSINESS_UNIT) And
All(&TRAN_SEQ_NBR) And
All(&TRAN_TRANSACTION_GROUP) Then
SQLExec("select inv_lot_id, serial_id, storage_area, stor_level_1, s
tor_level_2, stor_level_3, stor_level_4, qty, order_no, order_int_line_no, recei
ver_id, recv_ln_nbr, recv_ship_seq_nbr, container_id, unit_measure_std from sysa
dm.ps_transaction_inv where business_unit = :1 and inv_item_id = :2 and dt_times
tamp = %DateTimeIn(:3) and seq_nbr=:4", &TRAN_BUSINESS_UNIT, &TRAN_INV_ITEM_ID,
&TRAN_DT_TIMESTAMP, &TRAN_SEQ_NBR, &T_INV_LOT_ID, &T_SERIAL_ID, &T_STORAGE_AREA,
&T_STOR_LEVEL_1, &T_STOR_LEVEL_2, &T_STOR_LEVEL_3, &T_STOR_LEVEL_4, &T_QTY, &T_
ORDER_NO, &T_ORDER_INT_LINE_NO, &T_RECEIVER_ID, &T_RECV_LN_NBR, &T_RECV_SHIP_SEQ
_NBR, &T_CONTAINER_ID, &T_UNIT_MEASURE_STD);
If &T_QTY <= 0 Then
Error (" Transao Estoque no encontrada.");
End-If;
If &TRAN_TRANSACTION_GROUP = "020" Then
SQLExec("select qty FROM sysadm.ps_physical_inv where business_un

it = :1 and inv_item_id = :2 and inv_lot_id = :3 and serial_id = :4 and storage_
area = :5 and stor_level_1 = :6 and stor_level_2 = :7 and stor_level_3= :8 and s
tor_level_4 = :9", &TRAN_BUSINESS_UNIT, &TRAN_INV_ITEM_ID, &T_INV_LOT_ID, &T_SE
RIAL_ID, &T_STORAGE_AREA, &T_STOR_LEVEL_1, &T_STOR_LEVEL_2, &T_STOR_LEVEL_3, &T_
STOR_LEVEL_4, &V_QTD_DISPONIVEL);
If &V_QTD_DISPONIVEL < &T_QTY Then
Error ("No existe Saldo em Estoque suficiente para Item: " | &T
RAN_INV_ITEM_ID | " Endereo: " | &T_STORAGE_AREA | " - " | &T_STOR_LEVEL_1 | " " | &T_STOR_LEVEL_2 | " - " | &T_STOR_LEVEL_3 | " - " | &T_STOR_LEVEL_4);
End-If;
SQLExec("update sysadm.ps_physical_inv set last_transact_type = '
020', last_issue_date = to_date(sysdate), qty = qty - :1, qty_base = qty_base :2, dt_timestamp = to_date(sysdate) where business_unit = :3 and inv_item_id = :
4 and inv_lot_id = :5 and serial_id = :6 and storage_area = :7 and stor_level_1
= :8 and stor_level_2 = :9 and stor_level_3 = :10 and stor_level_4 = :11", &T_QT
Y, &T_QTY, &TRAN_BUSINESS_UNIT, &TRAN_INV_ITEM_ID, &T_INV_LOT_ID, &T_SERIAL_ID,
&T_STORAGE_AREA, &T_STOR_LEVEL_1, &T_STOR_LEVEL_2, &T_STOR_LEVEL_3, &T_STOR_LEVE
L_4);
SQLExec("select 'Y' from sysadm.ps_bu_items_inv where business_un
it=:1 and inv_item_id =:2", &TRAN_BUSINESS_UNIT, &TRAN_INV_ITEM_ID, &EXISTE_BU);
/*********************************** mmcb.hd93658.so ************
***********************/
/*If &EXISTE_BU <> "Y" Then
Error ("No existe registro na tabela BU_ITEMS_INV para UN: " |
&TRAN_BUSINESS_UNIT | " ITEM: " | &TRAN_INV_ITEM_ID);
Else*/
/*********************************** mmcb.hd93658.eo ************
***********************/
If &EXISTE_BU = "Y" Then /*mmcb.hd93658.ln*/
SQLExec("update sysadm.ps_bu_items_inv set qty_available = qty
_available - :1, qty_owned = qty_owned - :2, qty_onhand = qty_onhand - :3 where
business_unit=:4 and inv_item_id =:5", &T_QTY, &T_QTY, &T_QTY, &TRAN_BUSINESS_UN
IT, &TRAN_INV_ITEM_ID);
End-If;
&ES_BUSINESS_UNIT = &TRAN_BUSINESS_UNIT;
&ES_INV_ITEM_ID = &TRAN_INV_ITEM_ID;
&ES_DT_TIMESTAMP = &TRAN_DT_TIMESTAMP;
&ES_SEQ_NBR = &TRAN_SEQ_NBR;
EXTORNA_TRANSACTION_INV(&ES_BUSINESS_UNIT, &ES_INV_ITEM_ID, &ES_D
T_TIMESTAMP, &ES_SEQ_NBR);
SQLExec("select %DateTimeOut(dt_timestamp), seq_nbr from sysadm.
ps_transaction_inv where business_unit = :1 and inv_item_id= :2 and dt_timestamp
>= SYSDATE -1 and dt_timestamp <= SYSDATE +1 and receiver_id=:3 and recv_ln_nbr
=:4 and recv_ship_seq_nbr=:5 and transaction_group='020' and qty < 0 ", &TRAN_B
USINESS_UNIT, &TRAN_INV_ITEM_ID, &T_RECEIVER_ID, &T_RECV_LN_NBR, &T_RECV_SHIP_SE

Q_NBR, &T_020_DT_TIMESTAMP, &T_020_SEQ_NBR);
If None(&T_020_DT_TIMESTAMP) Or
None(&T_020_SEQ_NBR) Then
Error ("Transao de Estoque estorno '020' no encontrada");
End-If;
&T_SETID = " ";
&T_MMC_TE_SOL_ID = 0;
&T_LINE_NBR = 0;
&T_BUSINESS_UNIT_BI = &TT_BUSINESS_UNIT_BI;
&T_NF_BRL_ID = &TT_NF_BRL_ID;
&T_NF_BRL_LINE_NUM = &TT_NF_BRL_LINE_NUM;
&T_MMC_TE_OPERACAO = &PNF_MMC_TE_OPERACAO;
&T_BUSINESS_UNIT = " ";
&T_INV_ITEM_ID = &TRAN_INV_ITEM_ID;
&T_DT_TIMESTAMP = Date3(1900, 1, 1);
&T_SEQ_NBR = 0;
&T_TRANSACTION_GROUP = " ";
&T_BUSINESS_UNIT_TO = &TRAN_BUSINESS_UNIT;
&T_DT_TIMESTAMP_TO = &T_020_DT_TIMESTAMP;
&T_SEQ_NBR_TO = &T_020_SEQ_NBR;
&T_MMC_TRAN_GROUP = "020";
&T_MMC_UN_ORIGEM = " ";
&T_NF_ID_ORIGEM = " ";
&T_NF_LINE_ORIGEM = 0;
SQLExec("select mmc_tran_group, 'Y' from sysadm.ps_mmc_te_transac
where business_unit_bi=:1 and nf_brl_id=:2 and nf_brl_line_num= :3 and mmc_te_o
peracao=:4 ", &TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_NF_BRL_LINE_NUM, &PNF_MMC
_TE_OPERACAO, &GRUPO, &EXISTE);
If &EXISTE = "Y" And
None(&GRUPO) Then
/****************** MMCB.HD225474 SO **********************
SQLExec("update sysadm.ps_mmc_te_transac set business_unit_to=
:1, dt_timestamp_to = %DateTimeIn(:2), seq_nbr_to=:3, mmc_tran_group=:4 where bu
siness_unit_bi=:5 and nf_brl_id=:6 and nf_brl_line_num= :7 mmc_te_operaca=:8 ",
&TRAN_BUSINESS_UNIT, &T_020_DT_TIMESTAMP, &T_020_SEQ_NBR, &TRAN_TRANSACTION_GROU
P, &TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_NF_BRL_LINE_NUM, &PNF_MMC_TE_OPERACA
O);
****************** MMCB.HD225474 EO ********************
***/
/****************** MMCB.HD225474 SN **********************/
SQLExec("update sysadm.ps_mmc_te_transac set business_unit_to=
:1, dt_timestamp_to = %DateTimeIn(:2), seq_nbr_to=:3, mmc_tran_group=:4 where bu
siness_unit_bi=:5 and nf_brl_id=:6 and nf_brl_line_num= :7 and mmc_te_operacao =
:8 ", &TRAN_BUSINESS_UNIT, &T_020_DT_TIMESTAMP, &T_020_SEQ_NBR, &TRAN_TRANSACTIO
N_GROUP, &TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_NF_BRL_LINE_NUM, &PNF_MMC_TE_O
PERACAO);
/****************** MMCB.HD225474 EN ***********************/
Else
GRAVA_TRANSACAO_TERCEIROS(&T_SETID, &T_MMC_TE_SOL_ID, &T_LINE_

NBR, &T_BUSINESS_UNIT_BI, &T_NF_BRL_ID, &T_NF_BRL_LINE_NUM, &T_MMC_TE_OPERACAO,
&T_BUSINESS_UNIT, &T_INV_ITEM_ID, &T_DT_TIMESTAMP, &T_SEQ_NBR, &T_TRANSACTION_GR
OUP, &T_BUSINESS_UNIT_TO, &T_DT_TIMESTAMP_TO, &T_SEQ_NBR_TO, &T_MMC_TRAN_GROUP,
&T_MMC_UN_ORIGEM, &T_NF_ID_ORIGEM, &T_NF_LINE_ORIGEM);
End-If;
End-If;
If &TRAN_TRANSACTION_GROUP = "030" Then
&PAR_BUSINESS_UNIT = &TRAN_BUSINESS_UNIT;
&PAR_INV_LOT_ID = &T_INV_LOT_ID;
&PAR_INV_ITEM_ID = &TRAN_INV_ITEM_ID;
&PAR_SERIAL_ID = &T_SERIAL_ID;
&PAR_STORAGE_AREA = &T_STORAGE_AREA;
&PAR_STOR_LEVEL_1 = &T_STOR_LEVEL_1;
&PAR_CONTAINER_ID = &T_CONTAINER_ID;
&PAR_UNIT_OF_MEASURE = &T_UNIT_MEASURE_STD;
&PAR_QTY = &T_QTY;
ATUALIZA_PHYSICAL_INV_020(&PAR_BUSINESS_UNIT, &PAR_STAGED_DATE, &
PAR_INV_LOT_ID, &PAR_INV_ITEM_ID, &PAR_SERIAL_ID, &PAR_STORAGE_AREA, &PAR_STOR_L
EVEL_1, &PAR_STOR_LEVEL_2, &PAR_STOR_LEVEL_3, &PAR_STOR_LEVEL_4, &PAR_CONTAINER_
ID, &PAR_UNIT_OF_MEASURE, &PAR_QTY, &PAR_QTY);
SQLExec("select 'Y' from sysadm.ps_bu_items_inv where business_un
it=:1 and inv_item_id =:2", &TRAN_BUSINESS_UNIT, &TRAN_INV_ITEM_ID, &EXISTE_BU);
If &EXISTE_BU <> "Y" Then
Error ("No existe registro na tabela BU_ITEMS_INV para UN: " |
&TRAN_BUSINESS_UNIT | " ITEM: " | &TRAN_INV_ITEM_ID);
Else
SQLExec("update sysadm.ps_bu_items_inv set qty_available = qty
_available + :1, qty_owned = qty_owned + :2, qty_onhand = qty_onhand + :3 where
business_unit=:4 and inv_item_id =:5", &T_QTY, &T_QTY, &T_QTY, &TRAN_BUSINESS_UN
IT, &TRAN_INV_ITEM_ID);
End-If;
&ES_BUSINESS_UNIT = &TRAN_BUSINESS_UNIT;
&ES_INV_ITEM_ID = &TRAN_INV_ITEM_ID;
&ES_DT_TIMESTAMP = &TRAN_DT_TIMESTAMP;
&ES_SEQ_NBR = &TRAN_SEQ_NBR;
EXTORNA_TRANSACTION_INV(&ES_BUSINESS_UNIT, &ES_INV_ITEM_ID, &ES_D
T_TIMESTAMP, &ES_SEQ_NBR);
SQLExec("select %DateTimeOut(dt_timestamp), seq_nbr from sysadm.
ps_transaction_inv where business_unit = :1 and inv_item_id= :2 and dt_timestamp
>= SYSDATE -1 and dt_timestamp <= SYSDATE +1 and order_no=:3 and order_int_line
_no =:4 and transaction_group='030' and qty < 0 ", &TRAN_BUSINESS_UNIT, &TRAN_I
NV_ITEM_ID, &T_ORDER_NO, &T_ORDER_INT_LINE_NO, &T_030_DT_TIMESTAMP, &T_030_SEQ_N
BR);
If None(&T_030_DT_TIMESTAMP) Or
None(&T_030_SEQ_NBR) Then
Error ("No foi encontrado transao para operao '030'");
End-If;
&TR_SETID = " ";
&TR_MMC_TE_SOL_ID = 0;
&TR_LINE_NBR = 0;
&TR_BUSINESS_UNIT_BI = &TT_BUSINESS_UNIT_BI;
&TR_NF_BRL_ID = &TT_NF_BRL_ID;
&TR_NF_BRL_LINE_NUM = &TT_NF_BRL_LINE_NUM;
&TR_MMC_TE_OPERACAO = &PNF_MMC_TE_OPERACAO;
&TR_BUSINESS_UNIT = &TRAN_BUSINESS_UNIT;
&TR_INV_ITEM_ID = &TRAN_INV_ITEM_ID;
&TR_DT_TIMESTAMP = &T_030_DT_TIMESTAMP;
&TR_SEQ_NBR = &T_030_SEQ_NBR;
&TR_TRANSACTION_GROUP = "030";
&TR_BUSINESS_UNIT_TO = " ";
&TR_DT_TIMESTAMP_TO = Date3(1900, 1, 1);
&TR_SEQ_NBR_TO = 0;
&TR_MMC_TRAN_GROUP = " ";
&TR_MMC_UN_ORIGEM = " ";
&TR_NF_ID_ORIGEM = " ";
&TR_NF_LINE_ORIGEM = 0;
SQLExec("select transaction_group, 'Y' from sysadm.ps_mmc_te_tran
sac where business_unit_bi=:1 and nf_brl_id=:2 and nf_brl_line_num= :3 and mmc_t
e_operacao=:4 ", &TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_NF_BRL_LINE_NUM, &PNF_
MMC_TE_OPERACAO, &GRUPO2, &EXISTE2);
If &EXISTE2 = "Y" And
None(&GRUPO2) Then
SQLExec("update sysadm.ps_mmc_te_transac set business_unit=:1,
dt_timestamp = %DateTimeIn(:2), seq_nbr=:3, transaction_group = :4 where busine
ss_unit_bi=:5 and nf_brl_id=:6 and nf_brl_line_num= :7 and mmc_te_operacao=:8 ",
&TRAN_BUSINESS_UNIT, &T_030_DT_TIMESTAMP, &T_030_SEQ_NBR, &TRAN_TRANSACTION_GRO
UP, &TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_NF_BRL_LINE_NUM, &PNF_MMC_TE_OPERAC
AO);
Else
GRAVA_TRANSACAO_TERCEIROS(&TR_SETID, &TR_MMC_TE_SOL_ID, &TR_LI
NE_NBR, &TR_BUSINESS_UNIT_BI, &TR_NF_BRL_ID, &TR_NF_BRL_LINE_NUM, &TR_MMC_TE_OPE
RACAO, &TR_BUSINESS_UNIT, &TR_INV_ITEM_ID, &TR_DT_TIMESTAMP, &TR_SEQ_NBR, &TR_TR
ANSACTION_GROUP, &TR_BUSINESS_UNIT_TO, &TR_DT_TIMESTAMP_TO, &TR_SEQ_NBR_TO, &TR_
MMC_TRAN_GROUP, &TR_MMC_UN_ORIGEM, &TR_NF_ID_ORIGEM, &TR_NF_LINE_ORIGEM);
End-If;
End-If;
End-If;
End-While;
/* #########################################################
##
## INICIO: Verifica se POPRO, se sim volta o saldo da NF.
##
###########################################################
*/
SQLExec("select distinct 'Y' from sysadm.ps_mmc_te_op where business_unit=
:1 and nf_brl_id = :2", &PNF_BUSINESS_UNIT, &PNF_NF_BRL_ID, &NF_SERVICO);
If &SALDO_NF <> "Y" And
&NF_SERVICO <> "Y" Then
If All(&TT_MMC_UN_ORIGEM) And
All(&TT_MMC_NF_ID_ORIGEM) And
All(&TT_MMC_NF_LINE_ORIGEM) Then
SQLExec("select irtax_brl_amt, mmc_ir_saldo, inv_item_id, qty, qty_a
vailable, icmstax_brl_amt, mmc_icms_saldo, ipitax_brl_amt, mmc_ipi_saldo, pistax
_brl_amt, mmc_pis_saldo, cofinstax_brl_amt, mmc_cofins_saldo, isstax_brl_amt, mm
c_iss_saldo from sysadm.ps_mmc_te_s_nf_vw2 where business_unit=:1 and nf_brl_id=
:2 and nf_brl_line_num = :3 ", &TT_MMC_UN_ORIGEM, &TT_MMC_NF_ID_ORIGEM, &TT_MMC_
NF_LINE_ORIGEM, &SS_IRTAX_BRL_AMT, &SS_MMC_IR_SALDO, &SS_INV_ITEM_ID, &SS_QTY, &
SS_QTY_AVAILABLE, &SS_ICMSTAX_BRL_AMT, &SS_MMC_ICMS_SALDO, &SS_IPITAX_BRL_AMT, &
SS_MMC_IPI_SALDO, &SS_PISTAX_BRL_AMT, &SS_MMC_PIS_SALDO, &SS_COFINSTAX_BRL_AMT,
&SS_MMC_COFINS_SALDO, &SS_ISSTAX_BRL_AMT, &SS_MMC_ISS_SALDO);
SQLExec("select a.irtax_brl_amt, b.qty_nf_brl, b.icmstax_brl_amt, b.
ipitax_brl_amt, b.pistax_brl_amt, b.cofinstax_brl_amt, b.isstax_brl_amt from ps_
nf_hdr_brl a, ps_nf_ln_brl b where b.business_unit =:1 and b.nf_brl_id =:2 and
b.nf_brl_line_num =:3 and a.business_unit = b.business_unit and a.nf_brl_id = b.
nf_brl_id", &TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_NF_BRL_LINE_NUM, &S1_IRTAX_
BRL_AMT, &S1_QTY_NF_BRL, &S1_ICMSTAX_BRL_AMT, &S1_IPITAX_BRL_AMT, &S1_PISTAX_BRL
_AMT, &S1_COFINSTAX_BRL_AMT, &S1_ISSTAX_BRL_AMT);
If %Component <> "DELETE_FISCDOC_PBL" Then
If (&S1_IRTAX_BRL_AMT > (&SS_IRTAX_BRL_AMT - &SS_MMC_IR_SALDO)) T
hen
Error ("Saldo IR insuficiente para fazer cancelamento");
End-If;
If (&S1_QTY_NF_BRL > (&SS_QTY - &SS_QTY_AVAILABLE)) Then
Error ("Saldo QTD insuficiente para fazer cancelamento");
End-If;
If (&S1_ICMSTAX_BRL_AMT > (&SS_ICMSTAX_BRL_AMT - &SS_MMC_ICMS_SAL

DO)) Then
Error ("Saldo ICMS insuficiente para fazer cancelamento");
End-If;
If (&S1_IPITAX_BRL_AMT > (&SS_IPITAX_BRL_AMT - &SS_MMC_IPI_SALDO)
) Then
Error ("Saldo IPI insuficiente para fazer cancelamento");
End-If;
If (&S1_PISTAX_BRL_AMT > (&SS_PISTAX_BRL_AMT - &SS_MMC_PIS_SALDO)
) Then
If &TT_NF_BRL_ID = "NT00049894" Then
Error (&S1_PISTAX_BRL_AMT);
End-If;
Error ("Saldo PIS insuficiente para fazer cancelamento");
End-If;
If (&S1_COFINSTAX_BRL_AMT > (&SS_COFINSTAX_BRL_AMT - &SS_MMC_COFI
NS_SALDO)) Then
Error ("Saldo CONFINS insuficiente para fazer cancelamento");
End-If;
If (&S1_ISSTAX_BRL_AMT > (&SS_ISSTAX_BRL_AMT - &SS_MMC_ISS_SALDO)
) Then
Error ("Saldo CONFINS insuficiente para fazer cancelamento");
End-If;
End-If;
SQLExec("update sysadm.ps_mmc_te_s_nf_ln set qty_available = qty_av
ailable + :1, mmc_icms_saldo = mmc_icms_saldo + :2, mmc_ipi_saldo = mmc_ipi_sald
o + :3, mmc_pis_saldo = mmc_pis_saldo + :4, mmc_cofins_saldo = mmc_cofins_saldo
+ :5, mmc_iss_saldo = mmc_iss_saldo + :6 where business_unit=:7 and nf_brl_id=:8
and nf_brl_line_num= :9", &S1_QTY_NF_BRL, &S1_ICMSTAX_BRL_AMT, &S1_IPITAX_BRL_A
MT, &S1_PISTAX_BRL_AMT, &S1_COFINSTAX_BRL_AMT, &S1_ISSTAX_BRL_AMT, &TT_MMC_UN_OR
IGEM, &TT_MMC_NF_ID_ORIGEM, &TT_MMC_NF_LINE_ORIGEM);
Else
Error ("No existe NF de origen para UN: " | &TT_BUSINESS_UNIT_BI | "
NF: " | &TT_NF_BRL_ID | " LINHA: " | &TT_NF_BRL_LINE_NUM);
End-If; /* If All(&TT_MMC_UN_ORIGEM) And All(&TT_MMC_NF_ID_ORIGEM) And
All(&TT_MMC_NF_LINE_ORIGEM) Then */
End-If; /* If &SALDO_NF <> "Y" Then */

/* #########################################################
##
## FIM: Verifica se POPRO, se sim volta o saldo da NF.
##
###########################################################
*/
End-While;
/********************************* mmcb.hd51767.S.N *************************
********/
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
=
=
=
=
=
=
=
"";
"
&SQL
&SQL
&SQL
&SQL
&SQL
DELETE SYSADM.PS_NF_HDR_BRL H ";

" WHERE ";
" EXISTS ";
"
( ";
"
SELECT 1 FROM SYSADM.PS_MMC_TE_NF_TMP TMP ";
"
WHERE TMP.BUSINESS_UNIT_IN = H.BUSINESS_UNIT
|
|
|
|
|
";
&SQL = &SQL |
&SQL = &SQL |
SS_UNIT | "' ";
&SQL = &SQL |
_ID | "' ";
&SQL = &SQL |
&SQL = &SQL |
&SQL = &SQL |
&SQL = &SQL |
&SQL = &SQL |
S_UNIT ";
&SQL = &SQL |
ID ";
&SQL = &SQL |
"
"
AND TMP.NF_BRL_ID_2_BBL
AND TMP.BUSINESS_UNIT
= H.NF_BRL_ID ";
= '" | &PNF_BUSINE
"
AND TMP.NF_BRL_ID
= '" | &PNF_NF_BRL
"
"
"
"
"
)
";
AND NOT EXISTS ";
( ";
SELECT 1 FROM SYSADM.PS_NF_LN_BRL L ";
WHERE L.BUSINESS_UNIT
=
"
"
AND L.NF_BRL_ID
)
H.BUSINES
H.NF_BRL_
";
SQLExec(&SQL);
/********************************* mmcb.hd51767.E.N *************************

********/
End-Function;
/*********************************** mmcb.sds2618.s.n **************************
*********/
Function GRAVA_MMC_TE_TRANSAC(&TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_NF_BRL_LI
NE_NUM, &TT_MMC_TE_OPERACAO, &TT_SETID, &TT_MMC_TE_SOL_ID, &TT_LINE_NBR, &TT_BUS
INESS_UNIT, &TT_INV_ITEM_ID, &TT_DT_TIMESTAMP, &TT_SEQ_NBR, &TT_TRANSACTION_GROU
P, &TT_BUSINESS_UNIT_TO, &TT_DT_TIMESTAMP_TO, &TT_SEQ_NBR_TO, &TT_MMC_TRAN_GROUP
, &TT_MMC_UN_ORIGEM, &TT_MMC_NF_ID_ORIGEM, &TT_MMC_NF_LINE_ORIGEM)
If None(&TT_BUSINESS_UNIT_BI) Or
&TT_BUSINESS_UNIT_BI = "" Or
&TT_BUSINESS_UNIT_BI = " " Then
Error ("Parametro: TT_BUSINESS_UNIT_BI em branco funo: GRAVA_MMC_TE_TRANSAC
.");
End-If;
If None(&TT_NF_BRL_ID) Or
&TT_NF_BRL_ID = "" Or
&TT_NF_BRL_ID = " " Then
Error ("Parametro: &TT_NF_BRL_ID em branco funo: GRAVA_MMC_TE_TRANSAC .");
End-If;
If None(&TT_NF_BRL_LINE_NUM) Or
&TT_NF_BRL_LINE_NUM = 0 Then
Error ("Parametro: &TT_NF_BRL_LINE_NUM em branco funo: GRAVA_MMC_TE_TRANSAC
.");
End-If;
If None(&TT_MMC_TE_OPERACAO) Or
&TT_MMC_TE_OPERACAO = "" Or
&TT_MMC_TE_OPERACAO = " " Then
Error ("Parametro: &TT_MMC_TE_OPERACAO em branco funo: GRAVA_MMC_TE_TRANSAC
.");
End-If;
If None(&TT_INV_ITEM_ID) Or
&TT_INV_ITEM_ID = "" Or
&TT_INV_ITEM_ID = " " Then
Error ("Parametro: &TT_INV_ITEM_ID em branco funo: GRAVA_MMC_TE_TRANSAC .")
;
End-If;
&REC_MMC_TE_TRANSAC.BUSINESS_UNIT_BI.VALUE = &TT_BUSINESS_UNIT_BI;
&REC_MMC_TE_TRANSAC.NF_BRL_ID.VALUE = &TT_NF_BRL_ID;
&REC_MMC_TE_TRANSAC.NF_BRL_LINE_NUM.VALUE = &TT_NF_BRL_LINE_NUM;
&REC_MMC_TE_TRANSAC.MMC_TE_OPERACAO.VALUE = &TT_MMC_TE_OPERACAO;
&REC_MMC_TE_TRANSAC.SETID.VALUE = &TT_SETID;
&REC_MMC_TE_TRANSAC.MMC_TE_SOL_ID.VALUE = &TT_MMC_TE_SOL_ID;
&REC_MMC_TE_TRANSAC.LINE_NBR.VALUE = &TT_LINE_NBR;
&REC_MMC_TE_TRANSAC.BUSINESS_UNIT.VALUE = &TT_BUSINESS_UNIT;
&REC_MMC_TE_TRANSAC.INV_ITEM_ID.VALUE = &TT_INV_ITEM_ID;
&REC_MMC_TE_TRANSAC.DT_TIMESTAMP.VALUE = &TT_DT_TIMESTAMP;
&REC_MMC_TE_TRANSAC.SEQ_NBR.VALUE = &TT_SEQ_NBR;
&REC_MMC_TE_TRANSAC.TRANSACTION_GROUP.VALUE = &TT_TRANSACTION_GROUP;
&REC_MMC_TE_TRANSAC.BUSINESS_UNIT_TO.VALUE = &TT_BUSINESS_UNIT_TO;
&REC_MMC_TE_TRANSAC.DT_TIMESTAMP_TO.VALUE = &TT_DT_TIMESTAMP_TO;
&REC_MMC_TE_TRANSAC.SEQ_NBR_TO.VALUE = &TT_SEQ_NBR_TO;
&REC_MMC_TE_TRANSAC.MMC_TRAN_GROUP.VALUE = &TT_MMC_TRAN_GROUP;
&REC_MMC_TE_TRANSAC.MMC_UN_ORIGEM.VALUE = &TT_MMC_UN_ORIGEM;
&REC_MMC_TE_TRANSAC.MMC_NF_ID_ORIGEM.VALUE = &TT_MMC_NF_ID_ORIGEM;
&REC_MMC_TE_TRANSAC.MMC_NF_LINE_ORIGEM.VALUE = &TT_MMC_NF_LINE_ORIGEM;
End-Function;
/*********************************** mmcb.sds2618.e.n **************************

*********/
[MMC_TE_WRK.MMC_TE_CONFI_FLG.FieldChange]
/*******************************************************************************
****
*
*
*******************************************************************************
****/
If MMC_TE_CONFI_FLG = "Y" Then
If All(MMC_TE_TRIA_WRK.MMC_CHAVE_ACS_NFE) Then
SQLExec("SELECT SUM(QCOM) FROM SYSADM.INFF10_DET WHERE CFG_CNPJFORN = T
O_NUMBER(TRANSLATE(:1, '~./-', '-')) AND CFG_NUMERO_NF = TO_NUMBER(:2) AND CFG_S
ERIE_NF = :3 AND CPROD = :4", MMC_TE_TRIA_WRK.CGC_BRL, NF_HDR_BRL.NF_BRL, NF_HDR
_BRL.NF_BRL_SERIES, MMC_TE_S_NF_VW.INV_ITEM_ID, &qtdNFsaida);
If All(&qtdNFsaida) Then
If MMC_TE_S_NF_VW.QTY_AVAILABLE >= &qtdNFsaida Then
QTY_OPEN = &qtdNFsaida;
Else
WinMessage("A quantidade de itens do XML desta NF " | &qtdNFsaida
| ", logo o saldo no suficiente receber todos os itens desta NF.");
End-If;
End-If;
End-If;
End-If;
End-If;
[MMC_TE_WRK.QTY_OPEN.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Muda Flag das OCs Selecionadas parar 'Y' quando e digitada uma QTD maior que
Zero
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
iros
*
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/

If QTY_OPEN > MMC_TE_S_NF_VW.QTY_AVAILABLE Then
WinMessage("Erro: Quantidade maxima permitida : " | MMC_TE_S_NF_VW.QTY_AVAI
LABLE);
MMC_TE_CONFI_FLG = "N";
QTY_OPEN = 0;
End-If;
End-If;
If QTY_OPEN > MMC_TE_OC_VW.QTY_PO Then
WinMessage("Erro: Quantidade maxima permitida : " | MMC_TE_OC_VW.QTY_PO);
QTY_OPEN = 0;
End-If;
End-If;
If QTY_OPEN > MMC_TE_OP_OC_VW.QTY_PO Then
WinMessage("Erro: Quantidade maxima permitida : " | MMC_TE_OP_OC_VW.QTY_PO)
;
QTY_OPEN = 0;
End-If;
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|| INICIO: ROTINA DE VERIFICAO BOM
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*
/
/********************** mmcb.sds3426.so **********************/
/*
&ITENS_PROBLEMA = "";
SQLExec("select business_unit_in from sysadm.ps_shipto_tbl where business_uni
t_recv=:1", NF_HDR_BRL.BUSINESS_UNIT, &BU_INDUST);
&SQL = CreateSQL("select nf_brl_line_num, inv_item_id, qty_nf_brl from sysadm
.ps_nf_ln_brl where business_unit=:1 and nf_brl_id=:2 order by nf_brl_line_num "
, MMC_TE_OP_OC_WK.BUSINESS_UNIT_IN, MMC_TE_OP_OC_WK.NF_BRL_ID_2_BBL);
While &SQL.Fetch(&V_NF_BRL_LINE_NUM, &V_INV_ITEM_ID, &V_QTY_NF_BRL)
SQLExec("select eb.qty_per from sysadm.ps_en_bom_comps eb where eb.busines
s_unit =:1 and eb.inv_item_id =:2 and sysdate between eb.date_in_effect and eb.d
ate_obsolete and eb.component_id =:3", &BU_INDUST, MMC_TE_OP_OC_WK.MMC_ITEM_PAI
, &V_INV_ITEM_ID, &QTY_BOM);
&QTD_VALIDA1 = &QTY_BOM * MMC_TE_OP_OC_WK.MMC_TE_QTD_PAI;

If ((&QTD_VALIDA1 <> &V_QTY_NF_BRL) Or
None(&QTY_BOM)) Then
&ITENS_PROBLEMA = &ITENS_PROBLEMA | " , " | &V_INV_ITEM_ID0
End-If;
End-While;
SQLExec("select eb.qty_per from sysadm.ps_en_bom_comps eb where eb.business_u
nit =:1 and eb.inv_item_id =:2 and sysdate between eb.date_in_effect and eb.date
_obsolete and eb.component_id =:3", &BU_INDUST, MMC_TE_OP_OC_WK.MMC_ITEM_PAI, M
MC_TE_OP_OC_VW.INV_ITEM_ID, &QTY_BOM);
&QTD_VALIDA2 = MMC_TE_OP_OC_WK.MMC_TE_QTD_PAI * &QTY_BOM;
If (QTY_OPEN <> &QTD_VALIDA2 Or
None(&QTY_BOM)) Then
&ITENS_PROBLEMA = &ITENS_PROBLEMA | " , " | MMC_TE_OP_OC_VW.INV_ITEM_ID
End-If;
If All(&ITENS_PROBLEMA) Or
&ITENS_PROBLEMA <> "" Then
WinMessage("Item / Valor divergente ou no existente na lista de materiais d
o Item Pai ( " | &ITENS_PROBLEMA | " )");
End-If;
*/
/********************** mmcb.sds3426.eo **********************/
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|| FIM: ROTINA DE VERIFICAO BOM
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*
/
End-If;
If QTY_OPEN > 0 Then
MMC_TE_CONFI_FLG = "Y";
Else
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_WRK.SERIAL_ID.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Coloca o mesmo conteudo no campo INV_LOT_ID do campo SERIAL_ID
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/

If SERIAL_ID = "NONE" Then
INV_LOT_ID = SERIAL_ID;
Else
SQLExec("SELECT P.INV_LOT_ID FROM SYSADM.PS_PHYSICAL_INV P, SYSADM.PS_NF_L
N_BRL L, SYSADM.PS_MMC_TE_TOF_TYPE T WHERE P.BUSINESS_UNIT = T.MMC_STOCK_UN AND
P.INV_ITEM_ID = :1 AND P.SERIAL_ID = :2 AND L.BUSINESS_UNIT = :3 AND L.NF_BRL_ID
= :4 AND L.INV_ITEM_ID = P.INV_ITEM_ID AND L.TOF_PBL = T.TOF_PBL", MMC_TE_S_NF_
VW.INV_ITEM_ID, SERIAL_ID, MMC_TE_TRIA_WRK.MMC_STOCK_UN, MMC_TE_S_NF_VW.NF_BRL_I
D, &LOTE);
INV_LOT_ID = &LOTE
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
[MMC_TE_WRK.SETID.SavePostChange]
Declare Function REDUCAO_ESTOQUE PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange;
If %UserId = "WS802342" Then
/*
REDUCAO_ESTOQUE("IREVC", "0000314056");
End-If;
*/
[MMC_VND_CST_ADD.CUST_ID.FieldChange]
/********************************************************************
* Claudio Henrique da Costa - MMC - AT2138 - 18/09/2007
*
* Alterao para que se relacione um Cliente a cada endereo de
*
* Fornecedor.
*
********************************************************************/
VENDOR_AR.SETID = SETID;
VENDOR_AR.CUST_ID = CUST_ID;
[MMC_VND_CST_ADD.CUST_ID.FieldEdit]
/********************************************************************
* Fornecedor.
********************************************************************/
/*********************************************************************
* Verificar se ja existe um cliente cadastrado para outro endereo *
* do fornecedor.
*
********************************************************************/
/*********************************************************************
* Bleno Sampaio - MMC - 24/05/2011 - mmcb.hd116432
* Problema ao salvar a tela de vincular Cliente ao fornecedor
*
********************************************************************/
*
*
*
*

.hd116432.ln*/
If %Component = "VNDR_ID" Or
%Component = "VENDOR_AR" Then

/*SETID = VENDOR_AR.SETID;*/ /*mmcb.hd116432.lo*/
SETID = BUSCA_SETID(); /*mmcb.hd116432.ln*/
&JA_EXISTE_CADASTRO = "N";
/*SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_VND_CST_ADD WHERE SETID = :1 AND CUS
T_ID = :2", SETID, CUST_ID, &JA_EXISTE_CADASTRO);*/ /*mmcb.hd96568.lo*/
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_VND_CST_ADD WHERE SETID = :1 AND CUST_
ID = :2 AND ( VENDOR_ID <> :3 AND ADDRESS_SEQ_NUM <> :4 )", SETID, CUST_ID, VEND
OR_ID, ADDRESS_SEQ_NUM, &JA_EXISTE_CADASTRO); /*mmcb.hd96568.ln*/
If All(&JA_EXISTE_CADASTRO) And
&JA_EXISTE_CADASTRO = "Y" And
All(CUST_ID) /*mmcb.hd96568.ln*/ Then
WinMessage("Cliente j Cadastrado para outro Endereo de Fornecedor");
End-If;
End-If;
[MMC_VND_CST_ADD.CUST_ID.SaveEdit]
/*********************************************************************
*
* Verificar se ja existe um cliente cadastrado para outro endereo *
* do fornecedor.
*
********************************************************************/
If %Component = "VNDR_ID" Or
%Component = "VENDOR_AR" Then
If All(CUST_ID) Then
SETID = BUSCA_SETID();
&JA_EXISTE_CADASTRO = "N";
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_VND_CST_ADD WHERE SETID = :1 AND CU
ST_ID = :2 AND ( VENDOR_ID <> :3 AND ADDRESS_SEQ_NUM <> :4 )", SETID, CUST_ID, V
ENDOR_ID, ADDRESS_SEQ_NUM, &JA_EXISTE_CADASTRO);
If All(&JA_EXISTE_CADASTRO) And
&JA_EXISTE_CADASTRO = "Y" Then
Error ("Cliente j Cadastrado para outro Endereo de Fornecedor");
End-If;
End-If;
End-If;
[MMC_VND_CST_ADD.PRINCIPAL.FieldChange]
/********************************************************************
*
*
* Fornecedor.
*
********************************************************************/
Local Rowset &RS00, &RS0, &RS1, &RS2;
Local Record &RS3;
If %Page = "VENDOR_AR" Then
&RS0 = GetLevel0();
&RS1 = &RS0(1).GetRowset(Scroll.VENDOR_ADDR);
For &i = 1 To &RS1.ActiveRowCount
&RS2 = &RS1(&i).GetRowset(Scroll.MMC_VND_CST_ADD);
&RS3 = &RS2(1).GetRecord(Record.MMC_VND_CST_ADD);
If &i <> CurrentRowNumber(1) Then

&RS3.PRINCIPAL.Value = "N"
End-If;
End-For;
End-If;
If %Page = "CUST_VENDOR_INFO" Then
&RS00 = GetLevel0();
&RS0 = &RS00(1).GetRowset(Scroll.VENDOR_AR);
&RS3 = &RS2(1).GetRecord(Record.MMC_VND_CST_ADD);
If &i <> CurrentRowNumber(2) Then
&RS3.PRINCIPAL.Value = "N"
End-If;
End-For;
End-If;
[MMC_VND_CST_ADD.PRINCIPAL.SavePostChange]
/********************************************************************
*
*
* Fornecedor.
*
********************************************************************/
If %Page = "VENDOR_AR" Or
%Component = "VNDR_ID" Or
%Page = "CUST_VENDOR_INFO" Then
SQLExec("SELECT CUST_ID FROM SYSADM.PS_MMC_VND_CST_ADD WHERE SETID = :1 AND V
ENDOR_ID = :2 AND PRINCIPAL = 'Y' ", SETID, VENDOR_ID, &CUST_ID);
SQLExec("UPDATE SYSADM.PS_VENDOR SET CUST_ID = :1 WHERE SETID = :2 AND VENDOR
_ID = :3", &CUST_ID, SETID, VENDOR_ID);
SQLExec("UPDATE SYSADM.PS_VENDOR_AR SET CUST_ID = :1 WHERE SETID = :2 AND VEN
DOR_ID = :3", &CUST_ID, SETID, VENDOR_ID);
End-If;
[MMC_VND_CST_ADD.PRINCIPAL.SavePreChange]
/********************************************************************
*
*
* Fornecedor.
*
********************************************************************/
Local Rowset &RS00, &RS0, &RS1, &RS2;
Local Record &RC1, &RC2;
Component number &EXISTE_PRINCIPAL_COMPONENTE;
If %Page = "VENDOR_AR" Then
&RS0 = GetLevel0();
&PRINCIPAL_MARCADO = "N";
&RC1 = &RS2(1).GetRecord(Record.MMC_VND_CST_ADD);
If (&RC1.PRINCIPAL.Value = "Y") Then
&PRINCIPAL_MARCADO = "Y";
End-If;
End-For;
If (&PRINCIPAL_MARCADO = "N") Then
Error ("O Endereo principal deve ser indicado.");
End-If;
End-If;
If %Page = "CUST_VENDOR_INFO" Then
&RS00 = GetLevel0();
&RS0 = &RS00(1).GetRowset(Scroll.VENDOR_AR);
&RC2 = &RS0(1).GetRecord(Record.VENDOR_AR);
&PRINCIPAL_MARCADO = "N";
&RC1 = &RS2(1).GetRecord(Record.MMC_VND_CST_ADD);
If (&RC1.PRINCIPAL.Value = "Y") Then
&PRINCIPAL_MARCADO = "Y";
&RC2.CUST_ID.Value = &RC1.CUST_ID.Value;
End-If;
End-For;
If (&PRINCIPAL_MARCADO = "N") Then
Error ("O Endereo principal deve ser indicado.");
End-If;
End-If;
If %Component = "VNDR_ID" Then

&RS0 = GetLevel0();
&RS1 = &RS0(1).GetRowset(Scroll.VNDR_ADDR_SCROL);
If CurrentRowNumber(1) = 1 Then
&EXISTE_PRINCIPAL_COMPONENTE = 0
End-If;
If (PRINCIPAL = "Y") Then
&EXISTE_PRINCIPAL_COMPONENTE = &EXISTE_PRINCIPAL_COMPONENTE + 1;
End-If;
If CurrentRowNumber(1) = &RS1.ActiveRowCount And
&EXISTE_PRINCIPAL_COMPONENTE <> 1 And
All(CUST_ID) Then
Error ("Endereo principal no especificado ou mais de um Endereo indicado como
principal.");
End-If;
End-If;
[NF_CNFM_BBL_WRK.BUSINESS_UNIT.FieldChange]
AddKeyListItem(NF_HDSR_BBL_VW1.BUSINESS_UNIT,
BUSINESS_UNIT);
BUSINESS_UNIT);
BUSINESS_UNIT);
BUSINESS_UNIT);
BUSINESS_UNIT);
BUSINESS_UNIT);
BUSINESS_UNIT);
[NF_CNFM_BBL_WRK.BUSINESS_UNIT.RowInit]
/*BRLOC-BI Localization Release 1
Author: Mrio Tonizza Pereira
Creation Date: 05/10/99
*/
If %PanelGroup = PanelGroup.NF_CNFM_BBL Then
ScrollFlush(Record.NF_HDR_BBL_VW3);
End-If;
[NF_CNFM_BBL_WRK.CONFIRMED_FLAG.FieldChange]
/*******************************************************************************
*******
Bruno Verosa - MMC - 14/12/2011 mmcb.hd4055 - Customizao para gerar uma nf no peopl
e com algum erro que no valide no Sefaz , tentar confirmar no People este ID , o
People no poder deixar confirmar o ID.
********************************************************************************
********/
/*******************************************************************************
*******
Mauri R. Back - MMC - 23/04/2012 mmcb.hd139017 - Permitir confirmar NF de Rally
nao vai para o triangulus, pois uma serie nova
********************************************************************************
********/
/*******************************************************************************
*******
Filipe/Rosangela Enc.Vinicius Favero - MMC - 30/07/2013 - mmcb.hd179384
Incluir a serie E para no passar pela validao de confirmao da Sefaz, por ser uma
serie de servio.
********************************************************************************
********/
/*
If %Page = Page.NF_CNFM_BBL Then
&BU = FetchValue(Record.NF_HDR_BBL_VW3, CurrentRowNumber(), NF_HDR_BBL_VW3.BU
SINESS_UNIT);
&NF = FetchValue(Record.NF_HDR_BBL_VW3, CurrentRowNumber(), NF_HDR_BBL_VW3.NF
_BRL_ID);
&FLAG = FetchValue(Record.NF_HDR_BBL_VW3, CurrentRowNumber(), CONFIRMED_FLAG)
;
If All(&NF) And
(&FLAG = "Y") Then
SQLExec("SELECT substr(CFO_BRL_CD, 1, 1), NF_BRL_SERIES FROM SYSADM.PS_N
F_HDR_BBL_FS WHERE BUSINESS_UNIT = :1 AND NF_BRL_ID = :2", &BU, &NF, &CFO, &SERI
E);
If &CFO = "7" Then
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_NF_EXP_HDR WHERE

BUSINESS_UNIT = :1 AND NF_BRL_ID = :2", &BU, &NF, &SPED);
If All(&SPED) Then
UpdateValue(CONFIRMED_FLAG, CurrentRowNumber(),
"Y");
Else
WinMessage("A Nota Fiscal de ID : " | &NF | " no
pode ser confirmada devido a falta de informaes de SPED.);
UpdateValue(CONFIRMED_FLAG, CurrentRowNumber(),
"N");
End-If;
Else
UpdateValue(CONFIRMED_FLAG, CurrentRowNumber(), "Y");
End-If;
End-If;
End-If;
*/
/************************************************************************mmcb.sd
s4055.sn*/
;
SINESS_UNIT);
&NF_ID = FetchValue(Record.NF_HDR_BBL_VW3, CurrentRowNumber(), NF_HDR_BBL_VW3
.NF_BRL_ID);
_BRL);
&SERIE_DOC_FISC = FetchValue(Record.NF_HDR_BBL_VW3, CurrentRowNumber(), NF_HD
R_BBL_VW3.NF_BRL_SERIES);
&STAT100 = "N";
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_NFE_CH_ACES WHERE BUSINESS_UNIT = :1 A
ND NF_BRL_ID = :2", &BU, &NF_ID, &STAT100);
If &FLAG = "Y" And
&STAT100 <> "Y"
&SERIE_DOC_FISC
&SERIE_DOC_FISC
&SERIE_DOC_FISC
&SERIE_DOC_FISC
&SERIE_DOC_FISC
&SERIE_DOC_FISC
And
<> "A" And
<> "D1" And
<> "D2" And
<> "0" And
<> "E" And /*mmcb.hd179384.ln*/
<> "A1" Then
CONFIRMED_FLAG = "N";
WinMessage("A Nota Fiscal: " | &NF_ID | " no obteve confirmao da Sefaz.");
End-If;
End-If;
/************************************************************************mmcb.sd
s4055.en*/
[NF_CNFM_BBL_WRK.CONFIRMED_FLAG.RowInit]
Gray(CONFIRMED_FLAG);
[NF_CNFM_BBL_WRK.CONFIRMED_FLAG.SaveEdit]
/********************Begin Localization**************************
|| BRLOC-BI Localization Release 1
|| Rotina que
|| 1. Confere a somatoria das linhas de distribuio por linha de NF
|| Author: Florival Athaide
================================================================*/
Global number &SUMLANC;
Global number &LINHANOTA;
SINESS_UNIT);
_BRL_ID);
;
If All(&NF) And
(&FLAG = "Y") Then
/*** JEISON CALDAS - 31/03/09 - HD 65595 - SOLICITADO PELO DARIO RETIRAR C
USTOMIZAO DA PRODUO - INICIO SQLExec("SELECT substr(CFO_BRL_CD, 1, 1) FROM SYSADM.PS_NF_HDR_BBL_FS WHERE BU
SINESS_UNIT = :1 AND NF_BRL_ID = :2", &BU, &NF, &CFO);
If &CFO = "7" Then
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_NF_EXP_HDR WHERE BUSINESS_UNIT =
:1 AND NF_BRL_ID = :2", &BU, &NF, &SPED);
If All(&SPED) Then
Else
Error "A Nota Fiscal de ID : " | &NF | " no pode ser confirmada devid
o a falta de informaes de SPED.";
UpdateValue(CONFIRMED_FLAG, CurrentRowNumber(), "N");
End-If;
Else
End-If;
- JEISON CALDAS - 31/03/09 - HD 65595 - SOLICITADO PELO DARIO RETIRAR CUST
OMIZAO DA PRODUO - FIM ***/
End-If;
End-If;
[NF_CNFM_BBL_WRK.CONFIRMED_FLAG.SavePostChange]
/********************Begin Localization**************************
|| BRLOC-BI Localization Release 1
|| Rotina que
|| 1. Confere a somatoria das linhas de distribuio por linha de NF
|| 2. Muda o status do NF_HDR_BRL.NF_STATUS_BBL para 'CNFM' (Confirmed)
||
e as datas de confirmaao para do dia e de contabilizacao para a
||
data de emisso (ISSUE_DT)
|| 3. Muda o status RMNEIO_LINE_BBL.INF_PRC_STATUS_BBL para 'I' (Invoiced)
|| 4. Caso todas as linhas do romaneio estejam 'I' mudar o RMNEIO_STATUS_BBL

||
para 'SHP'(Shipped)
|| 5. Atualiza o BILLING_STATUS da PS_SHIP_INF_INV caso todos os romaneios
||
estejam com INF_PRC_STATUS_BBL = Invoiced
|| Author: Florival Athaide
================================================================*/
/*******************************************************************************
**********
* Wagner Sorio - MMC - 18/10/2007 - mmcb.at2323 - Sistema Controle Terceiros
*
* Rotina de gravao da NF na tabela de transao de terceiros.
*
*******************************************************************************
**********/
/*******************************************************************************
**********
* Wagner Sorio - MMC - 18/03/2008 - mmcb.at2617 - Remessa Rally
*
* Rotina faz envio material para Local estoque parametrizado para Rally.
*
*******************************************************************************
**********/
/*******************************************************************************
**********
* Claudio Henrique da Costa - MMC - 27/05/2008 - mmcb.sds2736
*
* Alterao para que embarques no apaream para reduo aps terem sido reduzidos.
*******************************************************************************
**********/
/*******************************************************************************
**********
* Wagner Sorio - MMC - 29/05/2008 - mmcb.sds2618
*
* Retorno Rally
*
*******************************************************************************
**********/
/*******************************************************************************
**********
*
* Parametrizao Tipo de Distribuio Remessa Rally.
*
*******************************************************************************
**********/
/*******************************************************************************
**********
*
* Correo rotina evio NF para ITERC.
*
* Na Confirmao da NF no estava sendo gravado saldo Tabelas Terceiros.
*
*******************************************************************************
**********/
/*******************************************************************************
**********
* Wagner Sorio/Claudio Henrique da Costa - MMC - 22/09/2008 - mmcb.hd56098
*
* Na Confirmao da NF no confirmar NFs de Terceiros que no tenha Solicitao
*
* identificada.
*
*******************************************************************************
**********/
/*******************************************************************************
**********
* Gustavo V. Neto - MMCB - 30/10/2009 - mmcb.sds3239
*
*
*******************************************************************************
**********/
/*******************************************************************************
**********
* JC800888 Jeison Caldas - 26.11.09 - SDS 3085
*
* Correo SDS2440 - Customizao no considerava mais de uma linha de ativo na nota
*
* fiscal.
*
*******************************************************************************
**********/
/*******************************************************************************
**********
* Itamar Junior - MMCB - 19/08/2009 - mmcb.hd73211
*
* Ajuste para evitar lanamentos duplicados na tabela de transao de terceiros
*
*******************************************************************************
**********/
/*******************************************************************************
**********
*
* Atualizar MMC_ASSET_LOC, quando um ativo for movimentado
*
*******************************************************************************
**********/
/*******************************************************************************
**********
* Mauri/Adercley (Enc. Filipe Rehder) - MMCB - 27/07/2012
- mmcb.hd147325
*
* Otimizar update em embarques de confirmao de NF devido a lentido
*
*******************************************************************************
**********/
/*******************************************************************************
**********
*
* Otimizar Completar NF, devido ao processo que gera a 030 na tabela MMC_TE_CON
TR_MT. *
*******************************************************************************
**********/
/*******************************************************************************
**********
* Fernando Camarinha - MMCB - 18/10/2012
- mmcb.sds3884
*
* Novo Sistema de Controle de Pagamentos Comisses de Venda
*
*******************************************************************************
**********/
/*******************************************************************************
**********
*
* Ajustes controle de terceiros em nosso poder.
*
*******************************************************************************
**********/
/*******************************************************************************
**********
*
* Projeto FWA - Interface de dados de Terceiros entre empresas do grupo
*
*******************************************************************************
**********/
b.sds3239.ln */
/************************************************************************
* Wagner Sorio - MMCB - 01/09/2014 - mmcb.sds4689
*
* Implantao do People DBME
*
*************************************************************************/
/* Declare Function BU_SETID PeopleCode MMC_BU_SETID.SETID SavePreChange; */ /*
mmcb.sds4689.lo */
Declare Function GRAVA_TRANSACTION PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange;

Declare Function nf_derived_generate PeopleCode FUNCLIB_OF.FLOW_ID_BBL FieldForm
ula;
Local SQL &SQL_DEMAND; /* ******* mmcb.AT1831 - L.N ******* */
/************************* mmcb.at2323.sn *************************************
*******/
Declare Function REDUCAO_ESTOQUE PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange;
Declare Function ENTRADA_ESTOQUE PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange;
Declare Function GRAVA_SALDO_NF_TERCEIRO PeopleCode MMC_TE_WRK.FUNCLIB SavePostC
hange;
Local Rowset &RS0, &RS1;
Local Record &RC2;
/************************* mmcb.at2323.en *************************************
*******/
/************************* mmcb.sds2618.sn ************************************
********/
Declare Function GRAVA_MMC_TE_TRANSAC PeopleCode MMC_TE_WRK.FUNCLIB SavePostChan
ge;
Declare Function GRAVA_SALDO_LN_RALLY PeopleCode MMC_RT_RALLY_WK.FUNCLIB SavePos
tChange;
Declare Function GRAVA_SALDO_H_RALLY PeopleCode MMC_RT_RALLY_WK.FUNCLIB SavePost
Change;
Declare Function BAIXA_ESTOQUE PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange;
Declare Function CHECA_RETORNO_OPERACAO_PARAM PeopleCode MMC_RT_RALLY_WK.FUNCLIB
SavePostChange;
Declare Function CHECA_REMESSA_OPERACAO_PARAM PeopleCode MMC_RT_RALLY_WK.FUNCLIB

SavePostChange;
/************************* mmcb.sds2618.en ************************************
********/
/************************* mmcb.sds2720.sn ************************************
********/
Declare Function GRAVA_DISTRIB_TYPE_REMESSA PeopleCode MMC_RT_RALLY_WK.FUNCLIB S
avePostChange;
/************************* mmcb.sds2720.en ************************************
********/
/************************* mmcb.sds2946.sn ************************************
********/
/*Declare Function GRAVA_CONTROLE_MAT_TERC PeopleCode MMC_IN_LIB.FUNCLIB SavePos
tChange;*/ /*mmcb.sds4613.lo*/
/************************* mmcb.sds2946.en ************************************
********/
/************************* mmcb.sds5222.sn ************************************
********/
Declare Function fncMontaSQLParamEDI PeopleCode MMC_PAR_EDI_HDR.BUSINESS_UNIT Fi
eldFormula;
Declare Function fncBuscaCnpjEDI PeopleCode MMC_PAR_EDI_HDR.BUSINESS_UNIT FieldF
ormula;
Declare Function fncGetStausEDI PeopleCode MMC_PAR_EDI_HDR.BUSINESS_UNIT FieldFo
rmula;
/************************* mmcb.sds5222.en ************************************
********/
/************************************* mmcb.sds4613.sn *************************
************/
/*Verifica se o cdigo esta sendo executado na pgina de Confirmar NF*/
If %Component = "NF_CNFM_BBL" Then
/*Verifica se o usurio deseja confirmar a NF da linha atual*/
If CONFIRMED_FLAG = "Y" Then
/*Recupera o SetId Geral*/
/*Verifica se a nota fiscal possui uma solicitao eletronica de devoluo de mate
rial de terceiro em nosso poder*/
SQLExec("SELECT A.MMC_TE_SOL_ID FROM SYSADM.PS_MMC_TE_SOL_HDR A, SYSADM.PS
_MMC_TE_SOL_LN B WHERE A.SETID = :1 AND A.MMC_TE_SOL_STATUS <> '5' AND A.BUSINES
S_UNIT_BI = :2 AND A.NF_BRL_ID = :3 AND B.SETID = A.SETID AND B.MMC_TE_SOL_ID =
A.MMC_TE_SOL_ID AND B.MMC_TE_SOL_BUS_UN <> ' ' AND B.MMC_TE_SOL_NF_ID <> ' ' AND
B.MMC_TE_SOL_LN_NF <> 0 AND B.BUSINESS_UNIT_BI = :2 AND B.NF_BRL_ID = :3 AND RO
WNUM = 1", &SETID, NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &MMC_
TE_SOL_ID);
If All(&MMC_TE_SOL_ID) Then
/*Monta o insert da 030 na MMC_TE_CONTR_MT*/
&SQL = "";
&SQL = &SQL | " INSERT INTO SYSADM.PS_MMC_TE_CONTR_MT ";

&SQL = &SQL | " SELECT TCM.BUSINESS_UNIT ";
&SQL = &SQL | " , TCM.NF_BRL_ID ";
&SQL = &SQL | " , TCM.NF_BRL_LINE_NUM ";
&SQL = &SQL | " , SYSDATE
AS DT_TIMESTAMP ";
&SQL = &SQL | " , ROWNUM
AS SEQ_NBR ";
&SQL = &SQL | " , TCM.NF_BRL ";
&SQL = &SQL | " , TCM.NF_BRL_SERIES ";
&SQL = &SQL | " , TCM.INV_ITEM_ID ";
&SQL = &SQL | " , TCM.DESCR ";
&SQL = &SQL | " , TCM.SHIPTO_ID ";
&SQL = &SQL | " , TCM.VENDOR_ID ";
&SQL = &SQL | " , TCM.NF_BRL_DATE ";
&SQL = &SQL | " , '030'
AS TRANSACTION_GROUP ";
&SQL = &SQL | " , TRUNC(SYSDATE)
AS TRANSACTION_DATE ";
&SQL = &SQL | " , TCM.TAX_CLASS_BRL ";
&SQL = &SQL | " , LN.TOF_PBL ";
&SQL = &SQL | " , ' '
AS SOURCE_BUS_UNIT ";
&SQL = &SQL | " , ' '
AS ORDER_NO ";
&SQL = &SQL | " , 0
AS ORDER_INT_LINE_NO ";
&SQL = &SQL | " , HDR.BUSINESS_UNIT
AS BUSINESS_UNIT_BI ";
&SQL = &SQL | " , HDR.NF_BRL_ID
AS MMC_NF_BRL_ID_OUT ";
&SQL = &SQL | " , LN.NF_BRL_LINE_NUM AS MMC_LINE_NUM_OUT ";
&SQL = &SQL | " , HDR.SHIP_TO_CUST_ID AS CUST_ID ";
&SQL = &SQL | " , ' '
AS MMC_TIPO_AJUST ";
&SQL = &SQL | " , :1
AS OPRID ";
&SQL = &SQL | " , ' '
AS ACCOUNT ";
&SQL = &SQL | " , IIU.UNIT_OF_MEASURE AS UNIT_OF_MEASURE ";
&SQL = &SQL | " , ' '
AS MMC_OBS_AJUST ";
&SQL = &SQL | " , ((LN.QTY_NF_BRL * DECODE(IIU.UNIT_OF_MEASURE,IIUP.UNI
T_OF_MEASURE,1,IIU.CONVERSION_RATE)) * -1)
AS MMC_ISSUE_QTY ";
&SQL = &SQL | " , (LN.QTY_NF_BRL * DECODE(IIU.UNIT_OF_MEASURE,IIUP.UNIT
_OF_MEASURE,1,IIU.CONVERSION_RATE))
AS QTY_NF_BRL ";
&SQL = &SQL | " , (LN.UNIT_AMT_BSE_BBL / DECODE(IIU.UNIT_OF_MEASURE,IIU
P.UNIT_OF_MEASURE,1,IIU.CONVERSION_RATE))
AS UNIT_PRICE ";
&SQL = &SQL | " , ((LN.QTY_NF_BRL * DECODE(IIU.UNIT_OF_MEASURE,IIUP.UNI
T_OF_MEASURE,1,IIU.CONVERSION_RATE)) * (LN.UNIT_AMT_BSE_BBL / DECODE(IIU.UNIT_OF
_MEASURE,IIUP.UNIT_OF_MEASURE,1,IIU.CONVERSION_RATE))) AS MERCHANDISE_AMT ";
&SQL = &SQL | " FROM SYSADM.PS_NF_HDR_BRL
HDR ";
&SQL = &SQL | " ,
SYSADM.PS_NF_LN_BRL
LN ";
&SQL = &SQL | " ,
SYSADM.PS_INV_ITEM_UOM
IIU ";
&SQL = &SQL | " ,
SYSADM.PS_INV_ITEM_UOM
IIUP ";
&SQL = &SQL | " ,
SYSADM.PS_TOF_TYPE_PBL
TOF ";
&SQL = &SQL | " ,
SYSADM.PS_MMC_TE_TOF_TYPE TOF_MMC ";
&SQL = &SQL | " ,
SYSADM.PS_MMC_TE_SOL_HDR
SOL_HDR ";
&SQL = &SQL | " ,
SYSADM.PS_MMC_TE_SOL_LN
SOL_LN ";
&SQL = &SQL | " ,
SYSADM.PS_MMC_TE_CONTR_MT TCM ";
&SQL = &SQL | " WHERE HDR.BUSINESS_UNIT
= :2 ";
&SQL = &SQL | " AND HDR.NF_BRL_ID
= :3 ";
&SQL = &SQL | " AND HDR.BUSINESS_UNIT
= LN.BUSINESS_UNIT ";
= LN.NF_BRL_ID ";
&SQL = &SQL | " AND IIU.SETID
= :4 ";
&SQL = &SQL | " AND IIU.INV_ITEM_ID
= LN.INV_ITEM_ID ";
&SQL = &SQL | " AND IIU.UNIT_OF_MEASURE
= LN.UNIT_OF_MEASURE ";
&SQL = &SQL | " AND IIUP.SETID
= :4 ";
&SQL = &SQL | " AND IIUP.INV_ITEM_ID
= LN.INV_ITEM_ID ";
&SQL = &SQL | " AND IIUP.DFLT_UOM_STOCK
= 'Y' ";
&SQL = &SQL | " AND LN.TOF_PBL
= TOF.TOF_PBL ";
= TOF_MMC.TOF_PBL
";
&SQL = &SQL | " AND

&SQL = &SQL | " AND
TOF_MMC.MMC_MERC_TERC
TOF.EFFDT
= 'Y' ";
= TOF_MMC.EFFDT
";
&SQL = &SQL | " AND TOF.EFF_STATUS
&SQL = &SQL | " AND TOF.TOF_PBL
&SQL = &SQL | " AND TOF.EFFDT
&SQL = &SQL | "
AX(XTOF.EFFDT) ";
&SQL = &SQL | "
ADM.PS_TOF_TYPE_PBL XTOF ";
&SQL = &SQL | "
OF.EFFDT
= TOF.EFFDT ";
&SQL = &SQL | "
OF.TOF_PBL
= TOF.TOF_PBL ";
&SQL = &SQL | "
OF.EFF_STATUS = 'A' ";
&SQL = &SQL | "
&SQL = &SQL | " AND SOL_HDR.BUSINESS_UNIT_BI
&SQL = &SQL | " AND SOL_HDR.NF_BRL_ID
&SQL = &SQL | " AND SOL_HDR.SETID
&SQL = &SQL | " AND SOL_HDR.MMC_TE_SOL_ID
";
&SQL = &SQL | " AND LN.BUSINESS_UNIT
BI ";
&SQL = &SQL | " AND LN.NF_BRL_ID
&SQL = &SQL | " AND LN.NF_BRL_LINE_NUM
M ";
&SQL = &SQL | " AND MMC_TE_SOL_STATUS
&SQL = &SQL | " AND LN.INV_ITEM_ID
;
&SQL = &SQL | " AND SOL_LN.MMC_TE_SOL_BUS_UN
&SQL = &SQL | " AND SOL_LN.MMC_TE_SOL_NF_ID
&SQL = &SQL | " AND SOL_LN.MMC_TE_SOL_LN_NF
&SQL = &SQL | " AND TCM.BUSINESS_UNIT
_UN ";
&SQL = &SQL | " AND TCM.NF_BRL_ID
ID ";
&SQL = &SQL | " AND TCM.NF_BRL_LINE_NUM
NF ";
&SQL = &SQL | " AND TCM.TRANSACTION_GROUP
&SQL = &SQL | " AND NOT EXISTS
&SQL = &SQL | "
Y' ";
&SQL = &SQL | "
ADM.PS_MMC_TE_CONTR_MT XTCM ";
&SQL = &SQL | "
CM.BUSINESS_UNIT
= TCM.BUSINESS_UNIT ";
&SQL = &SQL | "
CM.NF_BRL_ID
= TCM.NF_BRL_ID ";
&SQL = &SQL | "
CM.NF_BRL_LINE_NUM = TCM.NF_BRL_LINE_NUM ";
&SQL = &SQL | "
CM.TRANSACTION_GROUP = '030' ";
&SQL = &SQL | "
CM.BUSINESS_UNIT_BI = HDR.BUSINESS_UNIT ";
&SQL = &SQL | "
CM.MMC_NF_BRL_ID_OUT = HDR.NF_BRL_ID ";
&SQL = &SQL | "
CM.MMC_LINE_NUM_OUT = LN.NF_BRL_LINE_NUM ";
&SQL = &SQL | "
= 'A' ";
= TOF_MMC.TOF_PBL ";
= ( ";
SELECT M
FROM SYS
WHERE XT
AND
XT
AND
XT
) ";
= HDR.BUSINESS_UNIT ";
= HDR.NF_BRL_ID ";
= SOL_LN.SETID ";
= SOL_LN.MMC_TE_SOL_ID
= SOL_LN.BUSINESS_UNIT_
= SOL_LN.NF_BRL_ID ";
= SOL_LN.NF_BRL_LINE_NU
<> '5' ";
= SOL_LN.INV_ITEM_ID "
<>
<>
<>
=
' ' ";

' ' ";
0 ";
SOL_LN.MMC_TE_SOL_BUS
= SOL_LN.MMC_TE_SOL_NF_
= SOL_LN.MMC_TE_SOL_LN_
= '020' ";
( ";
SELECT '
FROM SYS
WHERE XT
) ";
AND
XT
AND
XT
AND
XT
AND
XT
AND
XT
AND
XT
SQLExec(&SQL, %OperatorId, NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3

.NF_BRL_ID, &SETID);
/*Atualiza o status da solicitao para faturada*/
SQLExec("UPDATE SYSADM.PS_MMC_TE_SOL_HDR SET MMC_TE_SOL_STATUS = '5' WH
ERE SETID = :1 AND MMC_TE_SOL_ID = :2", &SETID, &MMC_TE_SOL_ID);
End-If;
End-If;
End-If;
/************************************* mmcb.sds4613.en *************************
************/
/************************************* mmcb.sds4613.so *************************

************/
/************************* MMCB.AT2946.SN **************************************
*******/
/*
If %Component = "NF_CNFM_BBL" Then
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
*/
REM
REM
REM
REM
/*
&SQL
&SQL
&SQL
&SQL
=
=
=
=
=
=
=
=
=
=
=
=
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
=
=
=
=
E_AMT
"";
" SELECT
&SQL | "
&SQL | "
&SQL | "
&SQL | "
&SQL | "
&SQL | "
&SQL | "
&SQL | "
&SQL | "
&SQL | "
&SQL
&SQL
&SQL
&SQL
|
|
|
|
"
"
"
"
DISTINCT ";
SOL_HDR.SETID, ";
SOL_HDR.MMC_TE_SOL_ID, ";
LN.TOF_PBL, ";
SOL_LN.MMC_TE_SOL_BUS_UN, ";
SOL_LN.MMC_TE_SOL_NF_ID, ";
SOL_LN.MMC_TE_SOL_LN_NF, ";
SOL_LN.MMC_TE_SOL_NF_FORN , ";
SOL_LN.MMC_TE_SOL_SE_FORN, ";
LN.INV_ITEM_ID, ";
LN.QTY_NF_BRL, ";
LN.DESCR, ";
HDR_IN.NF_BRL_DATE, ";
HDR_IN.VENDOR_ID, ";
LN_IN.TAX_CLASS_BRL, ";
=
=
=
=
=
=
=
=
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
|
|
|
|
|
|
|
|
"
"
"
"
"
"
"
"
HDR.BUSINESS_UNIT, ";
HDR.NF_BRL_ID, ";
LN.NF_BRL_LINE_NUM, ";
HDR.SHIP_TO_CUST_ID, ";
SOL_HDR.OPRID, ";
LN.UNIT_OF_MEASURE, ";
SOL_LN.MONETARY_AMOUNT, ";
(LN.QTY_NF_BRL * SOL_LN.MONETARY_AMOUNT) AS MERCHANDIS
=
=
=
=
=
=
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
|
|
|
|
|
|
" FROM ";

"
SYSADM.PS_NF_HDR_BRL HDR , ";
"
SYSADM.PS_NF_LN_BRL LN, ";
"
SYSADM.PS_TOF_TYPE_PBL TOF, ";
"
SYSADM.PS_MMC_TE_TOF_TYPE TOF_MMC, ";
"
SYSADM.PS_MMC_TE_SOL_HDR SOL_HDR, ";
";
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL = &SQL | "

SYSADM.PS_MMC_TE_SOL_LN SOL_LN ";
&SQL = &SQL | " WHERE ";
&SQL = &SQL | "
HDR.BUSINESS_UNIT
= '" | NF_HDR_BBL_VW3.
BUSINESS_UNIT | "'";
= '" | NF_HDR_BBL_VW3.
NF_BRL_ID | "'";
&SQL = &SQL | " AND HDR.BUSINESS_UNIT
= LN.BUSINESS_UNIT ";
= LN.NF_BRL_ID ";
= TOF.TOF_PBL ";
&SQL = &SQL | " AND TOF_MMC.MMC_MERC_TERC
= 'Y' ";
&SQL = &SQL | " AND TOF.EFFDT
= TOF_MMC.EFFDT ";
&SQL = &SQL | " AND TOF.EFF_STATUS
= 'A' ";
&SQL = &SQL | " AND TOF.TOF_PBL
&SQL = &SQL | " AND TOF.EFFDT = (SELECT MAX(EFFDT) FROM SYSADM.PS_TO
F_TYPE_PBL X WHERE TOF.EFFDT
= X.EFFDT AND TOF.TOF_PBL
= X.TOF_PBL AND
X.EFF_STATUS
= 'A' )";
&SQL = &SQL | " AND SOL_HDR.BUSINESS_UNIT_BI = HDR.BUSINESS_UNIT ";
&SQL = &SQL | " AND SOL_HDR.NF_BRL_ID
= HDR.NF_BRL_ID
";
&SQL = &SQL | " AND SOL_HDR.SETID
= SOL_LN.SETID ";
&SQL = &SQL | " AND SOL_HDR.MMC_TE_SOL_ID
= SOL_LN.MMC_TE_SOL_ID
";
*/
/************************* mmcb.hd74408.sn *************************************
********/
/*&SQL = &SQL | " AND SOL_LN.QTY
= LN.QTY_NF_BRL ";
&SQL = &SQL | " AND SOL_LN.QTY * SOL_LN.MONETARY_AMOUNT = LN.MERCH_
AMT_BSE ";
*/
/*
&SQL = &SQL | " AND LN.BUSINESS_UNIT
= SOL_LN.BUSINESS_
UNIT_BI ";
&SQL = &SQL | " AND LN.NF_BRL_ID
= SOL_LN.NF_BRL_ID
";
&SQL = &SQL | " AND LN.NF_BRL_LINE_NUM
= SOL_LN.NF_BRL_LI
NE_NUM ";
*/
/************************* mmcb.hd74408.en *************************************
********/
/************************* mmcb.hd73211.sn *************************************
********/
/*
&SQL = &SQL | " AND MMC_TE_SOL_STATUS
<> '5' ";
*/
/************************* mmcb.hd73211.eo *************************************
********/
/*
&SQL = &SQL | " AND LN.INV_ITEM_ID
= SOL_LN.INV_ITEM_ID
";
&SQL = &SQL | " AND SOL_LN.MMC_TE_SOL_BUS_UN
&SQL = &SQL | " AND SOL_LN.MMC_TE_SOL_NF_ID
&SQL = &SQL | " AND SOL_LN.MMC_TE_SOL_LN_NF
&contSQL = CreateSQL(&SQL);
<> ' ' ";

<> ' ' ";
<> 0 ";
&TEMP = "X";
While &contSQL.Fetch(&CONTR_SOL_SETID, &CONTR_SOL_ID, &CONTR_TOF_PBL,
&CONTR_MMC_TE_SOL_BUS_UN, &CONTR_MMC_TE_SOL_NF_ID, &CONTR_MMC_TE_SOL_LN_NF, &CON
TR_MMC_TE_SOL_NF_FORN, &CONTR_MMC_TE_SOL_SE_FORN, &CONTR_INV_ITEM_ID, &CONTR_QTY

_NF_BRL, &CONTR_BUSINESS_UNIT, &CONTR_NF_BRL_ID, &CONTR_NF_BRL_LINE_NUM, &CONTR_
SHIP_TO_CUST_ID, &CONTR_OPRID, &CONTR_UNIT_OF_MEASURE, &CONTR_UNIT_PRICE, &CONTR
_MERCHANDISE_AMT)
&SQL1 = "";
&SQL1 = &SQL1 | " SELECT
";
&SQL1 = &SQL1 | " B.DESCR,
";
&SQL1 = &SQL1 | " %DATEOUT(A.NF_BRL_DATE),
";
&SQL1 = &SQL1 | " A.VENDOR_ID,
";
&SQL1 = &SQL1 | " B.TAX_CLASS_BRL
";
&SQL1 = &SQL1 | " FROM
";
&SQL1 = &SQL1 | " SYSADM.PS_NF_HDR_BRL A,
";
&SQL1 = &SQL1 | " SYSADM.PS_NF_LN_BRL B
";
&SQL1 = &SQL1 | " WHERE
";
&SQL1 = &SQL1 | "
A.BUSINESS_UNIT
E_SOL_BUS_UN | "'";
&SQL1 = &SQL1 | " AND A.NF_BRL_ID
E_SOL_NF_ID | "'";
&SQL1 = &SQL1 | " AND A.BUSINESS_UNIT
";
&SQL1 = &SQL1 | " AND A.NF_BRL_ID
";
&SQL1 = &SQL1 | " AND B.NF_BRL_LINE_NUM
E_SOL_LN_NF | "'";
'" | &CONTR_MMC_T
'" | &CONTR_MMC_T
B.BUSINESS_UNIT
B.NF_BRL_ID
'" | &CONTR_MMC_T
&contSQL1 = CreateSQL(&SQL1);
&contSQL1.Fetch(&CONTR_DESCR, &CONTR_NF_BRL_DATE, &CONTR_VENDOR_ID,
&CONTR_TAX_CLASS_BRL);
&CONTR_TRANSACTION_GROUP = "030";
&CONTR_TRANSACTION_DATE = %Date;
&CONTR_SOURCE_BUS_UNIT = " ";
&CONTR_ORDER_NO = " ";
&CONTR_ORDER_INT_LINE_NO = 0;
&CONTR_ACCOUNT = " ";
&CONTR_MMC_TIPO_AJUST = " ";
&CONTR_MMC_OBS_AJUST = " ";
&CONTR_SHIPTO_ID = " ";
&CONTR_MMC_ISSUE_QTY = &CONTR_QTY_NF_BRL * - 1;
If All(&CONTR_SOL_ID) And
&TEMP = "X" Then
SQLExec("update sysadm.ps_mmc_te_sol_hdr set mmc_te_sol_status='
5' where setid= :1 and mmc_te_sol_id=:2", &CONTR_SOL_SETID, &CONTR_SOL_ID);

&TEMP = "Y";
End-If;
GRAVA_CONTROLE_MAT_TERC(&CONTR_MMC_TE_SOL_BUS_UN, &CONTR_MMC_TE_SOL
_NF_ID, &CONTR_MMC_TE_SOL_LN_NF, &CONTR_MMC_TE_SOL_NF_FORN, &CONTR_MMC_TE_SOL_SE
_FORN, &CONTR_INV_ITEM_ID, &CONTR_DESCR, &CONTR_VENDOR_ID, &CONTR_NF_BRL_DATE, &
CONTR_TRANSACTION_GROUP, &CONTR_TRANSACTION_DATE, &CONTR_TAX_CLASS_BRL, &CONTR_T
OF_PBL, &CONTR_SOURCE_BUS_UNIT, &CONTR_ORDER_NO, &CONTR_ORDER_INT_LINE_NO, &CONT
R_BUSINESS_UNIT, &CONTR_NF_BRL_ID, &CONTR_NF_BRL_LINE_NUM, &CONTR_SHIP_TO_CUST_I
D, &CONTR_ACCOUNT, &CONTR_MMC_TIPO_AJUST, &CONTR_OPRID, &CONTR_UNIT_OF_MEASURE,
&CONTR_MMC_OBS_AJUST, &CONTR_MMC_ISSUE_QTY, &CONTR_QTY_NF_BRL, &CONTR_UNIT_PRICE
, &CONTR_MERCHANDISE_AMT, &CONTR_SHIPTO_ID);
End-While;
End-If;
End-If;
End-If;
*/
/************************* MMCB.AT2946.EN **************************************
*******/
/************************************* mmcb.sds4613.eo *************************
************/

SEL = "Y";
/*1. Confere a somatoria das linhas de distribuio por linha de NF */
&LINHASNIVEL1 = ActiveRowCount(Record.NF_HDR_BBL_VW3);
For &I = 1 To &LINHASNIVEL1
/*** Resolve NFs derivadas - Operaes Fiscais ***/
If nf_derived_generate(NF_HDR_BBL_VW3.NF_BRL_ID, NF_HDR_BBL_VW3.BUSINESS_U
NIT, " ", " ", " ", " ", " ") Then
End-If;
&LINHASNIVEL2 = ActiveRowCount(Record.NF_HDR_BBL_VW3, &I, Record.NF_LN_BBL
_VW);
For &I2 = 1 To &LINHASNIVEL2
&LINHANOTA = FetchValue(Record.NF_HDR_BBL_VW3, &I, Record.NF_LN_BBL_VW,
&I2, NF_LN_BBL_VW.NF_BRL_LINE_NUM);
SQLExec("Select SUM(MONETARY_AMOUNT) from PS_NF_LN_BRL LINHA, PS_BRL_DI
STRIB_LN DISTR where LINHA.BUSINESS_UNIT = :1 and LINHA.NF_BRL_ID = :2 and LINHA
.NF_BRL_LINE_NUM = :3 and LINHA.BUSINESS_UNIT = DISTR.BUSINESS_UNIT and LINHA.NF
_BRL_ID = DISTR.NF_BRL_ID and LINHA.NF_BRL_LINE_NUM = DISTR.NF_BRL_LINE_NUM", NF
_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &LINHANOTA, &SUMLANC);
If &SUMLANC <> 0 Then
SQLExec("UPDATE PS_BRL_DISTRIB_LN SET ERROR_FLAG = 'D' where BUSIN
ESS_UNIT = :1 and NF_BRL_ID = :2 and NF_BRL_LINE_NUM = :3", NF_HDR_BBL_VW3.BUSIN
ESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &LINHANOTA);
End-If;
End-For;
End-For;
/********************* MMCB.sds3884.sn *********************/
If %PanelGroup = PanelGroup.NF_CNFM_BBL Then
&existente = "N";
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_HDR_COMIS WHERE BUSINESS_UNIT = :1

AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_BRL_ID, &existente);
If &existente <> "Y" Then
SQLExec("SELECT MMC_COMISSAO FROM SYSADM.PS_MMC_NF_COMISS WHERE BUSINES
S_UNIT = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &comis
sao);
&operador = %OperatorId;
If &comissao > 0 Then
SQLExec("SELECT NF_BRL, NF_BRL_SERIES, SHIP_TO_CUST_ID FROM SYSADM.P
S_NF_HDR_BBL_FS WHERE BUSINESS_UNIT = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_
HDR_BBL_VW3.NF_BRL_ID, &nf, &serie, &cliente);
SQLExec("INSERT INTO SYSADM.PS_MMC_HDR_COMIS(BUSINESS_UNIT, NF_BRL_I
D, NF_BRL, NF_BRL_SERIES, SHIP_TO_CUST_ID, MMC_COMISSAO, MMC_STATUS_COMIS, OPRID
_ENTERED_BY, OPRID_LAST_UPDT, DATETIME_STAMP) VALUES (:1, :2, :3, :4, :5, :6, :7
, :8, :9, %DATETIMEIN(:10))", BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &nf, &ser
ie, &cliente, &comissao, "PEND", &operador, " ", %Datetime);
End-If;
End-If;
End-If;
/********************* MMCB.sds3884.en *********************/
/*2. Muda o status do NF_HDR_BRL.NF_STATUS_BBL para 'CNFM' (Confirmed)*/
&W_DATE = %Date;
SQLExec("update PS_NF_HDR_BRL set NF_STATUS_BBL = 'CNFM', NF_CONF_DT_BBL = %D
ATEIN(:3), ACCOUNTING_DT = %DATEIN(:4) WHERE BUSINESS_UNIT = :1 and NF_BRL_ID =
:2", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &W_DATE, NF_HDR_BBL
_VW3.NF_ISSUE_DT_BBL);
SQLExec("UPDATE PS_BRL_DISTRIB_LN SET ACCOUNTING_DT = %DATEIN(:4) where BUS
INESS_UNIT = :1 and NF_BRL_ID = :2 and NF_BRL_LINE_NUM = :3", NF_HDR_BBL_VW3.BUS
INESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &LINHANOTA, NF_HDR_BBL_VW3.NF_ISSUE_DT_BBL
);
/*3. Muda o status RMNEIO_LINE_BBL.INF_PRC_STATUS_BBL para 'I' (Invoiced)*/
SQLExec("update PS_RMNEIO_LINE_BBL set INF_PRC_STATUS_BBL = 'I' WHERE EXISTS
(SELECT 1 FROM PS_NF_LN_BRL LIN WHERE LIN.BUSINESS_UNIT = :1 and LIN.NF_BRL_ID =
:2 and LIN.BUSINESS_UNIT = PS_RMNEIO_LINE_BBL.BUSINESS_UNIT_BI and LIN.NF_BRL_
ID = PS_RMNEIO_LINE_BBL.NF_BRL_ID and LIN.NF_BRL_LINE_NUM = PS_RMNEIO_LINE_BBL.N
F_BRL_LINE_NUM)", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID);
/*4. Caso todas as linhas do romaneio estejam 'I' mudar o RMNEIO_STATUS_BBL
para 'SHP'(Shipped)*/
SQLExec("SELECT 'Falta Linhas serem assinaladas' FROM PS_NF_HDR_BRL NFHD, PS_
RMNEIO_HDR_BBL ROHD, PS_RMNEIO_LINE_BBL ROLI WHERE NFHD.BUSINESS_UNIT = :1 and N
FHD.NF_BRL_ID = :2 and NFHD.BUSINESS_UNIT_IN = ROHD.BUSINESS_UNIT and NFHD.RMNEI
O_ID_BBL
= ROHD.RMNEIO_ID_BBL and ROHD.BUSINESS_UNIT
= ROLI.BUSINESS_UNIT
and ROHD.RMNEIO_ID_BBL
= ROLI.RMNEIO_ID_BBL and ROLI.INF_PRC_STATUS_BBL <> 'I
' ", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &FLAG);
If None(&FLAG) Then
SQLExec("update PS_RMNEIO_HDR_BBL SET RMNEIO_STATUS_BBL = 'SHP' WHERE EXIS
TS (SELECT 1 FROM PS_NF_HDR_BRL NFHD WHERE NFHD.BUSINESS_UNIT = :1 AND NFHD.NF_B
RL_ID = :2 AND NFHD.BUSINESS_UNIT_IN = PS_RMNEIO_HDR_BBL.BUSINESS_UNIT AND NFHD.
RMNEIO_ID_BBL = PS_RMNEIO_HDR_BBL.RMNEIO_ID_BBL)", NF_HDR_BBL_VW3.BUSINESS_UNIT,
NF_HDR_BBL_VW3.NF_BRL_ID);
End-If;
/*5. Atualiza o BILLING_STATUS da PS_SHIP_INF_INV com 'B' caso todos os roman
eios estejam com INF_PRC_STATUS_BBL = Invoiced */
&D = "D";
&I = "I";
/* &SELECT1 = " UPDATE PS_SHIP_INF_INV SET IN_USE_BI_BBL = " | "'" | &D | "
', PSSH_COMPLETE = 'N', DEPLETE_INV_FLG = 'Y' " | */
&SELECT1 = " UPDATE PS_SHIP_INF_INV SET IN_USE_BI_BBL = " | "'" | &D | "', PS
SH_COMPLETE = 'N' " | " WHERE NOT EXISTS (SELECT 1 FROM PS_RMNEIO_LINE_BBL ROLI
WHERE ROLI.BUSINESS_UNIT = PS_SHIP_INF_INV.BUSINESS_UNIT and ROLI.DEMAND_SOURCE

= PS_SHIP_INF_INV.DEMAND_SOURCE and ROLI.SOURCE_BUS_UNIT = PS_SHIP_INF_INV.SOURC
E_BUS_UNIT";
&SELECTV = " and ROLI.ORDER_NO = PS_SHIP_INF_INV.ORDER_NO and ROLI.ORDER_INT_
LINE_NO = PS_SHIP_INF_INV.ORDER_INT_LINE_NO and ROLI.SCHED_LINE_NO = PS_SHIP_INF
_INV.SCHED_LINE_NO and ROLI.INV_ITEM_ID = PS_SHIP_INF_INV.INV_ITEM_ID and ROLI.D
EMAND_LINE_NO = PS_SHIP_INF_INV.DEMAND_LINE_NO and ROLI.INF_PRC_STATUS_BBL <>" |
"'" | &I | "'" | ")";
&SELECT2 = " and EXISTS (SELECT 1 FROM PS_RMNEIO_LINE_BBL ROLI2 WHERE ROLI2.B
USINESS_UNIT =PS_SHIP_INF_INV.BUSINESS_UNIT and ROLI2.DEMAND_SOURCE = PS_SHIP_IN
F_INV.DEMAND_SOURCE and ROLI2.SOURCE_BUS_UNIT = PS_SHIP_INF_INV.SOURCE_BUS_UNIT
and ROLI2.ORDER_NO = PS_SHIP_INF_INV.ORDER_NO and ";
&SELECTX = "ROLI2.ORDER_INT_LINE_NO = PS_SHIP_INF_INV.ORDER_INT_LINE_NO and R
OLI2.SCHED_LINE_NO = PS_SHIP_INF_INV.SCHED_LINE_NO and ROLI2.INV_ITEM_ID = PS_SH
IP_INF_INV.INV_ITEM_ID";
&SELECT3 = " and ROLI2.DEMAND_LINE_NO = PS_SHIP_INF_INV.DEMAND_LINE_NO and RO
LI2.BUSINESS_UNIT_BI = :1 and ROLI2.NF_BRL_ID = :2 ) and PS_SHIP_INF_INV.QTY_SHI
PPED_CONV = (SELECT SUM(RMNEIO_LIN_QTY_BBL) FROM PS_RMNEIO_LINE_BBL ROLI3 WHERE
ROLI3.BUSINESS_UNIT = PS_SHIP_INF_INV.BUSINESS_UNIT and ROLI3.DEMAND_SOURCE = PS
_SHIP_INF_INV.DEMAND_SOURCE and ROLI3.SOURCE_BUS_UNIT = PS_SHIP_INF_INV.SOURCE_B
US_UNIT and ROLI3.ORDER_NO = PS_SHIP_INF_INV.ORDER_NO and ROLI3.ORDER_INT_LINE_N
O = PS_SHIP_INF_INV.ORDER_INT_LINE_NO and ROLI3.SCHED_LINE_NO = PS_SHIP_INF_INV.
SCHED_LINE_NO and ROLI3.INV_ITEM_ID = PS_SHIP_INF_INV.INV_ITEM_ID and ROLI3.DEMA
ND_LINE_NO = PS_SHIP_INF_INV.DEMAND_LINE_NO) ";
/**************************** mmcb.sds2736.so ****************************/
/* &SELECT4 = &SELECT1 | &SELECTV | &SELECT2 | &SELECTX | &SELECT3;
*/
/**************************** mmcb.sds2736.eo ****************************/
/**************************** mmcb.sds2736.sn ****************************/
/**************************** mmcb.hd147325.so ****************************/
/* &SELECTT = " AND 'X' NOT IN (SELECT 'X' FROM SYSADM.PS_TRANSACTION_INV T
WHERE T.BUSINESS_UNIT = PS_SHIP_INF_INV.BUSINESS_UNIT AND T.INV_ITEM_ID = PS_SH
IP_INF_INV.INV_ITEM_ID AND T.DT_TIMESTAMP >= PS_SHIP_INF_INV.SHIP_DATE - 30 AND
T.SHIP_ID = PS_SHIP_INF_INV.SHIP_ID) "; */
/**************************** mmcb.hd147325.eo ****************************/
/**************************** mmcb.hd147325.sn ****************************/
&SELECTT = " AND 'X' NOT IN (SELECT 'X' FROM SYSADM.PS_TRANSACTION_INV T WHER
E T.BUSINESS_UNIT = PS_SHIP_INF_INV.BUSINESS_UNIT AND T.INV_ITEM_ID = PS_SHIP_IN
F_INV.INV_ITEM_ID AND T.SOURCE_BUS_UNIT = PS_SHIP_INF_INV.SOURCE_BUS_UNIT AND T.
ORDER_NO = PS_SHIP_INF_INV.ORDER_NO AND T.ORDER_INT_LINE_NO = PS_SHIP_INF_INV.OR
DER_INT_LINE_NO AND T.SCHED_LINE_NO = PS_SHIP_INF_INV.SCHED_LINE_NO AND T.DEMAND
_LINE_NO = PS_SHIP_INF_INV.DEMAND_LINE_NO AND T.DT_TIMESTAMP >= PS_SHIP_INF_INV.
SHIP_DATE - 30 AND T.SHIP_ID = PS_SHIP_INF_INV.SHIP_ID)";
/**************************** mmcb.hd147325.en ****************************/
&SELECT4 = &SELECT1 | &SELECTV | &SELECT2 | &SELECTX | &SELECT3 | &SELECTT;
/**************************** mmcb.sds2736.en ****************************/
SQLExec(&SELECT4, NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID);
Gray(CONFIRMED_FLAG);
/****************************************************************************
***********************************************
Fabiano Cunha - MMC - 05/10/2006 - mmcb.AT1831 - Alterar o flag do embarque para
que o mesmo possa ser reduzido.
********************************************************************************
********************************************/
&SQL_DEMAND = CreateSQL("select B.business_unit,b.demand_source,b.source_bus_
unit, b.order_no, b.order_int_line_no, b.sched_line_no, b.inv_item_id, b.demand_
line_no FROM SYSADM.PS_MMC_NF_RELC_DEV A, SYSADM.PS_SHIP_INV_NF_BRL B WHERE A.BU
SINESS_UNIT_BI = :1 AND A.MMC_NF_bRL_ID_BI = :2 AND B.BUSINESS_UNIT_PO = A.BUSIN
ESS_UNIT AND B.NF_BRL_ID
= A.NF_BRL_ID AND B.DEMAND_SOURCE = 'RT' order b
y B.business_unit,b.demand_source,b.source_bus_unit, b.order_no, b.order_int_lin
e_no, b.sched_line_no, b.inv_item_id, b.demand_line_no", NF_HDR_BBL_VW3.BUSINESS
_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID);
While &SQL_DEMAND.Fetch(&business_unit, &demand_source, &source_bus_unit, &or
der_no, &order_int_line_no, &ched_line_no, &inv_item_id, &demand_line_no)
SQLExec("UPDATE sysadm.ps_ship_inf_inv SET PSSH_COMPLETE = 'N' where busin
ess_unit = :1 AND DEMAND_SOURCE = :2 AND SOURCE_BUS_UNIT = :3 AND ORDER_NO = :
4 and order_int_line_no =:5 and sched_line_no = :6 and inv_item_id = :7 and dem
and_line_no = :8 and PSSH_RUN_STATUS = '1' and PSSH_COMPLETE = 'Y'", &business_u
nit, &demand_source, &source_bus_unit, &order_no, &order_int_line_no, &ched_line
_no, &inv_item_id, &demand_line_no);
End-While;
&SQL_DEMAND.Close();
End-If;
/************************* mmcb.at2323.sn *************************************

*******/
&TE_CONFIRMED_FLAG = CONFIRMED_FLAG;
&TE_NF_BRL_ID = NF_HDR_BBL_VW3.NF_BRL_ID;
If &TE_CONFIRMED_FLAG = "Y" Then
SQLExec("select sh.setid, sh.mmc_te_sol_id, %dateout(sh.order_date), sh.so

urce_bus_unit,sh.order_no,sl.inv_item_id, to_number(to_char(sh.order_date,'MM'))
mes_baixa, sh.mmc_data_limite from sysadm.ps_mmc_te_sol_hdr sh, sysadm.ps_mmc_
te_sol_ln sl where sh.setid = sl.setid and sh.mmc_te_sol_id = sl.mmc_te_sol_id a
nd sh.order_no in ( select distinct order_no from sysadm.ps_rmneio_line_bbl r w
here r.business_unit = sh.source_bus_unit and r.nf_brl_id = :1 ) and mmc_te_sol_
status='4' and rownum = 1 ", &TE_NF_BRL_ID, &v_setid, &v_mmc_te_sol_id, &v_order
_date, &v_source_bus_unit, &v_order_no, &v_item_verifica, &MES_BAIXA, &V_MMC_DAT
A_LIMITE);
/********************************************** mmcb.hd54903.sn **********
*************************************/
If None(&v_mmc_te_sol_id) Then
SQLExec("select sh.setid, sh.mmc_te_sol_id, %dateout(sh.order_date), sh
.source_bus_unit,sh.order_no,sl.inv_item_id, to_number(to_char(sh.order_date,'MM
')) mes_baixa, sh.mmc_data_limite from sysadm.ps_mmc_te_sol_hdr sh, sysadm.ps_m
mc_te_sol_ln sl where sh.setid = sl.setid and sh.mmc_te_sol_id = sl.mmc_te_sol_i
d and sl.order_no in ( select distinct order_no from sysadm.ps_rmneio_line_bbl
r where r.business_unit = sh.source_bus_unit and r.nf_brl_id = :1 ) and mmc_te_s

ol_status='4' and rownum = 1 ", &TE_NF_BRL_ID, &v_setid, &v_mmc_te_sol_id, &v_o
rder_date, &v_source_bus_unit, &v_order_no, &v_item_verifica, &MES_BAIXA, &V_MMC
_DATA_LIMITE);
End-If;
/********************************************** mmcb.hd54903.en **********
*************************************/
/********************************************** mmcb.hd56098.sn **********
*************************************/
If None(&v_mmc_te_sol_id) Then
SQLExec("SELECT 'Y' FROM SYSADM.PS_NF_LN_BRL NL, SYSADM.PS_MMC_TE_TOF_T
YPE TT WHERE NL.BUSINESS_UNIT = :1 AND NL.NF_BRL_ID = :2 AND NL.TOF_PBL = TT.TOF
_PBL AND TT.MMC_CNTRL_TERC = 'Y' AND ROWNUM = 1", NF_HDR_BBL_VW3.BUSINESS_UNIT,
NF_HDR_BBL_VW3.NF_BRL_ID, &TOF_TERCEIRO);
SQLExec(" SELECT 'Y' FROM SYSADM.PS_RMNEIO_LINE_BBL WHERE (BUSINESS_UNI
T, RMNEIO_ID_BBL) IN (SELECT BUSINESS_UNIT_IN, RMNEIO_ID_BBL FROM SYSADM.PS_NF_H
DR_BRL WHERE BUSINESS_UNIT = :1 AND NF_BRL_ID = :2 ) AND ORDER_NO LIKE 'MSE%' AN
D ROWNUM = 1 ", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &V_NF_TE
RCEIRO_ERRO);
If All(&TOF_TERCEIRO) And
&V_NF_TERCEIRO_ERRO = "Y" Then
Error ("Nota Fiscal Terceiro ID: " | NF_HDR_BBL_VW3.NF_BRL_ID | " se
m Solicitao Identificada. - Verifique Operaes Fiscais!");
End-If;
End-If;
/********************************************** mmcb.hd56098.en **********
*************************************/
&MES_ATUAL = Month(%Date);
If All(&v_mmc_te_sol_id) Then
/* chc.sn */
SQLExec("SELECT 'E' FROM SYSADM.PS_RMNEIO_LINE_BBL RL WHERE RL.BUSINESS
_UNIT_BI = :1 AND RL.NF_BRL_ID = :2 AND 'X' NOT IN ( SELECT 'X' FROM SYSADM.PS_
MMC_TE_SOL_LN SL WHERE SL.ORDER_NO = RL.ORDER_NO AND SL.INV_ITEM_ID = RL.INV_ITE
M_ID AND SL.QTY = RL.RMNEIO_LIN_QTY_BBL AND SL.ORDER_INT_LINE_NO = RL.ORDER_INT_
LINE_NO ) UNION SELECT 'E' FROM SYSADM.PS_MMC_TE_SOL_LN SL WHERE SL.SETID = :3
AND SL.MMC_TE_SOL_ID = :4 AND 'X' NOT IN ( SELECT 'X' FROM SYSADM.PS_RMNEIO_LIN
E_BBL RL WHERE RL.BUSINESS_UNIT_BI = :5 AND RL.NF_BRL_ID = :6 AND SL.ORDER_NO =
RL.ORDER_NO AND SL.INV_ITEM_ID = RL.INV_ITEM_ID AND SL.QTY = RL.RMNEIO_LIN_QTY_B
BL AND SL.ORDER_INT_LINE_NO = RL.ORDER_INT_LINE_NO )", NF_HDR_BBL_VW3.BUSINESS_U
NIT, NF_HDR_BBL_VW3.NF_BRL_ID, &v_setid, &v_mmc_te_sol_id, NF_HDR_BBL_VW3.BUSINE
SS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &existe_erro_sol_nf);
If None(&existe_erro_sol_nf) Then
/* chc.en */
If &MES_BAIXA <> &MES_ATUAL Then
/*
WinMessage("Error: O MSR de nmero: " | &v_order_no |
" pertence ao ms " | &MES_BAIXA);*/
End-If;
/*------------------------------------------------------------ Verifica Operao fiscal da NF controla terceiro.
-------------------------------------------------------------*/
SQLExec("select tof_pbl from sysadm.ps_nf_ln_brl where business_unit
=:1 and nf_brl_id=:2 and nf_brl_line_num=1 ", NF_HDR_BBL_VW3.BUSINESS_UNIT, &TE_
NF_BRL_ID, &v_tof_pbl);
SQLExec("select a.mmc_cntrl_terc,a.mmc_stock_un from sysadm.ps_mmc_t
e_tof_type a where a.tof_pbl = :1 and a.effdt = (select max(a_ed.effdt) from sys
adm.ps_mmc_te_tof_type a_ed where a.tof_pbl = a_ed.tof_pbl and a_ed.effdt <= sys
date)", &v_tof_pbl, &v_mmc_cntrl_terc, &v_mmc_stock_un);
If &v_mmc_cntrl_terc = "Y" Then
/*------------------------------------------------------------ Verifica se a Solicitao Requisio Reduzida, se no feita a
reduo
-------------------------------------------------------------*/
SQLExec("select ship_id from ps_transaction_inv where business_un
it=:1 and dt_timestamp>=%datetimein(:2) -1 and inv_item_id=:3 and order_no=:4 an
d rownum = 1", &v_source_bus_unit, &v_order_date, &v_item_verifica, &v_order_no,
&v_ship_id);
If None(&v_ship_id) Then
SQLExec("select distinct ship_id from sysadm.ps_ship_inf_inv w
here business_unit=:1 and order_no=:2", &v_source_bus_unit, &v_order_no, &v_ship
id_baixa);
REDUCAO_ESTOQUE(&v_source_bus_unit, &v_shipid_baixa)
End-If;
/*|||||||||||||||||||||||||||||||||||||||||||||
|| VERIRICA SE SOLICITAO TERCEIROS TEM RETORNO.
|| SE A SOLICITAO TERCEIROS NO TIVER RETORNO NO
|| CRIA A CONTROLE ESTOQUE TERCEIROS.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/
If &V_MMC_DATA_LIMITE > 0 Then
&cmdSQL = CreateSQL("select sh.setid,sh.mmc_te_sol_id, sl.line
_nbr,sh.order_date,sh.source_bus_unit,sh.order_no, sl.order_int_line_no, sl.inv_
item_id,sh.business_unit_bi, sl.nf_brl_line_num from sysadm.ps_mmc_te_sol_hdr s
h, sysadm.ps_mmc_te_sol_ln sl where sh.setid = sl.setid and sh.mmc_te_sol_id = s
l.mmc_te_sol_id and sh.setid=:1 and sh.mmc_te_sol_id =:2 and mmc_te_sol_status='
4'", &v_setid, &v_mmc_te_sol_id);
While &cmdSQL.fetch(&VAR_SETID, &VAR_MMC_TE_SOL_ID, &VAR_LINE_
NBR, &VAR_ORDER_DATE, &VAR_SOURCE_BUS_UNIT, &VAR_ORDER_NO, &VAR_ORDER_INT_LINE_N
O, &VAR_INV_ITEM_ID, &VAR_BUSINESS_UNIT_BI, &VAR_NF_BRL_LINE_NUM)
SQLExec("select business_unit, inv_item_id, %datetimeout(dt
_timestamp), seq_nbr, %datetimeout(dt_timestamp+1/86400),unit_measure_std,qty,de
ptid, distrib_type,transaction_group from sysadm.ps_transaction_inv where busine
ss_unit=:1 and dt_timestamp >= %datetimein(:2) -1 and inv_item_id=:3 and order_n
o=:4 and order_int_line_no=:5", &VAR_SOURCE_BUS_UNIT, &VAR_ORDER_DATE, &VAR_INV_
ITEM_ID, &VAR_ORDER_NO, &VAR_ORDER_INT_LINE_NO, &TRAN_BUSINESS_UNIT, &TRAN_INV_I

TEM_ID, &TRAN_DT_TIMESTAMP, &TRAN_SEQ_NBR, &TRAN_DT_TIMESTAMP_IN, &TRAN_UNIT_MEA
SURE_STD, &TRAN_QTY, &TRAN_DEPTID, &TRAN_DISTRIB_TYPE, &TRAN_TRANSACTION_GROUP);
SQLExec("select config_code from sysadm.ps_ship_inf_inv whe
re business_unit=:1 and order_no=:2 and order_int_line_no=:3", &TRAN_BUSINESS_UN
IT, &TRAN_INV_ITEM_ID, &VAR_ORDER_INT_LINE_NO, &CONFIG_CODE_BAIXA);
/*|||||||||||||||||||||||||||||||||||||||||||||
|| Criando entrada na Unidade Estoque Terceiros.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/
&P_BUSINESS_UNIT = &v_mmc_stock_un;
&P_INV_LOT_ID = "NONE";
/*&P_INV_ITEM_ID = &TRAN_INV_ITEM_ID; mmcb.hd239977.lo*/
&P_INV_ITEM_ID = &VAR_INV_ITEM_ID; /*mmcb.hd239977.ln*/
&P_SERIAL_ID = "NONE";
SQLExec("select 'Y' from sysadm.ps_bu_items_inv where busin
ess_unit=:1 and inv_item_id =:2 ", &v_mmc_stock_un, &P_INV_ITEM_ID, &EXISTE_BU_I
TEM_INV);
If &EXISTE_BU_ITEM_INV <> "Y" Then
Error ("No existe parametrizao Unidade Negocio: " | &v_mmc_
stock_un | " para Item: " | &P_INV_ITEM_ID);
End-If;
/*SQLExec(" select storage_area,stor_level_1, stor_level_2,
stor_level_3, stor_level_4 from sysadm.ps_default_loc_inv where business_unit=:
1 and inv_item_id=:2 ", &v_mmc_stock_un, &TRAN_INV_ITEM_ID, &TRAN_STORAGE_AREA,
&TRAN_STOR_LEVEL_1, &TRAN_STOR_LEVEL_2, &TRAN_STOR_LEVEL_3, &TRAN_STOR_LEVEL_4);
mmcb.hd239977.lo */
SQLExec(" select storage_area,stor_level_1, stor_level_2, s
tor_level_3, stor_level_4 from sysadm.ps_default_loc_inv where business_unit=:1
and inv_item_id=:2 ", &v_mmc_stock_un, &P_INV_ITEM_ID, &TRAN_STORAGE_AREA, &TRAN
_STOR_LEVEL_1, &TRAN_STOR_LEVEL_2, &TRAN_STOR_LEVEL_3, &TRAN_STOR_LEVEL_4); /*mm
cb.hd239977.ln*/
If None(&TRAN_STORAGE_AREA) Or
None(&TRAN_STOR_LEVEL_1) Or
None(&TRAN_STOR_LEVEL_4) Then
/*Error ("No existe local de expedio padro na Unidade Tercei
ro: " | &v_mmc_stock_un | " para o Item: " | &TRAN_INV_ITEM_ID | " "); mmcb.hd
239977.lo*/
Error ("No existe local de expedio padro na Unidade Terceiro
: " | &v_mmc_stock_un | " para o Item: " | &P_INV_ITEM_ID | " "); /*mmcb.hd23997
7.ln*/
End-If;
&P_STORAGE_AREA = &TRAN_STORAGE_AREA;
&P_STOR_LEVEL_1 = &TRAN_STOR_LEVEL_1;
&P_CONTAINER_ID = " ";
&P_UNIT_OF_MEASURE = &TRAN_UNIT_MEASURE_STD;
&P_QTY = &TRAN_QTY;
&P_DEPTO = &TRAN_DEPTID;
/**********************************************************
********
&P_DISTRIB_TYPE = &TRAN_DISTRIB_TYPE;
******************************************************************/
&P_DISTRIB_TYPE = "TERCEIROS";
&P_DT_TIMESTAMP = &TRAN_DT_TIMESTAMP_IN;
&P_BUSINESS_UNIT_RECV = &v_mmc_stock_un;
&P_RECEIVER_ID = String(&VAR_MMC_TE_SOL_ID);
&P_RECV_LN_NBR = &VAR_LINE_NBR;
&P_RECV_SHIP_SEQ_NBR = 0;
&P_SOURCE_BUS_UNIT = &VAR_SOURCE_BUS_UNIT;
&P_ORDER_NO = &VAR_ORDER_NO;
&P_ORDER_INT_LINE_NO = &VAR_ORDER_INT_LINE_NO;
&P_PARAMETRO_OPCIONAL = "USA_CUSTO_UNIDADE_ORIGEM";
/*******---------------------------***********
Pegando custo Unidade Baixa para ser uzado unidade Entrada.
*******---------------------------***********/
/*&CUSTO_UN_ESTOQUE = BUSCA_CUSTO_ITEM(&TRAN_BUSINESS_UNIT,
&TRAN_INV_ITEM_ID, &TRAN_DT_TIMESTAMP, &CONFIG_CODE_BAIXA); mmcb.hd239977.ln
*/
&CUSTO_UN_ESTOQUE = BUSCA_CUSTO_ITEM(&v_mmc_stock_un, &P_IN
V_ITEM_ID, &TRAN_DT_TIMESTAMP, &CONFIG_CODE_BAIXA); /*mmcb.hd239977.ln*/
/*******---------------------------***********
FIM Pegando custo Unidade Baixa para ser uzado unidade Entrada.
*******---------------------------***********/
/*
ENTRADA_ESTOQUE(&P_BUSINESS_UNIT, &P_ST
AGED_DATE, &P_INV_LOT_ID, &P_INV_ITEM_ID, &P_SERIAL_ID, &P_STORAGE_AREA, &P_STOR
_LEVEL_1, &P_STOR_LEVEL_2, &P_STOR_LEVEL_3, &P_STOR_LEVEL_4, &P_CONTAINER_ID, &P
_UNIT_OF_MEASURE, &P_QTY, &P_DEPTO, &P_DISTRIB_TYPE, &P_DT_TIMESTAMP, &P_BUSINES
S_UNIT_RECV, &P_RECEIVER_ID, &P_RECV_LN_NBR, &P_RECV_SHIP_SEQ_NBR, &P_SOURCE_BUS
_UNIT, &P_ORDER_NO, &P_ORDER_INT_LINE_NO, &P_CUSTO, &P_CONFIG_CODE); */
ENTRADA_ESTOQUE(&P_BUSINESS_UNIT, &P_STAGED_DATE, &P_INV_LO
T_ID, &P_INV_ITEM_ID, &P_SERIAL_ID, &P_STORAGE_AREA, &P_STOR_LEVEL_1, &P_STOR_LE
VEL_2, &P_STOR_LEVEL_3, &P_STOR_LEVEL_4, &P_CONTAINER_ID, &P_UNIT_OF_MEASURE, &P
_QTY, &P_DEPTO, &P_DISTRIB_TYPE, &P_DT_TIMESTAMP, &P_BUSINESS_UNIT_RECV, &P_RECE
IVER_ID, &P_RECV_LN_NBR, &P_RECV_SHIP_SEQ_NBR, &P_SOURCE_BUS_UNIT, &P_ORDER_NO,
&P_ORDER_INT_LINE_NO, &CUSTO_UN_ESTOQUE, &P_INV_LOT_ID, &P_PARAMETRO_OPCIONAL);
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||||||||||||||
|| FIM Criando entrada na Unidade Estoque Terceiros.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
SQLExec("select business_unit, %datetimeout(dt_timestamp),
seq_nbr, transaction_group from sysadm.ps_transaction_inv where business_unit=:1
and dt_timestamp >= %datetimein(:2) -1 and inv_item_id=:3 and receiver_id=:4 an
d recv_ln_nbr =:5", &v_mmc_stock_un, &P_DT_TIMESTAMP, &P_INV_ITEM_ID, &P_RECEIVE

R_ID, &P_RECV_LN_NBR, &TRAN_020_BUSINESS_UNIT, &TRAN_020_DT_TIMESTAMP, &TRAN_020
_SEQ_NBR, &TRAN_020_TRANSACTION_GROUP);
If None(&TRAN_020_DT_TIMESTAMP) Or
None(&TRAN_020_SEQ_NBR) Then
Error ("No foi possivel encontrar Transao Terceiros.");
End-If;
If &VAR_LINE_NBR = 0 Then
Error ("Linha documento fiscal esta com o valor zerado."
);
End-If;
&REC_MMC_TE_TRANSAC.SETID.VALUE = &VAR_SETID;
&REC_MMC_TE_TRANSAC.MMC_TE_SOL_ID.VALUE = &VAR_MMC_TE_SOL_I
D;
&REC_MMC_TE_TRANSAC.LINE_NBR.VALUE = &VAR_LINE_NBR;
&REC_MMC_TE_TRANSAC.TRANSACTION_GROUP.VALUE = &TRAN_TRANSAC
TION_GROUP;
&REC_MMC_TE_TRANSAC.BUSINESS_UNIT_BI.VALUE = NF_HDR_BBL_VW3
.BUSINESS_UNIT;
&REC_MMC_TE_TRANSAC.NF_BRL_ID.VALUE = &TE_NF_BRL_ID;
&REC_MMC_TE_TRANSAC.NF_BRL_LINE_NUM.VALUE = &VAR_NF_BRL_LIN
E_NUM;
&REC_MMC_TE_TRANSAC.BUSINESS_UNIT.VALUE = &TRAN_BUSINESS_UN
IT;
&REC_MMC_TE_TRANSAC.INV_ITEM_ID.VALUE = &TRAN_INV_ITEM_ID;
&REC_MMC_TE_TRANSAC.DT_TIMESTAMP.VALUE = &TRAN_DT_TIMESTAMP
;
&REC_MMC_TE_TRANSAC.SEQ_NBR.VALUE = &TRAN_SEQ_NBR;
&REC_MMC_TE_TRANSAC.BUSINESS_UNIT_TO.VALUE = &TRAN_020_BUSI
NESS_UNIT;
&REC_MMC_TE_TRANSAC.DT_TIMESTAMP_TO.VALUE = &TRAN_020_DT_TI
MESTAMP;
&REC_MMC_TE_TRANSAC.SEQ_NBR_TO.VALUE = &TRAN_020_SEQ_NBR;
&REC_MMC_TE_TRANSAC.MMC_TRAN_GROUP.VALUE = &TRAN_020_TRANSA
CTION_GROUP;
End-While;
SQLExec("update sysadm.ps_mmc_te_sol_hdr set mmc_te_sol_status
='5', business_unit_bi = :1, nf_brl_id = :2, nf_brl_date = (select nh.nf_brl_dat
e from sysadm.ps_nf_hdr_brl nh where nh.business_unit = :3 and nh.nf_brl_id = :4
) where setid=:5 and mmc_te_sol_id=:6", NF_HDR_BBL_VW3.BUSINESS_UNIT, &TE_NF_BRL
_ID, NF_HDR_BBL_VW3.BUSINESS_UNIT, &TE_NF_BRL_ID, &v_setid, &v_mmc_te_sol_id);
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||||||||||||||||||||||||||||||||||||||
|| Criando saldo Estoque Terceiros.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
&cmdNfSQL = CreateSQL("select a.business_unit, a.nf_brl_id, a.
nf_brl, a.nf_brl_series, a.ship_to_cust_id, a.address_seq_num, a.irtax_brl_amt,
b.nf_brl_line_num, b.itm_setid, b.inv_item_id, b.qty_nf_brl, b.icmstax_brl_amt,
b.ipitax_brl_amt, b.pistax_brl_amt, b.cofinstax_brl_amt, b.isstax_brl_amt from s
ysadm.ps_nf_hdr_brl a, sysadm.ps_nf_ln_brl b where a.business_unit = b.business_
unit and a.nf_brl_id = b.nf_brl_id and a.business_unit =:1 and a.nf_brl_id =:
2 ", NF_HDR_BBL_VW3.BUSINESS_UNIT, &TE_NF_BRL_ID);
While &cmdNfSQL.fetch(&V_NF_BUSINESS_UNIT, &V_NF_NF_BRL_ID, &V

_NF_NF_BRL, &V_NF_NF_BRL_SERIES, &V_NF_SHIP_TO_CUST_ID, &V_NF_ADDRESS_SEQ_NUM, &
V_NF_IRTAX_BRL_AMT, &V_NF_NF_BRL_LINE_NUM, &V_NF_ITM_SETID, &V_NF_INV_ITEM_ID, &
V_NF_QTY_NF_BRL, &V_NF_ICMSTAX_BRL_AMT, &V_NF_IPITAX_BRL_AMT, &V_NF_PISTAX_BRL_A
MT, &V_NF_COFINSTAX_BRL_AMT, &V_NF_ISSTAX_BRL_AMT)
SQLExec("SELECT CV.VENDOR_ID, CV.ADDRESS1_VNDR FROM SYSADM.
PS_NF_HDR_BRL NH, SYSADM.PS_MMC_TE_CUST_VND CV WHERE NH.BUSINESS_UNIT = :1 AND N
H.NF_BRL_ID = :2 AND NH.SHIP_TO_CUST_ID = CV.CUST_ID AND NH.ADDRESS_SEQ_NUM = CV
.ADDRESS_SEQ_NUM", NF_HDR_BBL_VW3.BUSINESS_UNIT, &TE_NF_BRL_ID, &V_NF_SHIP_TO_CU
ST_ID, &V_NF_ADDRESS_SEQ_NUM);
&N_BUSINESS_UNIT = &V_NF_BUSINESS_UNIT;
&N_NF_BRL_ID = &V_NF_NF_BRL_ID;
&N_NF_BRL = &V_NF_NF_BRL;
&N_NF_BRL_SERIES = &V_NF_NF_BRL_SERIES;
/*&N_VENDOR_ID = &CLIENT_VENDORID;*/
&N_VENDOR_ID = &V_NF_SHIP_TO_CUST_ID;
&N_ADDRESS_SEQ_NUM = &V_NF_ADDRESS_SEQ_NUM;
&N_IRTAX_BRL_AMT = &V_NF_IRTAX_BRL_AMT;
&N_MMC_IR_SALDO = &V_NF_IRTAX_BRL_AMT;
&N_NF_BRL_LINE_NUM = &V_NF_NF_BRL_LINE_NUM;
&N_INV_ITEM_ID = &V_NF_INV_ITEM_ID;
&N_INV_LOT_ID = "NONE";
&N_SERIAL_ID = "NONE";
&N_QTY = &V_NF_QTY_NF_BRL;
&N_QTY_AVAILABLE = &V_NF_QTY_NF_BRL;
&N_ICMSTAX_BRL_AMT = &V_NF_ICMSTAX_BRL_AMT;
&N_MMC_ICMS_SALDO = &V_NF_ICMSTAX_BRL_AMT;
&N_IPITAX_BRL_AMT = &V_NF_IPITAX_BRL_AMT;
&N_MMC_IPI_SALDO = &V_NF_IPITAX_BRL_AMT;
&N_PISTAX_BRL_AMT = &V_NF_PISTAX_BRL_AMT;
&N_MMC_PIS_SALDO = &V_NF_PISTAX_BRL_AMT;
&N_COFINSTAX_BRL_AMT = &V_NF_COFINSTAX_BRL_AMT;
&N_MMC_COFINS_SALDO = &V_NF_COFINSTAX_BRL_AMT;
&N_ISSTAX_BRL_AMT = &V_NF_ISSTAX_BRL_AMT;
&N_MMC_ISS_SALDO = &V_NF_ISSTAX_BRL_AMT;
GRAVA_SALDO_NF_TERCEIRO(&N_BUSINESS_UNIT, &N_NF_BRL_ID, &N_

NF_BRL, &N_NF_BRL_SERIES, &N_VENDOR_ID, &N_ADDRESS_SEQ_NUM, &N_IRTAX_BRL_AMT, &N
_MMC_IR_SALDO, &N_NF_BRL_LINE_NUM, &N_INV_ITEM_ID, &N_INV_LOT_ID, &N_SERIAL_ID,
&N_QTY, &N_QTY_AVAILABLE, &N_ICMSTAX_BRL_AMT, &N_MMC_ICMS_SALDO, &N_IPITAX_BRL_A
MT, &N_MMC_IPI_SALDO, &N_PISTAX_BRL_AMT, &N_MMC_PIS_SALDO, &N_COFINSTAX_BRL_AMT,
&N_MMC_COFINS_SALDO, &N_ISSTAX_BRL_AMT, &N_MMC_ISS_SALDO);
End-While;
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||||||||||||||||||||||||||||||||||||||
|| FIM Criando saldo Estoque Terceiros.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
End-If;
/* IF &V_MMC_DATA_LIMITE > 0 THEN */
/* Else
Error ("Existe uma divergencia Codigo Operao Fiscal"); */
End-If;
/* &v_mmc_cntrl_terc */
/* chc.sn */
End-If;
/* If None(&existe_erro_sol_nf) */
/* chc.en */
End-If;
/* If All(&v_mmc_te_sol_id) */
End-If;
/* If CONFIRMED_FLAG = "Y" */
/* End-For; */
End-If;
/* %Page = Page.NF_CNFM_BBL Then*/
/************************************* mmcb.sds5105.sn *************************

************/
/*Atualiza o status das solicitaes eletrnicas de "Em Ordem" para "Faturada"*/
If %Component = "NF_CNFM_BBL" And
CONFIRMED_FLAG = "Y" Then
/*Recupera o SetId Geral*/
/*Atualiza pelo nmero da NF*/
&UPDATE = "";
&UPDATE = &UPDATE | "UPDATE SYSADM.PS_MMC_TE_SOL_HDR SET MMC_TE_SOL_STATUS =
'5' ";
&UPDATE = &UPDATE | "WHERE MMC_TE_SOL_STATUS = '4' ";
&UPDATE = &UPDATE | "AND ( SETID ";
&UPDATE = &UPDATE | "
, MMC_TE_SOL_ID) = ( ";
SELECT SETID ";
,
MMC_TE_SOL_ID ";
FROM SYSADM.PS_MMC_TE_SOL_LN
";
WHERE SETID
= :1
";
AND BUSINESS_UNIT_BI = :2
";
AND NF_BRL_ID
= :3
";
AND ROWNUM
= 1 "
;
) ";
SQLExec(&UPDATE, &SETID, NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_
ID);
/*Atualiza pelo nmero da ordem*/
&UPDATE = "";
&UPDATE = &UPDATE | "UPDATE SYSADM.PS_MMC_TE_SOL_HDR SET MMC_TE_SOL_STATUS =
'5' ";
&UPDATE = &UPDATE | "WHERE MMC_TE_SOL_STATUS = '4' ";
&UPDATE = &UPDATE | "AND ( SETID ";
, MMC_TE_SOL_ID) = ( ";
SELECT SHD.SETID ";
,
SHD.MMC_TE_SOL_ID ";
FROM SYSADM.PS_MMC_TE_SOL_HD
R SHD ";
,
SYSADM.PS_MMC_TE_SOL_LN
SLN ";
,
SYSADM.PS_RMNEIO_LINE_B
BL RLB ";
WHERE SHD.SETID
= :1 ";
AND SHD.MMC_TE_SOL_STATUS
= '4' ";
AND SLN.SETID
= SHD.SETID ";
AND SLN.MMC_TE_SOL_ID
= SHD.MMC_TE_SOL_ID ";
AND RLB.SOURCE_BUS_UNIT
= SHD.SOURCE_BUS_UNIT ";
AND RLB.ORDER_NO
= SLN.ORDER_NO ";
AND RLB.ORDER_INT_LINE_NO
= SLN.ORDER_INT_LINE_NO ";
AND RLB.BUSINESS_UNIT_BI
= :2 ";
AND RLB.NF_BRL_ID
= :3 ";
AND ROWNUM
= 1 ";
) ";
SQLExec(&UPDATE, &SETID, NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_
ID);
End-If;
/************************************* mmcb.sds5105.en *************************
************/
/************************* mmcb.at2323.en *************************************

*******/
/*** Jeison Caldas - 23/01/08 - Ativ.2440 - Controle de transferncia de Ativos Inicio ***/
If %Component = "NF_CNFM_BBL" And
CONFIRMED_FLAG = "Y" Then
SQLExec("SELECT IN_OUT_CD_BBL FROM SYSADM.PS_NF_HDR_BBL_FS WHERE BUSINESS_UNI
T = :1 AND NF_BRL_ID = :2", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_
ID, &IN_OUT_CD_BBL);
If &IN_OUT_CD_BBL = "O" Then
REM Jeison Caldas - 26.11.09 - SDS 3085 - Acrescentado select abaixo para
buscar quantidade de linhas da nota - L.N.;
SQLExec("SELECT MAX(NF_BRL_LINE_NUM) FROM SYSADM.PS_NF_LN_BBL_FS WHERE BUS
INESS_UNIT = :1 AND NF_BRL_ID = :2", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW
3.NF_BRL_ID, &ROWS);
For &LN = 1 To &ROWS
SQLExec("SELECT A.ASSET_ID, C.MMC_TIPO_TRANSF_AM, BH.SHIP_TO_CUST_ID, B
H.NF_BRL, BH.NF_BRL_SERIES, BH.LT_GRP_ID_BBL FROM PS_MMC_FAT_ITM_ATI A, PS_NF_HD
R_BBL_FS BH, PS_NF_LN_BBL_FS B, PS_MMC_ATIVO_OFISC C WHERE A.BUSINESS_UNIT = BH
.BUSINESS_UNIT AND A.NF_BRL_ID = BH.NF_BRL_ID AND A.NF_BRL_LINE_NUM = B.NF_BRL_L
INE_NUM AND B.BUSINESS_UNIT = BH.BUSINESS_UNIT AND B.NF_BRL_ID = BH.NF_BRL_ID A
ND B.TOF_PBL = C.TOF_PBL AND C.MMC_MOVIMENT_ATIVO = 'Y' AND C.EFFDT = (SELECT MA
X(D_ED.EFFDT) FROM PS_MMC_ATIVO_OFISC D_ED WHERE D_ED.TOF_PBL = C.TOF_PBL AND D
_ED.EFFDT <= SYSDATE) AND A.BUSINESS_UNIT = :1 AND A.NF_BRL_ID = :2 AND B.NF_BRL
_LINE_NUM = :3", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &LN, &A
SSET_ID, &TIPO_MOV, &LOCATION, &NF_BRL, &SERIE_NF, &IDGRUPO);
REM SOLICITADO PELO BORGES EM 23.02.10 PARA MOVIMENTAO INTERNA NO GERAR NE
NHUM TRATAMENTO, J QUE SER FEITO NO RECEBIMENTO DA NOTA FISCAL;
If &TIPO_MOV <> "I" Then
/************************** mmcb.sds4689.so ************************
**/
/*
&BU = BU_SETID("COCT1");
*/
/************************** mmcb.sds4689.eo ************************
**/
/************************** mmcb.sds4689.sn ************************
**/
SQLExec("SELECT BUSINESS_UNIT_GL FROM SYSADM.PS_BUS_UNIT_TBL_BI WHER
E BUSINESS_UNIT = :1", NF_HDR_BBL_VW3.BUSINESS_UNIT, &BU);
/************************** mmcb.sds4689.en ************************
**/
&DATA = %Date;
&OPRID = %OperatorId;
&EXISTE_ATI = "N";
SQLExec("SELECT 'Y' FROM PS_ASSET_LOCATION WHERE BUSINESS_UNIT = :1
AND ASSET_ID = :2 AND DOCUMENT_ID = :3", &BU, &ASSET_ID, &NF_BRL, &EXISTE_ATI);
If &EXISTE_ATI <> "Y" Then
If All(&ASSET_ID) Then
REM MOVIMENTAO NAS TABELAS DO ATIVO;
SQLExec("SELECT MAX(EFFSEQ + 1) FROM PS_ASSET_LOCATION WHERE B
USINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &ASSET_ID, &EFFSEQ);
SQLExec("INSERT INTO PS_ASSET_LOCATION (BUSINESS_UNIT, ASSET_I
D, EFFDT, EFFSEQ, LOCATION, DOCUMENT_ID, AUTH_STATUS, AUTHORIZATION_NAME) VALUES
(:1,:2, %DATEIN(:3), :4,:5,:6,:7,:8)", &BU, &ASSET_ID, &DATA, &EFFSEQ, &LOCATION
, &NF_BRL, " ", " ");
/****************************** mmcb.sds3686.sn **************

****************/
SQLExec("INSERT INTO PS_MMC_ASSET_LOC (BUSINESS_UNIT, ASSET_ID
, EFFDT, EFFSEQ, BUSINESS_UNIT_BI, NF_BRL_ID, NF_BRL_LINE_NUM) VALUES(:1,:2, %DA
TEIN(:3), :4,:5,:6,:7)", &BU, &ASSET_ID, &DATA, &EFFSEQ, NF_HDR_BBL_VW3.BUSINESS

_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &LN);
/****************************** mmcb.sds3686.en **************
****************/
SQLExec("UPDATE PS_BOOK SET LAST_TRANS_DT = %datein(:3), LAST_

ACCOUNTING_DT = %datein(:3) WHERE BUSINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &A
SSET_ID, &DATA);
SQLExec("SELECT SUBSTR(NAME1,1,30) FROM PS_CUSTOMER WHERE CUST
_ID = :1", &LOCATION, &CUSTODIAN);
SQLExec("SELECT MAX(EFFSEQ + 1) FROM PS_ASSET_CUSTODIAN WHERE
BUSINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &ASSET_ID, &EFFSEQ);
&NF_BRL_CUSTODIAN = "NF." | &IDGRUPO | &NF_BRL | "-" | &SERIE_
NF;
SQLExec("INSERT INTO PS_ASSET_CUSTODIAN (BUSINESS_UNIT, ASSET_
ID, EFFDT, EFFSEQ, CUSTODIAN, EMPLID, OPERATING_UNIT, DEPTID, PROJECT_ID, OFFSIT
E_SW, AUTH_STATUS, AUTHORIZATION_NAME, AUTHORIZATION_DT) VALUES(:1,:2, %DATEIN(:
3),:4,:5,:6,:7,:8, :9, :10, :11, :12, %DATEIN(:13))", &BU, &ASSET_ID, &DATA, &EF
FSEQ, &CUSTODIAN, " ", " ", " ", " ", "Y", "A", &NF_BRL_CUSTODIAN, &DATA);
/****************************** mmcb.sds3686.sn **************

****************/
&SQL = CreateSQL("SELECT CHILD_ASSET_ID FROM SYSADM.PS_PRNT_CH
_VW_ABL WHERE BUSINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &ASSET_ID);
While &SQL.Fetch(&V_CHILD_ASSET_ID)
SQLExec("SELECT MAX(EFFSEQ + 1) FROM PS_ASSET_LOCATION WHER
E BUSINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &V_CHILD_ASSET_ID, &EFFSEQ);
SQLExec("INSERT INTO PS_ASSET_LOCATION (BUSINESS_UNIT, ASSE
T_ID, EFFDT, EFFSEQ, LOCATION, DOCUMENT_ID, AUTH_STATUS, AUTHORIZATION_NAME) VAL
UES(:1,:2, %DATEIN(:3), :4,:5,:6,:7,:8)", &BU, &V_CHILD_ASSET_ID, &DATA, &EFFSEQ
, &LOCATION, &NF_BRL, " ", " ");
SQLExec("INSERT INTO PS_MMC_ASSET_LOC (BUSINESS_UNIT, ASSET
_ID, EFFDT, EFFSEQ, BUSINESS_UNIT_BI, NF_BRL_ID, NF_BRL_LINE_NUM) VALUES(:1,:2,
%DATEIN(:3), :4,:5,:6,:7)", &BU, &V_CHILD_ASSET_ID, &DATA, &EFFSEQ, NF_HDR_BBL_V
W3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &LN);
End-While;
/****************************** mmcb.sds3686.en **************
****************/
End-If;
End-If;
/****************************** mmcb.sds3686.sn ********************

**********/
Else
/************************** mmcb.sds4689.so ************************
**/
/*
&BU = BU_SETID("COCT1");
*/
/************************** mmcb.sds4689.eo ************************
**/
/************************** mmcb.sds4689.sn ************************
**/
SQLExec("SELECT BUSINESS_UNIT_GL FROM SYSADM.PS_BUS_UNIT_TBL_BI WHER
E BUSINESS_UNIT = :1", NF_HDR_BBL_VW3.BUSINESS_UNIT, &BU);
/************************** mmcb.sds4689.en ************************
**/
&DATA = %Date;
&EXISTE_ATI = "N";
SQLExec("SELECT 'Y' FROM PS_ASSET_LOCATION WHERE BUSINESS_UNIT = :1
AND ASSET_ID = :2 AND DOCUMENT_ID = :3", &BU, &ASSET_ID, &NF_BRL, &EXISTE_ATI);
If &EXISTE_ATI <> "Y" Then
SQLExec("SELECT LOCATION FROM PS_ASSET_LOC_VW WHERE BUSINESS_U
NIT = :1 AND ASSET_ID = :2", &BU, &ASSET_ID, &LOCATION_ATUAL);
SQLExec("SELECT MAX(EFFSEQ + 1) FROM PS_ASSET_LOCATION WHERE B
USINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &ASSET_ID, &EFFSEQ);
SQLExec("INSERT INTO PS_ASSET_LOCATION (BUSINESS_UNIT, ASSET_I
D, EFFDT, EFFSEQ, LOCATION, DOCUMENT_ID, AUTH_STATUS, AUTHORIZATION_NAME) VALUES
(:1,:2, %DATEIN(:3), :4,:5,:6,:7,:8)", &BU, &ASSET_ID, &DATA, &EFFSEQ, &LOCATION
_ATUAL, &NF_BRL, " ", " ");
SQLExec("INSERT INTO PS_MMC_ASSET_LOC (BUSINESS_UNIT, ASSET_ID
, EFFDT, EFFSEQ, BUSINESS_UNIT_BI, NF_BRL_ID, NF_BRL_LINE_NUM) VALUES(:1,:2, %DA
TEIN(:3), :4,:5,:6,:7)", &BU, &ASSET_ID, &DATA, &EFFSEQ, NF_HDR_BBL_VW3.BUSINESS
_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &LN);
SQLExec("UPDATE PS_BOOK SET LAST_TRANS_DT = %datein(:3), LAST_
ACCOUNTING_DT = %datein(:3) WHERE BUSINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &A
SSET_ID, &DATA);
&SQL = CreateSQL("SELECT CHILD_ASSET_ID FROM SYSADM.PS_PRNT_CH
_VW_ABL WHERE BUSINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &ASSET_ID);
SQLExec("SELECT MAX(EFFSEQ + 1) FROM PS_ASSET_LOCATION WHER
E BUSINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &V_CHILD_ASSET_ID, &EFFSEQ);
SQLExec("INSERT INTO PS_ASSET_LOCATION (BUSINESS_UNIT, ASSE
T_ID, EFFDT, EFFSEQ, LOCATION, DOCUMENT_ID, AUTH_STATUS, AUTHORIZATION_NAME) VAL
UES(:1,:2, %DATEIN(:3), :4,:5,:6,:7,:8)", &BU, &V_CHILD_ASSET_ID, &DATA, &EFFSEQ

, &LOCATION_ATUAL, &NF_BRL, " ", " ");
SQLExec("INSERT INTO PS_MMC_ASSET_LOC (BUSINESS_UNIT, ASSET
_ID, EFFDT, EFFSEQ, BUSINESS_UNIT_BI, NF_BRL_ID, NF_BRL_LINE_NUM) VALUES(:1,:2,
%DATEIN(:3), :4,:5,:6,:7)", &BU, &V_CHILD_ASSET_ID, &DATA, &EFFSEQ, NF_HDR_BBL_V
W3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &LN);
End-While;
End-If;
End-If;
/****************************** mmcb.sds3686.en ********************
**********/
End-If;
End-For;
/* Help Desk 49864 14/07/2008 - */
End-If;
End-If;
/* Help Desk 49864 14/07/2008 - */
/*** Jeison Caldas - 23/01/08 - Ativ.2440 - Controle de transferncia de Ativos Fim ***/
/************************* mmcb.at2617.sn *************************************
*******/
/*##############################################################################
#######
#
I N I C I O R E M E S S A R A L L Y
#
################################################################################
######*/
If All(MMC_RALLY_WRK.MMC_RALLY_ID) Then
SQLExec("select count(business_unit) from sysadm.ps_MMC_IN_RALLYPAR where
setid =:1 and mmc_rally_id=:2 ", MMC_RALLY_WRK.SETID, MMC_RALLY_WRK.MMC_RALLY_I
D, &COUNT_RM_PARAM);
If &COUNT_RM_PARAM = 0 Then
Error ("Erro Retorno Rally: No e possivel fazer remessa de Rally sem par
ametrizao. Para solucinar o problema faa rarametrizao no caminho: Home > Menu MMC > M
enu MMC > Rally > Parametrizao Remessa Rally ");
End-If;
End-If;
&SQL = "
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
D | "'";
&SQL = &SQL
_UNIT | "'";
| "
| "
| "
SELECT ";
A.LT_GRP_ID_BBL ";
FROM SYSADM.PS_NF_HDR_BRL A ";
WHERE A.NF_BRL_ID
= '" | NF_HDR_BBL_VW3.NF_BRL_I
| "
AND A.BUSINESS_UNIT
= '" | NF_HDR_BBL_VW3.BUSINESS
SQLExec(&SQL, &VAR_LT_GRP_ID_BBL);
SQLExec("select 'Y' from sysadm.ps_mmc_in_rallypar where LT_GRP_ID_BBL =:1 an
d rownum = 1", &VAR_LT_GRP_ID_BBL, &RNF_RALLY);
If &RNF_RALLY = "Y" Then
If None(MMC_RALLY_WRK.SETID) Or
None(MMC_RALLY_WRK.MMC_RALLY_ID) Or
MMC_RALLY_WRK.MMC_RALLY_ID = 0 Then
Error ("Erro Remessa Rally: Grupo Operacao da NF: " | NF_HDR_BBL_VW3.NF
_BRL_ID | " de Remessa Rally, selecione o Rally Relativo a NF.");
Else
&VAR_RALLY_SETID = MMC_RALLY_WRK.SETID;
&VAR_RALLY_ID = MMC_RALLY_WRK.MMC_RALLY_ID;
End-If;
End-If;
If All(&VAR_RALLY_ID) And
&VAR_RALLY_ID > 0 Then
SQLExec("select count(*) from sysadm.ps_mmc_rally where eff_status ='A'",
&NUMERO_RALLY_ATIVO);
If &NUMERO_RALLY_ATIVO <> 1 Then
Error ("Erro Remessa Rally: Existe mais de uma Rally Ativo, acerte o ca
dastro e tente novamente.");
End-If;
CHECA_REMESSA_OPERACAO_PARAM(&VAR_RALLY_SETID, &VAR_RALLY_ID, NF_HDR_BBL_V
W3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &VAR_LT_GRP_ID_BBL);
/*|||||||||||||||||||||||||||||||||||||||||||||
|| INICIO: Reduo Estoque
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/
&SQL3 = "
&SQL3 = &SQL3
&SQL3 = &SQL3
&SQL3 = &SQL3
&SQL3 = &SQL3
&SQL3 = &SQL3
&SQL3 = &SQL3
&SQL3 = &SQL3
INESS_UNIT | "' ";
SELECT
|
|
|
|
|
|
|
"
"
"
"
"
"
"
DISTINCT C.BUSINESS_UNIT, ";

C.SHIP_ID ";
FROM SYSADM.PS_NF_HDR_BRL A, ";
SYSADM.PS_NF_LN_BRL B, ";
SYSADM.PS_RMNEIO_LINE_BBL C, ";
SYSADM.PS_DEMAND_PHYS_INV D, ";
SYSADM.PS_SHIP_INF_INV SHIP ";
WHERE B.BUSINESS_UNIT = '" | NF_HDR_BBL_VW3.BUS
&SQL3 = &SQL3
L_ID | "' ";
&SQL3 = &SQL3
&SQL3 = &SQL3
&SQL3 = &SQL3
;
&SQL3 = &SQL3
&SQL3 = &SQL3
";
&SQL3 = &SQL3
&SQL3 = &SQL3
&SQL3 = &SQL3
";
&SQL3 = &SQL3
&SQL3 = &SQL3
NO ";
&SQL3 = &SQL3
&SQL3 = &SQL3
&SQL3 = &SQL3
";
&SQL3 = &SQL3
SS_UNIT
";
&SQL3 = &SQL3
_SOURCE
";
&SQL3 = &SQL3
_BUS_UNIT
";
&SQL3 = &SQL3
NO
";
&SQL3 = &SQL3
INT_LINE_NO ";
&SQL3 = &SQL3
LINE_NO
";
&SQL3 = &SQL3
EM_ID
";
&SQL3 = &SQL3
_LINE_NO
";
| "
AND B.NF_BRL_ID = '" | NF_HDR_BBL_VW3.NF_BR
| "
| "
| "
AND A.BUSINESS_UNIT = B.BUSINESS_UNIT ";

AND A.NF_BRL_ID = B.NF_BRL_ID ";
AND C.BUSINESS_UNIT_BI = B.BUSINESS_UNIT "
| "
| "
AND C.NF_BRL_ID = B.NF_BRL_ID ";

AND C.NF_BRL_LINE_NUM = B.NF_BRL_LINE_NUM
| "
| "
| "
AND D.BUSINESS_UNIT = C.BUSINESS_UNIT ";

AND D.DEMAND_SOURCE = C.DEMAND_SOURCE ";
AND D.SOURCE_BUS_UNIT = C.SOURCE_BUS_UNIT
| "
| "
AND D.ORDER_NO = C.ORDER_NO ";

AND D.ORDER_INT_LINE_NO = C.ORDER_INT_LINE_
| "
| "
| "
AND D.SCHED_LINE_NO = C.SCHED_LINE_NO ";

AND D.INV_ITEM_ID = C.INV_ITEM_ID ";
AND D.DEMAND_LINE_NO = D.DEMAND_LINE_NO
| "
AND SHIP.BUSINESS_UNIT
D.BUSINE
| "
AND SHIP.DEMAND_SOURCE
D.DEMAND
| "
AND SHIP.SOURCE_BUS_UNIT
D.SOURCE
| "
AND SHIP.ORDER_NO
D.ORDER_
| "
AND SHIP.ORDER_INT_LINE_NO
D.ORDER_
| "
AND SHIP.SCHED_LINE_NO
D.SCHED_
| "
AND SHIP.INV_ITEM_ID
D.INV_IT
| "
AND SHIP.DEMAND_LINE_NO
D.DEMAND
&cmdSQL3 = CreateSQL(&SQL3);
While &cmdSQL3.fetch(&BAIXA_BUSINESS_UNIT, &BAIXA_SHIP_ID)
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
SS_UNIT | "' ";
&SQL_UPDATE
";
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
=
=
=
=
=
"
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
|
|
|
|
UPDATE SYSADM.PS_SHIP_INF_INV ";

" SET SHIPPED_FLAG
= 'Y'
";
"
, PSSH_COMPLETE
= 'N' ";
"
, PSSH_RUN_STATUS
= '1' ";
" WHERE BUSINESS_UNIT= '" | &BAIXA_BUSINE
= &SQL_UPDATE | "
=
=
=
=
=
=
=
=
=
=
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
&SQL_UPDATE
|
|
|
|
|
|
|
|
|
|
AND
SHIP_ID= '" | &BAIXA_SHIP_ID | "'
" AND ( ";

"
BUSINESS_UNIT, ";
"
ORDER_NO, ";
"
ORDER_INT_LINE_NO, ";
"
SCHED_LINE_NO, ";
"
INV_ITEM_ID, ";
"
DEMAND_LINE_NO ";
"
) ";
" NOT IN ";
"
( ";
&SQL_UPDATE = &SQL_UPDATE | "

SELECT TRAN.BUSINESS_UNIT, ";

TRAN.ORDER_NO, ";
TRAN.ORDER_INT_LINE_NO,
";
V TRAN ";
";
O, ";
";
;
S_UNIT, ";
M_ID, ";
O, ";
NT_LINE_NO, ";
INE_NO, ";
LINE_NO ";
IP_INF_INV SHIP ";
S_UNIT= '" | &BAIXA_BUSINESS_UNIT | "' ";
= '" | &BAIXA_SHIP_ID | "' ";
S_UNIT
= TRAN.BUSINESS_UNIT ";
M_ID
= TRAN.INV_ITEM_ID ";
O
= TRAN.ORDER_NO ";
NT_LINE_NO = TRAN.ORDER_INT_LINE_NO ";
INE_NO
= TRAN.SCHED_LINE_NO ";
LINE_NO
= TRAN.DEMAND_LINE_NO ";
TRAN.SCHED_LINE_NO, ";
TRAN.INV_ITEM_ID, ";
TRAN.DEMAND_LINE_NO ";
FROM SYSADM.PS_TRANSACTION_IN
WHERE ( ";
TRAN.BUSINESS_UNIT,
TRAN.INV_ITEM_ID, ";
TRAN.ORDER_NO, ";
TRAN.ORDER_INT_LINE_N
TRAN.SCHED_LINE_NO,
TRAN.DEMAND_LINE_NO "
) ";
IN ";
( ";
SELECT SHIP.BUSINES
SHIP.INV_ITE
SHIP.ORDER_N
SHIP.ORDER_I
SHIP.SCHED_L
SHIP.DEMAND_
FROM SYSADM.PS_SH
WHERE SHIP.BUSINES
AND SHIP.SHIP_ID
AND SHIP.BUSINES
AND SHIP.INV_ITE
AND SHIP.ORDER_N
AND SHIP.ORDER_I
AND SHIP.SCHED_L
AND SHIP.DEMAND_
) ";
)
";
SQLExec(&SQL_UPDATE);
SQLExec("SELECT DISTINCT SHIP_ID FROM SYSADM.PS_SHIP_INF_INV WHERE BUSI
NESS_UNIT=:1 AND SHIP_ID=:2 AND SHIPPED_FLAG='Y' AND CANCEL_FLAG = 'N' AND PSSH_
COMPLETE = 'N' AND PSSH_RUN_STATUS = '1'", &BAIXA_BUSINESS_UNIT, &BAIXA_SHIP_ID,

&SHIPID_VALIDO);
If All(&SHIPID_VALIDO) Then
REDUCAO_ESTOQUE(&BAIXA_BUSINESS_UNIT, &BAIXA_SHIP_ID);
End-If;
End-While;
/*|||||||||||||||||||||||||||||||||||||||||||||
|| FIM: Reduo Estoque
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/
/*|||||||||||||||||||||||||||||||||||||||||||||
|| Criando entrada Estoque Rally.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
SS_UNIT | "'
&SQL1 =
| "' ";
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
&SQL1 =
";
&SQL1 =
&SQL1 =
O ";
&SQL1 =
&SQL1 =
&SQL1 =
"
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
";
&SQL1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
SELECT B.BUSINESS_UNIT,
";
B.NF_BRL_ID,
";
C.BUSINESS_UNIT,
";
B.NF_BRL_LINE_NUM,
";
B.INV_ITEM_ID,
";
B.UNIT_OF_MEASURE,
";
B.QTY_NF_BRL,
";
SHIP.DISTRIB_TYPE,
";
SHIP.BUSINESS_UNIT,
";
SHIP.ORDER_NO,
";
SHIP.ORDER_INT_LINE_NO,
";
SHIP.SCHED_LINE_NO,
";
SHIP.DEMAND_LINE_NO,
";
B.TOF_PBL
";
FROM SYSADM.PS_NF_HDR_BRL A,
";
SYSADM.PS_NF_LN_BRL B,
";
SYSADM.PS_RMNEIO_LINE_BBL C, ";
SYSADM.PS_SHIP_INF_INV SHIP ";
WHERE B.BUSINESS_UNIT = '" | NF_HDR_BBL_VW3.BUSINE
| "
AND B.NF_BRL_ID = '" | NF_HDR_BBL_VW3.NF_BRL_ID
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
&SQL1
|
|
|
|
|
|
|
|
AND
AND
AND
AND
AND
AND
AND
AND
"
"
"
"
"
"
"
"
A.BUSINESS_UNIT = B.BUSINESS_UNIT ";

A.NF_BRL_ID = B.NF_BRL_ID ";
C.BUSINESS_UNIT_BI = B.BUSINESS_UNIT ";
C.NF_BRL_ID = B.NF_BRL_ID ";
C.NF_BRL_LINE_NUM = B.NF_BRL_LINE_NUM ";
SHIP.BUSINESS_UNIT = C.BUSINESS_UNIT ";
SHIP.DEMAND_SOURCE = C.DEMAND_SOURCE ";
SHIP.SOURCE_BUS_UNIT = C.SOURCE_BUS_UNIT
&SQL1 | "
&SQL1 | "
AND SHIP.ORDER_NO = C.ORDER_NO ";

AND SHIP.ORDER_INT_LINE_NO = C.ORDER_INT_LINE_N
&SQL1 | "
&SQL1 | "
&SQL1 | "
AND SHIP.SCHED_LINE_NO = C.SCHED_LINE_NO

";
AND SHIP.INV_ITEM_ID = C.INV_ITEM_ID
";
AND SHIP.DEMAND_LINE_NO = C.DEMAND_LINE_NO ";
&SQL1 = &SQL1 | "

_LINE_NUM
";
ORDER BY B.BUSINESS_UNIT, B.NF_BRL_ID, B.NF_BRL
&cmdSQL = CreateSQL(&SQL1);
While &cmdSQL.fetch(&VR_BUSINESS_UNIT, &VR_NF_BRL_ID, &VR_BUSINESS_UNIT_IN
, &VR_NF_BRL_LINE_NUM, &VR_INV_ITEM_ID, &VR_UNIT_OF_MEASURE, &VR_QTY_NF_BRL, &VR
_DISTRIB_TYPE, &VR_BUSINESS_UNIT_BAIXA, &VR_ORDER_NO, &VR_ORDER_INT_LINE_NO, &VR
_SCHED_LINE_NO, &VR_DEMAND_LINE_NO, &VR_TOF_PBL)
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
=
=
=
=
=
=
=
=
=
=
=
=
"";
" select ";
&SQL | "
business_unit, ";
&SQL | "
storage_area, ";
&SQL | "
stor_level_1, ";
&SQL | "
stor_level_2, ";
&SQL | "
stor_level_3, ";
&SQL | "
stor_level_4,
";
&SQL | "
DISTRIB_TYPE
";
&SQL | "
from sysadm.ps_mmc_rally r , ";
&SQL | "
sysadm.ps_mmc_in_rallypar inpar ";
&SQL | " where r.setid
= '" | &VAR_RALLY_SETI
&SQL
&SQL
&SQL
&SQL
BBL | "'";
&SQL
;
=
=
=
=
&SQL
&SQL
&SQL
&SQL
D | "'";
|
|
|
|
"
"
"
"
= &SQL | "
and
and
and
and
r.mmc_rally_id
inpar.setid
inpar.mmc_rally_id
inpar.lt_grp_id_bbl
and inpar.tof_pbl
=
=
=
=
" | &VAR_RALLY_ID;
r.setid ";
r.mmc_rally_id ";
'" | &VAR_LT_GRP_ID_
= '" | &VR_TOF_PBL | "'"
SQLExec(&SQL, &VIN_BUSINESS_UNIT, &VIN_STORAGE_AREA, &VIN_STOR_LEVEL_1,

&VIN_STOR_LEVEL_2, &VIN_STOR_LEVEL_3, &VIN_STOR_LEVEL_4, &VIN_DISTRIB_TYPE);
If None(&VIN_BUSINESS_UNIT) Or
None(&VIN_STORAGE_AREA) Or
None(&VIN_STOR_LEVEL_1) Or
None(&VIN_STOR_LEVEL_4) Then
Error ("Erro Remessa Rally: No existe estoque parametrizado para Grup
o: " | &VAR_LT_GRP_ID_BBL | " OF: " | &VR_TOF_PBL);
End-If;
/* TRAVA PARA NO DEIXAR ENVIAR RALLY PARA UNIDADE DE ESTOQUE ORIGEM E DE
STINO */
SQLExec(" SELECT BUSINESS_UNIT_IN FROM SYSADM.PS_NF_HDR_BBL_FS WHERE BU
SINESS_UNIT = :1 AND NF_BRL_ID = :2 ", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_
VW3.NF_BRL_ID, &BUSINESS_UNIT_IN_ORIGEM);
If All(&BUSINESS_UNIT_IN_ORIGEM) And
(&BUSINESS_UNIT_IN_ORIGEM = &VIN_BUSINESS_UNIT) Then
Error ("Erro: No possvel fazer remessa de Rally quando as unidade de e
stoque de origem e destino so iguais. Unidade de estoque: " | &VIN_BUSINESS_UNIT
| ".");
End-If;
&P_BUSINESS_UNIT = &VIN_BUSINESS_UNIT;
&P_INV_ITEM_ID = &VR_INV_ITEM_ID;
SQLExec("select 'Y' from sysadm.ps_bu_items_inv where business_unit=:1
and inv_item_id =:2 ", &VIN_BUSINESS_UNIT, &VR_INV_ITEM_ID, &EXISTE_BU_ITEM_INV)
;
If &EXISTE_BU_ITEM_INV <> "Y" Then
Error ("Erro Remessa Rally: No existe parametrizao Unidade Negocio: " |
&VIN_BUSINESS_UNIT | " para Item: " | &VR_INV_ITEM_ID);
End-If;
&P_STORAGE_AREA
&P_STOR_LEVEL_1
&P_STOR_LEVEL_2
&P_STOR_LEVEL_3
&P_STOR_LEVEL_4
=
=
=
=
=
&VIN_STORAGE_AREA;
&VIN_STOR_LEVEL_1;
&VIN_STOR_LEVEL_2;
&VIN_STOR_LEVEL_3;
&VIN_STOR_LEVEL_4;
SQLExec("select 'Y' from sysadm.ps_master_item_tbl where setid= ( SELEC

T SYSADM.MMC_PK_PU.FC_BUSCA_SETID FROM DUAL ) and inv_item_id=:1 and unit_measur
e_std=:2", &VR_INV_ITEM_ID, &VR_UNIT_OF_MEASURE, &FLG_UM_PADRAO);
If &FLG_UM_PADRAO <> "Y" Then
Error ("Erro Remessa Rally: UM NF: " | &VR_UNIT_OF_MEASURE | " difer
ente Unidade Medida padro do Item: " | &VR_INV_ITEM_ID);
End-If;
&P_UNIT_OF_MEASURE = &VR_UNIT_OF_MEASURE;
&P_QTY = &VR_QTY_NF_BRL;
&P_DEPTO = " ";
&P_DISTRIB_TYPE = &VIN_DISTRIB_TYPE;
&P_BUSINESS_UNIT_RECV = &VR_BUSINESS_UNIT;
&P_RECEIVER_ID = &VR_NF_BRL_ID;
&P_RECV_LN_NBR = &VR_NF_BRL_LINE_NUM;
&P_SOURCE_BUS_UNIT = &VR_BUSINESS_UNIT;
&P_ORDER_NO = &VR_ORDER_NO;
&P_ORDER_INT_LINE_NO = &VR_ORDER_INT_LINE_NO;
/*******---------------------------***********
Pegando custo Unidade Baixa para ser uzado unidade Entrada.
*******---------------------------***********/
SQLExec("SELECT %DateTimeOut(DT_TIMESTAMP), INV_LOT_ID, SERIAL_ID, CONT
AINER_ID, seq_nbr from sysadm.PS_TRANSACTION_INV WHERE BUSINESS_UNIT=:1 AND INV_
ITEM_ID=:2 AND ORDER_NO=:3 AND ORDER_INT_LINE_NO=:4 AND SCHED_LINE_NO=:5 AND DEM
AND_LINE_NO=:6 ", &VR_BUSINESS_UNIT_BAIXA, &P_INV_ITEM_ID, &VR_ORDER_NO, &VR_ORD
ER_INT_LINE_NO, &VR_SCHED_LINE_NO, &VR_DEMAND_LINE_NO, &TRAN_DT_TIMESTAMP, &TRAN
_INV_LOT_ID, &TRAN_SERIAL_ID, &TRAN_CONTAINER_ID, &TRAN_SEQ_NBR);;
SQLExec("select config_code from sysadm.ps_ship_inf_inv where business_
unit=:1 and order_no=:2 and order_int_line_no=:3", &VR_BUSINESS_UNIT_BAIXA, &VR_
ORDER_NO, &VR_ORDER_INT_LINE_NO, &CONFIG_CODE_BAIXA);

If None(&TRAN_DT_TIMESTAMP) Then
Error ("Erro Remessa Rally: No foi possivel encontrar Baixa estoque U
N: " | &VR_BUSINESS_UNIT_BAIXA | ", " | &P_INV_ITEM_ID | " ," | &VR_ORDER_NO | "
, " | &VR_ORDER_INT_LINE_NO);
End-If;
&CUSTO_UN_ESTOQUE = BUSCA_CUSTO_ITEM(&VR_BUSINESS_UNIT_BAIXA, &P_INV_IT
EM_ID, &TRAN_DT_TIMESTAMP, &CONFIG_CODE_BAIXA);
/*******---------------------------***********
FIM Pegando custo Unidade Baixa para ser uzado unidade Entrada.
*******---------------------------***********/
&P_INV_LOT_ID = &TRAN_INV_LOT_ID;
&P_SERIAL_ID = &TRAN_SERIAL_ID;
&P_CONTAINER_ID = &TRAN_CONTAINER_ID;
SQLExec("SELECT DT_TIMESTAMP, SEQ_NBR FROM SYSADM.PS_TRANSACTION_INV WH
ERE BUSINESS_UNIT=:1 AND INV_ITEM_ID=:2 AND TRANSACTION_GROUP='020' AND RECEIVER
_ID=:3 AND RECV_LN_NBR=:4", &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_RECEIVER_ID, &P
_RECV_LN_NBR, &ERRO_T_DT_TIMESTAMP, &ERRO_T_SEQ_NBR);
If All(&ERRO_T_DT_TIMESTAMP) Then
Error ("Erro Remessa Rally: J existe transao de Estoque para Esta NF: "
| &P_BUSINESS_UNIT | ", " | &P_INV_ITEM_ID | ", " | ", " | &ERRO_T_DT_TIMESTAMP
| ", " | &ERRO_T_SEQ_NBR);
End-If;
ENTRADA_ESTOQUE(&P_BUSINESS_UNIT, &P_STAGED_DATE, &P_INV_LOT_ID, &P_INV
_LINE_NO, &P_CUSTO, &P_CONFIG_CODE, &P_PARAMETRO_OPCIONAL);
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| FIM Criando entrada Estoque Rally.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| INICIO Criando Transao tabela MMC_TE_TRANSAC.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
SQLExec(" select %datetimeout(dt_timestamp), seq_nbr from sysadm.ps_tra
nsaction_inv where business_unit=:1 and dt_timestamp >= SYSDATE -1 and dt_timest
amp <= SYSDATE +1 and inv_item_id=:2 and receiver_id=:3 and recv_ln_nbr =:4 and
transaction_group='020'", &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &VR_NF_BRL_ID, &VR_N
F_BRL_LINE_NUM, &TRAN_020_DT_TIMESTAMP, &TRAN_020_SEQ_NBR);
If None(&TRAN_020_DT_TIMESTAMP) Or
None(&TRAN_020_SEQ_NBR) Then
Error ("Erro Retorno Rally: No foi possivel encontrar Transao Estoque "
| &VR_NF_BRL_ID | "-" | &VR_NF_BRL_LINE_NUM | "-" | &P_INV_ITEM_ID | "-" | &P_B
USINESS_UNIT);
End-If;
&TT_BUSINESS_UNIT_BI = &VR_BUSINESS_UNIT;
&TT_NF_BRL_ID = &VR_NF_BRL_ID;
&TT_NF_BRL_LINE_NUM = &VR_NF_BRL_LINE_NUM;
&TT_MMC_TE_OPERACAO = "101";
&TT_SETID = " ";
&TT_MMC_TE_SOL_ID = 0;
&TT_LINE_NBR = 0;
&TT_BUSINESS_UNIT = &VR_BUSINESS_UNIT_BAIXA;
&TT_INV_ITEM_ID = &VR_INV_ITEM_ID;
&TT_DT_TIMESTAMP = &TRAN_DT_TIMESTAMP;
&TT_SEQ_NBR = &TRAN_SEQ_NBR;
&TT_TRANSACTION_GROUP = "030";
&TT_BUSINESS_UNIT_TO = &P_BUSINESS_UNIT;
&TT_DT_TIMESTAMP_TO = &TRAN_020_DT_TIMESTAMP;
&TT_SEQ_NBR_TO = &TRAN_020_SEQ_NBR;
&TT_MMC_TRAN_GROUP = "020";
&TT_MMC_UN_ORIGEM = " ";
&TT_MMC_NF_ID_ORIGEM = " ";
&TT_MMC_NF_LINE_ORIGEM = 0;
GRAVA_MMC_TE_TRANSAC(&TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_NF_BRL_LI
, &TT_MMC_UN_ORIGEM, &TT_MMC_NF_ID_ORIGEM, &TT_MMC_NF_LINE_ORIGEM);
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| FIM Criando Transao tabela MMC_TE_TRANSAC.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| INICIO Gravando Tabelas Linhs NF Rally.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
&P_SETID = &VAR_RALLY_SETID;
&P_MMC_RALLY_ID = &VAR_RALLY_ID;
&P_BUSINESS_UNIT = &VR_BUSINESS_UNIT;
&P_NF_BRL_ID = &VR_NF_BRL_ID;
&P_NF_BRL_LINE_NUM = &VR_NF_BRL_LINE_NUM;
&P_SEQ_NBR = 1;
&P_MMC_UN_ORIGEM = " ";
&P_MMC_NF_ID_ORIGEM = " ";
&P_MMC_NF_LINE_ORIGEM = 0;
GRAVA_SALDO_LN_RALLY(&P_SETID, &P_MMC_RALLY_ID, &P_BUSINESS_UNIT, &P_NF
_BRL_ID, &P_NF_BRL_LINE_NUM, &P_SEQ_NBR, &P_MMC_UN_ORIGEM, &P_MMC_NF_ID_ORIGEM,
&P_MMC_NF_LINE_ORIGEM);
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| FIM Gravando Tabelas Linhas NF Rally.

||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
End-While;
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||||||||||||||||||||||||||
|| INICIO Gravando Tabelas Cabealho NF Rally.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
&P_SETID = &VAR_RALLY_SETID;
&P_MMC_RALLY_ID = &VAR_RALLY_ID;
&P_BUSINESS_UNIT = NF_HDR_BBL_VW3.BUSINESS_UNIT;
&P_NF_BRL_ID = NF_HDR_BBL_VW3.NF_BRL_ID;
&P_NF_BRL_STATUS = "F";
GRAVA_SALDO_H_RALLY(&P_SETID, &P_MMC_RALLY_ID, &P_BUSINESS_UNIT, &P_NF_BRL
_ID, &P_NF_BRL_STATUS);
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||||||||||||||||||||||||||
|| FIM Gravando Tabelas Cabealho NF Rally.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
/************************* mmcb.sds2720.sn ******************************
**************/
GRAVA_DISTRIB_TYPE_REMESSA(&VAR_RALLY_SETID, &VAR_RALLY_ID, NF_HDR_BBL_VW3
.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID);
/************************* mmcb.sds2720.en ******************************
**************/
End-If; /* If All(&VAR_RALLY_ID) And &VAR_RALLY_ID > 0 Then */

End-If; /* If CONFIRMED_FLAG = "Y" Then */
/*##############################################################################
#######
#
F I M R E M E S S A R A L L Y
#
################################################################################
######*/
/************************************* mmcb.at2617.en *************************
************/
/************************************* mmcb.sds2618.sn *************************

************/
/*##############################################################################
#######
#
I N I C I O R E T O R N O R A L L Y
#
################################################################################
######*/
If All(MMC_RALLY_WRK.MMC_RALLY_ID) Then
SQLExec("select count(business_unit) from sysadm.ps_MMC_RT_RALLYPAR where
setid =:1 and mmc_rally_id=:2 ", MMC_RALLY_WRK.SETID, MMC_RALLY_WRK.MMC_RALLY_I
D, &COUNT_RM_PARAM);
If &COUNT_RM_PARAM = 0 Then
Error ("Erro Retorno Rally: No e possivel fazer retorno Rally sem parame
trizao. Para solucinar o problema faa rarametrizao no caminho: Home > Menu MMC > Menu
MMC > Rally > Parametrizao Retorno Rally ");
End-If;
End-If;
&VAR_GRUPO_OF = "";
&SQL = "";
&SQL = "
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
D | "'";
&SQL = &SQL
_UNIT | "'";
| "
| "
| "
| "
SELECT ";
A.LT_GRP_ID_BBL ";
FROM SYSADM.PS_NF_HDR_BRL A ";
WHERE A.NF_BRL_ID
= '" | NF_HDR_BBL_VW3.NF_BRL_I
AND A.BUSINESS_UNIT
= '" | NF_HDR_BBL_VW3.BUSINESS
SQLExec(&SQL, &VAR_GRUPO_OF);
&RNF_RALLY = "";
SQLExec("select 'Y' from sysadm.ps_mmc_rt_rallypar where LT_GRP_ID_BBL =:1 an
d rownum = 1", &VAR_LT_GRP_ID_BBL, &RNF_RALLY);
If &RNF_RALLY = "Y" Then
If None(MMC_RALLY_WRK.SETID) Or
None(MMC_RALLY_WRK.MMC_RALLY_ID) Or
MMC_RALLY_WRK.MMC_RALLY_ID = 0 Then
Error ("Erro Retorno Rally: Grupo Operacao da NF: " | NF_HDR_BBL_VW3.NF
_BRL_ID | " de Remessa Rally, selecione o Rally Relativo a NF.");
Else
&VAR_RT_RALLY_SETID = MMC_RALLY_WRK.SETID;
&VAR_RT_RALLY_ID = MMC_RALLY_WRK.MMC_RALLY_ID;
End-If;
End-If;
If All(&VAR_RT_RALLY_ID) And
&VAR_RT_RALLY_ID > 0 Then
SQLExec("select count(*) from sysadm.ps_mmc_rally where eff_status ='A'",
&NUMERO_RT_RALLY_ATIVO);
If &NUMERO_RT_RALLY_ATIVO <> 1 Then
Error ("Existe mais de uma Rally Ativo, acerte o cadastro e tente novam
ente.");
End-If;
CHECA_RETORNO_OPERACAO_PARAM(&VAR_RT_RALLY_SETID, &VAR_RT_RALLY_ID, NF_HDR
_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &VAR_GRUPO_OF);
&SQL = "";
&SQL = " select ";
&SQL = &SQL | "
b.business_unit, ";
&SQL = &SQL | "
b.nf_brl_id, ";
&SQL = &SQL | "
b.nf_brl_line_num, ";
&SQL = &SQL | "
b.inv_item_id, ";
&SQL = &SQL | "
b.qty_nf_brl, ";
&SQL = &SQL | "
b.unit_of_measure, ";
&SQL = &SQL | "
rtpar.business_unit, ";
&SQL = &SQL | "
rtpar.storage_area, ";
&SQL = &SQL | "
rtpar.stor_level_1, ";
&SQL = &SQL | "
&SQL = &SQL | "
&SQL = &SQL | "
&SQL = &SQL | "
rtpar.distrib_type, ";
&SQL = &SQL | "
ROUND ( b.unit_amt_bse_bbl ";
&SQL = &SQL | "
+ (b.ipitax_brl_amt / b.qty_nf_brl) ";
&SQL = &SQL | "
- (b.pis_amt_bbl / b.qty_nf_brl) ";
&SQL = &SQL | "
- (b.cofins_amt_bbl / b.qty_nf_brl) ";
&SQL = &SQL | "
- (b.ipitax_brl_rcvry / b.qty_nf_brl) ";
&SQL = &SQL | "
- (b.icmstax_brl_rcvry / b.qty_nf_brl) ";
&SQL = &SQL | "
- (b.dscnt_amt / b.qty_nf_brl), ";
&SQL = &SQL | "
4 ";
&SQL = &SQL | "
) custo_entrada ";
&SQL = &SQL | " from sysadm.ps_nf_hdr_brl a, ";
&SQL = &SQL | "
sysadm.ps_nf_ln_brl b, ";
&SQL = &SQL | "
sysadm.ps_mmc_rt_rallypar rtpar ";
&SQL = &SQL | " where b.business_unit
= '" | NF_HDR_BBL_VW3.BU
SINESS_UNIT | "'";
&SQL = &SQL | " and b.nf_brl_id
= '" | NF_HDR_BBL_VW3.NF
_BRL_ID | "'";
&SQL = &SQL | " and a.business_unit
= b.business_unit ";
&SQL = &SQL | " and a.nf_brl_id
= b.nf_brl_id ";
&SQL = &SQL | "
and rtpar.setid
= '" | &VAR_RT_RALLY_S
ETID | "'";
&SQL = &SQL | "
and rtpar.mmc_rally_id
= " | &VAR_RT_RALLY_I
D;
&SQL = &SQL | "

&SQL = &SQL | "
and rtpar.lt_grp_id_bbl
and rtpar.tof_pbl
= a.lt_grp_id_bbl ";
= b.tof_pbl ";
&cmdSQL = CreateSQL(&SQL);
While &cmdSQL.Fetch(&VAR_NF_BU, &VAR_NF_ID, &VAR_NF_LN, &VAR_NF_ITEM, &VAR
_NF_QUANTIDADE, &VAR_UM_NF, &VAR_UN_ENTRADA, &VAR_AREA_ENTRADA, &VAR_L1_ENTRADA,
&VAR_L2_ENTRADA, &VAR_L3_ENTRADA, &VAR_L4_ENTRADA, &VAR_DISTRIB_ENTRADA, &VAR_C
USTO_ENTRADA)
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
Y_SETID | "'";
&SQL =
_ID;
&SQL =
"'";
&SQL =
"'";
&SQL =
&SQL =
";
&SQL =
";
&SQL =
";
&SQL =
";
&SQL =
it ";
&SQL =
";
&SQL =
rea
";
&SQL =
l_1
";
&SQL =
2
";
&SQL =
l_3
";
&SQL =
l_4
";
"";
"
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
select
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
";
rmpar.business_unit un_baixa, ";
rmpar.storage_area, ";
rmpar.stor_level_1, ";
rmpar.distrib_type , ";
ph.qty-ph.qty_reserved qtd_disponivel, ";
ph.serial_id, ";
ph.inv_lot_id ";
from
";
sysadm.ps_mmc_rrm_s_vw srm , ";
sysadm.ps_mmc_in_rallypar rmpar, ";
sysadm.ps_physical_inv ph ";
where srm.setid
= '" | &VAR_RT_RALL
&SQL | "
and srm.mmc_rally_id
= " | &VAR_RT_RALLY
&SQL | "
and srm.mmc_un_origem
= '" | &VAR_NF_BU |
&SQL | "
and srm.mmc_nf_id_origem
= '" | &VAR_NF_ID |
&SQL | "
&SQL | "
and srm.mmc_nf_line_origem
and rmpar.setid
= " | &VAR_NF_LN;
= srm.setid
&SQL | "
and rmpar.mmc_rally_id
= srm.mmc_rally_id
&SQL | "
and rmpar.lt_grp_id_bbl
= srm.lt_grp_id_bbl
&SQL | "
and rmpar.tof_pbl
= srm.tof_pbl
&SQL | "
and ph.business_unit
= rmpar.business_un
&SQL | "
and ph.inv_item_id
= srm.inv_item_id
&SQL | "
and ph.storage_area
= rmpar.storage_a
&SQL | "
and ph.stor_level_1
= rmpar.stor_leve
&SQL | "
and ph.stor_level_2
= rmpar.stor_level_
&SQL | "
and ph.stor_level_3
= rmpar.stor_leve
&SQL | "
and ph.stor_level_4
= rmpar.stor_leve
SQLExec(&SQL, &V_UN_BAIXA, &V_AREA_BAIXA, &V_L1_BAIXA, &V_L2_BAIXA, &V_

L3_BAIXA, &V_L4_BAIXA, &V_DISTRIB_BAIXA, &V_QTD_DISPONIVEL, &V_SERIAL_ID, &V_INV
_LOT_ID);
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|| INICIO ROTINA BAIXA ESTOQUE.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/
If &VAR_NF_QUANTIDADE > &V_QTD_DISPONIVEL Then

Error (" Erro: No e possivel fazer baixa NF: " | &VAR_NF_BU | "-" | &
VAR_NF | "-" | &VAR_NF_ID | "-" | &VAR_NF_LN | " - " | &VAR_NF_ITEM | " , Quanti
dade: " | &VAR_NF_QUANTIDADE | ". Por que o endereo: " | &V_UN_BAIXA | "-" | &V_A
REA_BAIXA | "-" | &V_L1_BAIXA | "-" | &V_L2_BAIXA | "-" | &V_L3_BAIXA | "-" | &V
_L4_BAIXA | ", posui apenas a Quantidade: " | &V_QTD_DISPONIVEL);
End-If;
and inv_item_id =:2 ", &V_UN_BAIXA, &VAR_NF_ITEM, &EXISTE_RT_BU_ITEM_INV);
If &EXISTE_RT_BU_ITEM_INV <> "Y" Then
Error ("Erro Retorno Rally: No existe parametrizao Unidade Negocio: " |
&V_UN_BAIXA | " para Item: " | &VAR_NF_ITEM);
End-If;
SQLExec("select 'Y' from sysadm.ps_master_item_tbl where setid= ( SELEC
T SYSADM.MMC_PK_PU.FC_BUSCA_SETID FROM DUAL ) and inv_item_id=:1 and unit_measur
e_std=:2", &VAR_NF_ITEM, &VAR_UM_NF, &FLG_RT_UM_PADRAO);
If &FLG_RT_UM_PADRAO <> "Y" Then
Error ("Erro Retorno Rally: UM NF: " | &VR_UNIT_OF_MEASURE | " difer
ente Unidade Medida padro do Item: " | &VR_INV_ITEM_ID);
End-If;
&B_BUSINESS_UNIT = &V_UN_BAIXA;
&B_INV_ITEM_ID = &VAR_NF_ITEM;
&B_INV_LOT_ID = &V_INV_LOT_ID;
&B_QTD = &VAR_NF_QUANTIDADE;
&B_UNIT_OF_MEASURE = &VAR_UM_NF;
&B_SERIAL_ID = &V_SERIAL_ID;
&B_DT_TIMESTAMP = %Datetime;
&B_ORDER_NO = &VAR_NF_ID;
&B_ORDER_INT_LINE_NO = &VAR_NF_LN;
&B_TRANSACTION_DATE = %Date;
&B_STORAGE_AREA = &V_AREA_BAIXA;
&B_STOR_LEVEL_1 = &V_L1_BAIXA;
&B_DEPTID = " ";
&B_DISTRIB_TYPE = &V_DISTRIB_BAIXA;
&B_SHIP_ID = " ";
&B_SOURCE_BUS_UNIT = &VAR_NF_BU;
BAIXA_ESTOQUE(&B_BUSINESS_UNIT, &B_INV_ITEM_ID, &B_INV_LOT_ID, &B_QTD,

E_BUS_UNIT);
SQLExec("select %DateTimeOut(dt_timestamp), seq_nbr from sysadm.ps_tra
nsaction_inv where business_unit = :1 and inv_item_id= :2 and dt_timestamp >= SY
SDATE -1 and dt_timestamp <= SYSDATE +1 and order_no=:3 and order_int_line_no =:
4 and transaction_group='030' ", &B_BUSINESS_UNIT, &B_INV_ITEM_ID, &B_ORDER_NO,
&B_ORDER_INT_LINE_NO, &TRANSAC_030_DT_TIMESTAMP, &TRANSAC_030_SEQ_NBR);
If None(&TRANSAC_030_DT_TIMESTAMP) Or
None(&TRANSAC_030_SEQ_NBR) Then
Error ("Retorno Rally Erro: No Possivel encontar Transao 030 para:" | &
B_BUSINESS_UNIT | "-" | &B_INV_ITEM_ID | "-" | &B_ORDER_NO | "-" | &B_ORDER_INT_
LINE_NO);
End-If;
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|| FIM ROTINA BAIXA ESTOQUE.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|| INICIO ROTINA ENTRADA ESTOQUE.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/
and inv_item_id =:2 ", &VAR_UN_ENTRADA, &VAR_NF_ITEM, &EXISTE_RT_BU_ITEM_INV1);
If &EXISTE_RT_BU_ITEM_INV1 <> "Y" Then
Error ("Erro Retorno Rally: No existe parametrizao Unidade Negocio: " |
&VAR_UN_ENTRADA | " para Item: " | &VAR_NF_ITEM);
End-If;
&P_BUSINESS_UNIT = &VAR_UN_ENTRADA;
&P_INV_LOT_ID = &V_INV_LOT_ID;
&P_INV_ITEM_ID = &VAR_NF_ITEM;
&P_SERIAL_ID = &V_SERIAL_ID;
If None(&VAR_L1_ENTRADA) Or
&VAR_L1_ENTRADA = " " Or
&VAR_L1_ENTRADA = "" Then
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
=
=
=
=
=
=
=
=
=
=
"";
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
&SQL
|
|
|
|
|
|
|
|
|
" select ";

"
storage_area, ";
"
stor_level_1, ";
"
stor_level_2, ";
"
stor_level_3, ";
"
stor_level_4 ";
" from sysadm.ps_default_loc_inv ";
" where business_unit ='" | &VAR_UN_ENTRADA | "' ";
"
and inv_item_id = '" | &VAR_NF_ITEM | "' ";
SQLExec(&SQL, &P_STORAGE_AREA, &P_STOR_LEVEL_1, &P_STOR_LEVEL_2, &P_

STOR_LEVEL_3, &P_STOR_LEVEL_4);
Else
&P_STORAGE_AREA
&P_STOR_LEVEL_1
&P_STOR_LEVEL_2
&P_STOR_LEVEL_3
&P_STOR_LEVEL_4
End-If;
=
=
=
=
=
&VAR_AREA_ENTRADA;
&VAR_L1_ENTRADA;
&VAR_L2_ENTRADA;
&VAR_L3_ENTRADA;
&VAR_L4_ENTRADA;
If None(&P_STORAGE_AREA) Or
None(&P_STOR_LEVEL_1) Or
None(&P_STOR_LEVEL_4) Then
Error ("Erro Retorno Rally: No foi encontra Endereo para entrda estoqu
e NF: " | &VAR_NF_BU | "-" | &VAR_NF_ID | "-" | &VAR_NF_LN | "-" | &VAR_NF_ITEM)
;
End-If;
&P_CONTAINER_ID = " ";
&P_UNIT_OF_MEASURE = &VAR_UM_NF;
&P_QTY = &VAR_NF_QUANTIDADE;
&P_DEPTO = " ";
&P_DISTRIB_TYPE = &VAR_DISTRIB_ENTRADA;
&P_BUSINESS_UNIT_RECV = &VAR_NF_BU;
&P_RECEIVER_ID = &VAR_NF_ID;
&P_RECV_LN_NBR = &VAR_NF_LN;
&P_SOURCE_BUS_UNIT = &VAR_NF_BU;
&P_ORDER_NO = &VAR_NF_ID;
&P_ORDER_INT_LINE_NO = &VAR_NF_LN;
&P_CUSTO = &VAR_CUSTO_ENTRADA;
If &P_CUSTO <= 0 Then
Error (" Erro Retorno Rally: No foi possivel encontrar custo para NF:
" | &VAR_NF_BU | "-" | &VAR_NF_ID | "-" | &VAR_NF_LN | "-" | &VAR_NF_ITEM);
End-If;
&P_CONFIG_CODE = &V_INV_LOT_ID;
ENTRADA_ESTOQUE(&P_BUSINESS_UNIT, &P_STAGED_DATE, &P_INV_LOT_ID, &P_INV
_LINE_NO, &P_CUSTO, &P_CONFIG_CODE, &P_PARAMETRO_OPCIONAL);
SDATE -1 and dt_timestamp <= SYSDATE +1 and receiver_id=:3 and recv_ln_nbr =:4 a
nd transaction_group='020' ", &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_RECEIVER_ID,
&P_RECV_LN_NBR, &TRANSAC_020_DT_TIMESTAMP, &TRANSAC_020_SEQ_NBR);
If None(&TRANSAC_020_DT_TIMESTAMP) Or
None(&TRANSAC_020_SEQ_NBR) Then
Error ("Retorno Rally Erro: No Possivel encontar Transao 020 para:" | &
P_BUSINESS_UNIT | "-" | &P_INV_ITEM_ID | "-" | &P_RECEIVER_ID | "-" | &P_RECV_LN
_NBR);
End-If;
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|| FIM ROTINA ENTRADA ESTOQUE.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||*/
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| INICIO Criando Transao tabela MMC_TE_TRANSAC.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
&TT_BUSINESS_UNIT_BI = &VAR_NF_BU;
&TT_NF_BRL_ID = &VAR_NF_ID;
&TT_NF_BRL_LINE_NUM = &VAR_NF_LN;
&TT_MMC_TE_OPERACAO = "101";
&TT_SETID = " ";
&TT_MMC_TE_SOL_ID = 0;
&TT_LINE_NBR = 0;
&TT_BUSINESS_UNIT = &V_UN_BAIXA;
&TT_INV_ITEM_ID = &B_INV_ITEM_ID;
&TT_DT_TIMESTAMP = &TRANSAC_030_DT_TIMESTAMP;
&TT_SEQ_NBR = &TRANSAC_030_SEQ_NBR;
&TT_TRANSACTION_GROUP = "030";
&TT_BUSINESS_UNIT_TO = &VAR_UN_ENTRADA;
&TT_DT_TIMESTAMP_TO = &TRANSAC_020_DT_TIMESTAMP;
&TT_SEQ_NBR_TO = &TRANSAC_020_SEQ_NBR;
&TT_MMC_TRAN_GROUP = "020";
&TT_MMC_UN_ORIGEM = " ";
&TT_MMC_NF_ID_ORIGEM = " ";
&TT_MMC_NF_LINE_ORIGEM = 0;
GRAVA_MMC_TE_TRANSAC(&TT_BUSINESS_UNIT_BI, &TT_NF_BRL_ID, &TT_NF_BRL_LI
, &TT_MMC_UN_ORIGEM, &TT_MMC_NF_ID_ORIGEM, &TT_MMC_NF_LINE_ORIGEM);
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| FIM Criando Transao tabela MMC_TE_TRANSAC.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
End-While;
&cmdSQL.Close();
End-If; /* If All(&VAR_RT_RALLY_ID) And &VAR_RT_RALLY_ID > 0 Then */
End-If; /* If CONFIRMED_FLAG = "Y" Then */
/*##############################################################################
#######
#
F I M R E T O R N O R A L L Y
#
################################################################################
######*/
/************************************* mmcb.sds2618.en *************************
************/
/************************************ mmc.sds5222.sn ***************************

*************/
If %Component = Component.NF_CNFM_BBL Then
&sqlPar = fncMontaSQLParamEDI("A");
SQLExec(&sqlPar, NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &
fazEDI, &business_unit_to, &tableHDR, &tableLN);
If &fazEDI = "Y" Then
/* Busca CNPJ do Emitente */
&cnpjEmit = fncBuscaCnpjEDI(BUSINESS_UNIT);
If All(&cnpjEmit) Then
&statusEDI = fncGetStausEDI(&tableHDR, &business_unit_to, &cnpjEmit,
NF_HDR_BBL_VW3.NF_BRL, NF_HDR_BBL_VW3.NF_BRL_SERIES, NF_HDR_BBL_VW3.NF_ISSUE_DT
_BBL);
If &statusEDI = "" Or
None(&statusEDI) Then
/* Insere cabealho */
&ins1 = "";
&ins1 = &ins1 | " INSERT INTO SYSADM.PS_" | &tableHDR;
&ins1 = &ins1 | " SELECT '" | &business_unit_to | "'
AS BUSINE
SS_UNIT ";
&ins1 = &ins1 | "
, '" | &cnpjEmit | "'
AS CGC_BR
&ins1 = &ins1 | "
, 'NF'
AS NF_BRL
&ins1 = &ins1 | "
, '" | NF_HDR_BBL_VW3.NF_BRL | "' AS NF_BR
L ";
_TYPE ";
L ";
&ins1 = &ins1
S NF_BRL_SERIES ";
&ins1 = &ins1
&ins1 = &ins1
BBL | "') AS NF_BRL_DATE ";
&ins1 = &ins1
&ins1 = &ins1
&ins1 = &ins1
&ins1 = &ins1
ED_BSE_BBL ";
&ins1 = &ins1
| "
, '" | NF_HDR_BBL_VW3.NF_BRL_SERIES | "' A
| "
| "
, CFO_BRL_CD ";
, %DateIn('" | NF_HDR_BBL_VW3.NF_ISSUE_DT_
|
|
|
|
,
,
,
,
"
"
"
"
| "
GROSS_AMT_BSE ";
ICMSSUB_BRL_AMT ";
ICMSTAX_BRL_AMT ";
0
, 0
AS ICMSST_R
AS ICMS_RED
_BSE_BBL ";
&ins1
&ins1
&ins1
&ins1
&ins1
=
=
=
=
=
&ins1
&ins1
&ins1
&ins1
&ins1
|
|
|
|
|
"
"
"
"
"
,
,
,
,
,
IPITAX_BRL_AMT ";
PISTAX_BRL_AMT ";
COFINSTAX_BRL_AMT ";
ICMSTAX_BRL_BSS ";
0
AS IPITAX_B
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
=
=
=
=
=
=
=
=
=
=
=
=
=
=
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
&ins1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
"
"
"
"
"
"
"
"
"
"
"
"
"
"
,
,
,
,
,
,
,
,
,
,
,
,
,
,
PIS_BSS_AMT_BBL ";
COFINS_BSS_AMT_BBL ";
FREIGHT_AMT ";
INSURANCE_BRL_AMT ";
OTHEREXP_BRL_AMT ";
DSCNT_AMT ";
ISSTAX_BRL_AMT ";
IRTAX_BRL_AMT ";
INSS_BRL_RETENTION ";
COFINS_BRL_RETENT ";
PIS_BRL_RETENT ";
CSLL_BRL_RETENT ";
ICMSTAX_BRL_RETENT ";
'N'
AS PROCESS_
RL_BSS ";
FLAG ";
&ins1 = &ins1 | "
, 0
AS PROCESS_
&ins1 = &ins1 | "
, SYSDATE
AS DT_TIMES
INSTANCE ";
TAMP ";
&ins1 = &ins1 | " FROM SYSADM.PS_NF_HDR_BRL A ";
&ins1 = &ins1 | " WHERE A.BUSINESS_UNIT = :1 ";
&ins1 = &ins1 | "
AND A.NF_BRL_ID
= :2 ";
SQLExec(&ins1, NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BR
L_ID);
&ins2 = "";
&ins2 = &ins2 | " INSERT INTO SYSADM.PS_" | &tableLN;
&ins2 = &ins2 | " SELECT '" | &business_unit_to | "'
AS BUSIN
&ins2 = &ins2 | "
, '" | &cnpjEmit | "'
AS CGC_B
&ins2 = &ins2 | "
, 'NF'
AS NF_BR
&ins2 = &ins2 | "
, '" | NF_HDR_BBL_VW3.NF_BRL | "' AS NF_BR
ESS_UNIT ";
RL ";
L_TYPE ";
L ";
&ins2 = &ins2 | "
, '" | NF_HDR_BBL_VW3.NF_BRL_SERIES | "' A
S NF_BRL_SERIES ";
&ins2 = &ins2 | "
, A.NF_BRL_LINE_NUM
";
&ins2 = &ins2 | "
, NVL( ( SELECT CASE WHEN LENGTH(MT.NF_BR
L) = 9 THEN SUBSTR(MT.NF_BRL , 4,6 ) ELSE LPAD(MT.NF_BRL,6,'0') END
NF_B
RL FROM SYSADM.PS_MMC_TE_CONTR_MT MT WHERE MT.TRANSACTION_GROUP = '030' AND MT.B
USINESS_UNIT_BI = A.BUSINESS_UNIT AND MT.MMC_NF_BRL_ID_OUT = A.NF_BRL_ID AND MT.
MMC_LINE_NUM_OUT = A.NF_BRL_LINE_NUM AND ROWNUM = 1 ), ' ' ) AS MMC_REMESSA_BRL
";
&ins2 = &ins2 | "
, NVL( ( SELECT MT.NF_BRL_SERIES
FRO
M SYSADM.PS_MMC_TE_CONTR_MT MT WHERE MT.TRANSACTION_GROUP = '030' AND MT.BUSINES
S_UNIT_BI = A.BUSINESS_UNIT AND MT.MMC_NF_BRL_ID_OUT = A.NF_BRL_ID AND MT.MMC_LI
NE_NUM_OUT = A.NF_BRL_LINE_NUM AND ROWNUM = 1 ), ' ' ) AS NF_BRL_SERIES_PO ";
&ins2 = &ins2 | "
, PO_ID ";
&ins2 = &ins2 | "
, INV_ITEM_ID ";
&ins2 = &ins2 | "
, QTY_NF_BRL ";
&ins2 = &ins2 | "
, DECODE(UNIT_PRICE, 0, MERCH_AMT_BSE/QTY_
NF_BRL, UNIT_PRICE) AS UNIT_PRICE";

&ins2 = &ins2 | "
, MERCH_AMT_BSE ";
&ins2 = &ins2 | "
, TAX_CLASS_BRL ";
&ins2 = &ins2 | "
, ICMSSUB_BRL_AMT ";
&ins2 = &ins2 | "
, ICMSTAX_BRL_AMT ";
&ins2 = &ins2 | "
, ICMSST_RED_BSE_BBL ";
&ins2 = &ins2 | "
, ICMS_RED_BSE_BBL ";
&ins2 = &ins2 | "
, IPITAX_BRL_AMT ";
&ins2 = &ins2 | "
, PISTAX_BRL_AMT ";
&ins2 = &ins2 | "
, COFINSTAX_BRL_AMT ";
&ins2 = &ins2 | "
, ICMSTAX_BRL_BSS ";
&ins2 = &ins2 | "
, IPITAX_BRL_BSS ";
&ins2 = &ins2 | "
, PIS_BSS_AMT_BBL ";
&ins2 = &ins2 | "
, COFINS_BSS_AMT_BBL ";
&ins2 = &ins2 | "
, FREIGHT_AMT ";
&ins2 = &ins2 | "
, INSURANCE_BRL_AMT ";
&ins2 = &ins2 | "
, OTHEREXP_BRL_AMT ";
&ins2 = &ins2 | "
, DSCNT_AMT ";
&ins2 = &ins2 | "
, ISSTAX_BRL_AMT ";
&ins2 = &ins2 | "
, 0
AS IRTAX_BRL_AMT ";
&ins2 = &ins2 | "
, 0
AS INSS_BRL_RETENTION ";
&ins2 = &ins2 | "
, 0
AS COFINS_BRL_RETENT ";
&ins2 = &ins2 | "
, 0
AS PIS_BRL_RETENT ";
&ins2 = &ins2 | "
, 0
AS CSLL_BRL_RETENT ";
&ins2 = &ins2 | "
, 0
AS ICMSTAX_BRL_RETENT ";
&ins2 = &ins2 | "
, 'N' AS PROCESS_FLAG
";
&ins2 = &ins2 | "
, 0
AS PROCESS_INSTANCE ";
&ins2 = &ins2 | " FROM SYSADM.PS_NF_LN_BRL A";
&ins2 = &ins2 | " WHERE A.BUSINESS_UNIT = :1 ";
&ins2 = &ins2 | "
AND A.NF_BRL_ID
= :2 ";
SQLExec(&ins2, NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BR
L_ID);
End-If;
End-If;
End-If;
End-If;
End-If;
/************************************ mmc.sds5222.en ***************************
*************/
[NF_CNFM_BBL_WRK.CONFIRMED_FLAG.SavePreChange]
/*******************************************************************************
*******
Wagner Sorio - MMC - 25/02/2008 mmcb.hd44425 - Customizao para enviar para fundo g
arantidor
Documentos Fiscais iguais com series diferentes.
********************************************************************************
********/
/* BRLOC - BI - HAT - 14/09/01 - Chamada dos Paineis de estoque automaticamente
- Begin */
Declare Function call_pages_inv PeopleCode FUNCLIB_OF.FLOW_FLG_BBL FieldFormula;
/*Nova Era - MMC_BI003_NE - 03/03/2006 - Begin*/
&SETID = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "MMC_CUST_CONCES", "");

SQLExec("SELECT A.TOF_PBL , B.ALIQ_CONTR_MMC FROM PS_NF_LN_BBL_FS A , PS_CAD_
OPERAC_MMC B WHERE A.BUSINESS_UNIT = B.BUSINESS_UNIT AND A.TOF_PBL = B.TOF_PBL A
ND B.EFF_STATUS = 'A' AND B.EFFDT = (SELECT MAX(C.EFFDT) FROM PS_CAD_OPERAC_MMC
C WHERE B.BUSINESS_UNIT = C.BUSINESS_UNIT AND B.TOF_PBL = C.TOF_PBL) AND A.BUSIN
ESS_UNIT = :1 AND A.NF_BRL_ID = :2", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW
3.NF_BRL_ID, &TOF, &ALIQUOTA);
If All(&ALIQUOTA) Then
SQLExec("SELECT ALIQ_CONTR_MMC FROM PS_MMC_CUST_CONCES WHERE SETID = :1 AN
D CUST_ID = :2", &SETID, NF_HDR_BBL_VW3.SHIP_TO_CUST_ID, &ALIQUOTA1);
If All(&ALIQUOTA1) Then
&ALIQUOTA = &ALIQUOTA1
End-If;
/* Nova Era - Felipe Carneiro - 07/06/2006 - Incio */
/* Verifica se nota j foi inserida para no gerar duplicidade */
/************************************** mmcb.hd44425.so ******************
**********************************/
/*
SQLExec("SELECT 'X' FROM PS_LN_CONTRIB_MMC WHERE BUSINESS_UNIT=:1
AND CUST_ID=:2 AND TIPO_TRANSACAO_MMC='NF' AND NF_BRL=:3 ", NF_HDR_BBL_VW3.BUSIN
ESS_UNIT, NF_HDR_BBL_VW3.SHIP_TO_CUST_ID, NF_HDR_BBL_VW3.NF_BRL,NF_HDR_BBL_VW3.N
F_BRL_ID, &EXISTE_NOTA); */
/************************************** mmcb.hd44425.lo ******************
**********************************/
/************************************** mmcb.hd44425.sn ******************
**********************************/
SQLExec("SELECT 'X' FROM PS_LN_CONTRIB_MMC WHERE BUSINESS_UNIT=:1 AND CUST
_ID=:2 AND TIPO_TRANSACAO_MMC='NF' AND INVOICE_ID=:3 ", NF_HDR_BBL_VW3.BUSINESS
_UNIT, NF_HDR_BBL_VW3.SHIP_TO_CUST_ID, NF_HDR_BBL_VW3.NF_BRL_ID, &EXISTE_NOTA);
/************************************** mmcb.hd44425.en ******************
**********************************/
If None(&EXISTE_NOTA) Then
/* Nova Era - Felipe Carneiro - 07/06/2006 - Fim */
SQLExec("SELECT MAX(SEQ_NBR) + 1 FROM PS_LN_CONTRIB_MMC WHERE BUSINESS_
UNIT = :1 AND CUST_ID = :2", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.SHIP_T
O_CUST_ID, &SEQ_LAST_NBR);
&AMOUNT = (&ALIQUOTA / 100) * NF_HDR_BBL_VW3.GROSS_AMT_BSE;
If All(&SEQ_LAST_NBR) Then
SQLExec("INSERT INTO PS_LN_CONTRIB_MMC(BUSINESS_UNIT, CUST_ID, SEQ_N
BR, NF_BRL, TIPO_TRANSACAO_MMC, GROSS_AMT_BSE, ALIQ_CONTR_MMC, AMOUNT_2, MMC_DAT
E_CM, VENDOR_ID, VNDR_LOC, ADDRESS_SEQ_NUM, PYMNT_TERMS_CD, ACCOUNTING_DT, INVO
ICE_ID, EF_LOC_BRL, ACCOUNT, VOUCHER_ID, BUSINESS_UNIT_AP, BANK_CD, BANK_ACCT_KE
Y,PYMNT_METHOD, DEPTID, PROJECT_ID, PRODUCT, TIPO_PAGTO, MMC_BANK_CD, MMC_BRANCH
_ID, MMC_BRANCH_CHK_DIG, MMC_BANK_ACCT_NUM, MMC_CHECK_DIGIT) VALUES (:1, :2, :3,
:4, :5, :6, :7, :8, to_date(sysdate), :9, :10, :11, :12, to_date(sysdate), :13,
:14, :15, :16, :17, :18, :19, :20, :21, :22, :23, :24, :25, :26, :27, :28, :29)
", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.SHIP_TO_CUST_ID, &SEQ_LAST_NBR,

NF_HDR_BBL_VW3.NF_BRL, "NF", NF_HDR_BBL_VW3.GROSS_AMT_BSE, &ALIQUOTA, &AMOUNT, "
", " ", 0, "FUNDO", NF_HDR_BBL_VW3.NF_BRL_ID, "CATALO", "211727", "NEXT", "MMCSA
", "356", "356", "CHK", "322", " ", " ", "DOC", " ", " ", " ", " ", " ");
/*RLM - 10-06-06 INICIO */
Else
SQLExec("INSERT INTO PS_LN_CONTRIB_MMC(BUSINESS_UNIT, CUST_ID, SEQ_N
BR, NF_BRL, TIPO_TRANSACAO_MMC, GROSS_AMT_BSE, ALIQ_CONTR_MMC, AMOUNT_2, MMC_DAT
E_CM, VENDOR_ID, VNDR_LOC, ADDRESS_SEQ_NUM, PYMNT_TERMS_CD, ACCOUNTING_DT, INVO
ICE_ID, EF_LOC_BRL, ACCOUNT, VOUCHER_ID, BUSINESS_UNIT_AP, BANK_CD, BANK_ACCT_KE
Y,PYMNT_METHOD, DEPTID, PROJECT_ID, PRODUCT, TIPO_PAGTO, MMC_BANK_CD, MMC_BRANCH
_ID, MMC_BRANCH_CHK_DIG, MMC_BANK_ACCT_NUM, MMC_CHECK_DIGIT) VALUES (:1, :2, :3,
:4, :5, :6, :7, :8, to_date(sysdate), :9, :10, :11, :12, to_date(sysdate), :13,
:14, :15, :16, :17, :18, :19, :20, :21, :22, :23, :24, :25, :26, :27, :28, :29)
", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.SHIP_TO_CUST_ID, 1, NF_HDR_BBL_V
W3.NF_BRL, "NF", NF_HDR_BBL_VW3.GROSS_AMT_BSE, &ALIQUOTA, &AMOUNT, " ", " ", 0,
"FUNDO", NF_HDR_BBL_VW3.NF_BRL_ID, "CATALO", "211727", "NEXT", "MMCSA", "356", "3
56", "CHK", "322", " ", " ", "DOC", " ", " ", " ", " ", " ");
/*RLM - 10-06-06 FIM */
End-If;
End-If;
End-If;
/*Nova Era - MMC_BI003_NE - 03/03/2006 - End*/
SEL = "Y";
If call_pages_inv(NF_HDR_BBL_VW3.NF_BRL_ID, NF_HDR_BBL_VW3.BUSINESS_UNIT)
Then
End-If;
End-For;
/*ASL - Antonio Csar S. Luna - HQS Consulting - 09/06/2006 - Inicio*/
SQLExec("SELECT A.BUSINESS_UNIT, A.NF_BRL_ID, C.INV_FLG FROM PS_MMC_NF_RELC_D
EV A, PS_NF_LN_BRL B, PS_RTV_LN C WHERE A.BUSINESS_UNIT = B.BUSINESS_UNIT AND A.
NF_BRL_ID = B.NF_BRL_ID AND B.BUSINESS_UNIT = C.BUSINESS_UNIT AND B.RTV_ID = C.R
TV_ID AND B.RTV_LN_NBR = C.RTV_LN_NBR AND BUSINESS_UNIT_BI = :1 AND A.MMC_NF_BRL
_ID_BI = :2", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_HDR_BBL_VW3.NF_BRL_ID, &BU_PO, &
NF_PO, &FLAGNF);
If All(&BU_PO) Then
SQLExec("UPDATE PS_NF_HDR_BRL SET NF_BRL = :1, NF_BRL_SERIES = :2 WHERE BU
SINESS_UNIT = :3 AND NF_BRL_ID = :4", NF_HDR_BBL_VW3.NF_BRL, NF_HDR_BBL_VW3.NF_
BRL_SERIES, &BU_PO, &NF_PO);
If &FLAGNF = "Y" Then
SQLExec("UPDATE PS_NF_HDR_BRL SET NF_BRL_STATUS = 'F' WHERE BUSINESS_UN
IT = :1 AND NF_BRL_ID = :2", &BU_PO, &NF_PO);
End-If;
End-If;
/*ASL - Antonio Csar S. Luna - HQS Consulting - 09/06/2006 - Fim*/
End-If;
/* BRLOC - BI - HAT - 14/09/01 - end */

[NF_CNFM_BBL_WRK.CONFIRM_ALL_BTN.FieldChange]
/* BRLBI_01 19/01/1999 Florival Athaide
Confirm all demand lines.
*/
&N = ActiveRowCount(Record.NF_HDR_BBL_VW3);
For &i = 1 To &N
&BU = FetchValue(Record.NF_HDR_BBL_VW3, &i, NF_HDR_BBL_VW3.BUSINESS_UNIT);
&NF = FetchValue(Record.NF_HDR_BBL_VW3, &i, NF_HDR_BBL_VW3.NF_BRL_ID);
&FLAG = FetchValue(Record.NF_HDR_BBL_VW3, &i, CONFIRMED_FLAG);
&SERIE_DOC_FISC = FetchValue(Record.NF_HDR_BBL_VW3, &i, NF_HDR_BBL_VW3.NF_BRL
_SERIES);
&X = NF_HDR_BBL_VW3.SHIP_TO_CUST_ID;
NF_HDR_BBL_VW3.SHIP_TO_CUST_ID = " ";
NF_HDR_BBL_VW3.SHIP_TO_CUST_ID = &X;
If All(&NF) And
(&FLAG <> "Y") Then
/*** JEISON CALDAS - 31/03/09 - INATIVADO POR SOLICITAO DO HD 65595 POR DARI
O - INICIO */
SQLExec("SELECT substr(CFO_BRL_CD, 1, 1) FROM SYSADM.PS_NF_HDR_BBL_FS WHER
E BUSINESS_UNIT = :1 AND NF_BRL_ID = :2", &BU, &NF, &CFO);
If &CFO = "7" Then
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_NF_EXP_HDR WHERE BUSINESS_UNIT =
:1 AND NF_BRL_ID = :2", &BU, &NF, &SPED);
If All(&SPED) Then
UpdateValue(CONFIRMED_FLAG, &i, "Y");
Else
WinMessage("A NF de ID " | &NF | " no pode ser confirmada pois no h inf
ormaes de SPED.");
UpdateValue(CONFIRMED_FLAG, &i, "N");
End-If;
Else
UpdateValue(CONFIRMED_FLAG, &i, "Y");
End-If;
/*** JEISON CALDAS - 31/03/09 - INATIVADO POR SOLICITAO DO HD 65595 POR DARI
O - FIM*/
End-If;
/*** BRUNO VEROSA - MMC - mmc.sds4055 - 14/12/2011 - S.N. ***/
&FLAG = FetchValue(Record.NF_HDR_BBL_VW3, &i, CONFIRMED_FLAG);
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_NFE_CH_ACES WHERE BUSINESS_UNIT = :1 A
ND NF_BRL_ID = :2", &BU, &NF, &STAT100);
If &FLAG = "Y" And
&STAT100 <> "Y"
&SERIE_DOC_FISC
&SERIE_DOC_FISC
&SERIE_DOC_FISC
&SERIE_DOC_FISC
And
<> "A" And
<> "D1" And
<> "0" And
<> "A1" Then
UpdateValue(CONFIRMED_FLAG, &i, "N");

WinMessage("A Nota Fiscal: " | &NF | " no obteve confirmao da Sefaz.");
End-If;
/*** BRUNO VEROSA - MMC - mmc.sds4055 - 14/12/2011 - E.N. ***/
End-For;
[NF_CNFM_BBL_WRK.LOG_IN.FieldChange]
/***
BRLOC-BI-HAT-NEW-BEGIN-14/09/2001
Descrio: Painel de informaes de transacoes do invantario ligada as operacoes fisca
is
***/
Evaluate %PanelGroup
When PanelGroup.NF_CNFM_BBL
&RET = DoModal(Page.NF_INV_LOG_BBL, MsgGetText(31000, 108, "Additional Data")
, - 1, - 1, 0);
End-Evaluate;
/***
BRLOC-BI-HAT-NEW-BEGIN-14/09/2001
***/
[NF_CNFM_BBL_WRK.NF_DTL_PB_BBL.FieldChange]
/* BRLBI_01 19/01/1999 Florival Athaide */
BUSINESS_UNIT = NF_HDR_BBL_VW3.BUSINESS_UNIT;
NF_BRL_ID = FetchValue(Record.NF_HDR_BBL_VW3, CurrentRowNumber(), NF_HDR_BBL_VW3
.NF_BRL_ID);
Transfer( True, MenuName."MANAGE_NF_BBL", BarName."INQUIRE", ItemName."NF_INQR_B
BL", Panel."NF_INQR_BBL", "U", NF_HDR_BBL_VW3.BUSINESS_UNIT, NF_BRL_ID);
[NF_CNFM_BBL_WRK.NO_UOM_TYPES.FieldChange]
Confirm all demand lines.
*/
&N = ActiveRowCount(Record.NF_HDR_BBL_VW3);
For &I = 1 To &N
&NF = FetchValue(Record.NF_HDR_BBL_VW3, &I, NF_HDR_BBL_VW3.NF_BRL_ID);
&FLAG = FetchValue(Record.NF_HDR_BBL_VW3, &I, CONFIRMED_FLAG);
If All(&NF) And
(&FLAG = "Y") Then
UpdateValue(CONFIRMED_FLAG, &I, "N");
End-If;
End-For;
[NF_CNFM_BBL_WRK.REFRESH_BTN.FieldChange]
Abre e executa a janela de seleo de registros
*/
&TITLE = MsgGetText(31000, 95, "Confirm NF Selection");
NF_BRL_ID = "";
NF_BRL_SERIES = "";
NF_BRL = "";
SetDefault(NF_ISSUE_DT_BBL);
SHIP_TO_CUST_ID = "";
CARRIER_ID = "";
VEHICLE_ID = "";
RMNEIO_ID_BBL = "";
REM NF_HDR_BBL_VW3.BUSINESS_UNIT = BUSINESS_UNIT;

&RETURNCODE = DoModal(Panel.NF_CNFM_BBL_SBP, &TITLE, - 1, - 1, 0);
If &RETURNCODE > 0 Then
/* Set the order by clause */
&ORDER_BY = "NF_BRL_ID, NF_BRL_SERIES, NF_BRL";
/* Retrieve demand order lines (demand_inv) and Populate Panel Scroll */
&WHERE = " ";
If All(NF_BRL_ID) Then
&WHERE = &WHERE | " and NF_BRL_ID='" | NF_BRL_ID | "'";
End-If;
If All(NF_BRL_SERIES) Then
&WHERE = &WHERE | " and NF_BRL_SERIES ='" | NF_BRL_SERIES | "'";
End-If;
If All(NF_BRL) Then
&WHERE = &WHERE | " and NF_BRL='" | NF_BRL | "'";
End-If;
If All(SHIP_TO_CUST_ID) Then
&WHERE = &WHERE | " and SHIP_TO_CUST_ID ='" | SHIP_TO_CUST_ID | "'";
End-If;
If All(NF_ISSUE_DT_BBL) Then
&WHERE = &WHERE | " and NF_ISSUE_DT_BBL = %datein('" | NF_ISSUE_DT_BBL | "
')";
End-If;
If All(RMNEIO_ID_BBL) Then
&WHERE = &WHERE | " and RMNEIO_ID_BBL ='" | RMNEIO_ID_BBL | "'";
End-If;
If All(CARRIER_ID) Then
&WHERE = &WHERE | " and CARRIER_ID='" | CARRIER_ID | "'";
End-If;
If All(VEHICLE_ID) Then
&WHERE = &WHERE | " and VEHICLE_ID='" | VEHICLE_ID | "'";
End-If;
/* Limpa todos os registros anteriores de todos os nveis ( 1 e 2)*/
ScrollFlush(Record.NF_HDR_BBL_VW3, &LINHASNIVEL1, Record.NF_LN_BBL_VW);
End-For;
ScrollFlush(Record.NF_HDR_BBL_VW3);
ScrollSelect(1, Record.NF_HDR_BBL_VW3, Record.NF_HDR_BBL_VW3, "Where BUSINESS
_UNIT = :1 " | &WHERE | " order by " | &ORDER_BY, BUSINESS_UNIT);
For &I = 1 To ActiveRowCount(Record.NF_HDR_BBL_VW3)
UnGray(Record.NF_HDR_BBL_VW3, &I, CONFIRMED_FLAG);
&ID = FetchValue(Record.NF_HDR_BBL_VW3, &I, NF_HDR_BBL_VW3.NF_BRL_ID);
ScrollSelect(2, Record.NF_HDR_BBL_VW3, Record.NF_LN_BBL_VW, Record.NF_LN_B
BL_VW, "WHERE BUSINESS_UNIT = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, &ID);
End-For;
/* Make sure we got records back */
&V1 = FetchValue(Record.NF_HDR_BBL_VW3, 1, NF_HDR_BBL_VW3.NF_BRL_ID);
If None(&V1) Then
WinMessage(MsgGet(31000, 43, "Sorry, no NF's to confirm"), 48);
Gray(CONFIRM_ALL_BTN);
Gray(NO_UOM_TYPES);
/* No existe mais o campo LOAD_OPT_BTN na vrso 2000
Gray(PANELS2_INV_WRK.LOAD_OPT_BTN); */
Gray(Record.NF_HDR_BBL_VW3, 1, CONFIRMED_FLAG);
Else
UnGray(CONFIRM_ALL_BTN);
UnGray(NO_UOM_TYPES);
End-If;
End-If;
[NF_HDR_BRL.ACCOUNTING_DT.FieldEdit]
Declare Function IsDateBetween PeopleCode FUNCLIB_RECV.F_ISDATE FieldFormula;
/*** JEISON CALDAS - 19/04/2006 - HD20763 - Coloca consistencia da data contabil
baseada na parametrizao da unidade. Home > Definir Regras de Negcio > Definir Unid
ades de Negcio > Usar 2 > Definio de Compras - Inicio ***/
If (%Component = "NF_INFO_PBL" Or
%Component = "NF_RECV_PBL") And
All(ACCOUNTING_DT) Then
SQLExec("SELECT ADJ_RECV_DATE_NBR FROM PS_BUS_UNIT_TBL_PM WHERE BUSINESS_UNIT
= :1", BUSINESS_UNIT, &ADJ_RECV_DATE_NBR);
If Not IsDateBetween(ACCOUNTING_DT, &ADJ_RECV_DATE_NBR) Then
&TODAY = %Date;
Error MsgGet(10300, 26, "Missing Message.", ACCOUNTING_DT, &ADJ_RECV_DATE_
NBR, &TODAY);
End-If;
End-If;
/*** JEISON CALDAS - 19/04/2006 - HD20763 - Coloca consistencia da data contabil
baseada na parametrizao da unidade. Home > Definir Regras de Negcio > Definir Unid
ades de Negcio > Usar 2 > Definio de Compras - Fim ***/
[NF_HDR_BRL.ACCOUNTING_DT.RowInit]
/*******************************************************************************
*****************
ole Terceiros *
a OC. *
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Wagner Sorio - MMC - 15/06/2009 - mmcb.sds3027 - NF Devoluo
*
* Desabilitar campos da Nota Fiscal para impedir alteraes.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
iros
*
* O sistema no esta trazendo em alguns casos o preo unitrio dos itens de retorno.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Augusto / Joo Roberto Enc(Diego Mota) - MMC - mmcb.hd249968 - 12/08/2015
*
* Ajuste na atribuo do valor da linha no momento da criao da nf
*
*******************************************************************************
*****************/
Local number &numLinha;
b.sds3239.ln */
/*** JEISON CALDAS - 19/01/06 - ALTERAO BASEADA NO HELP DESK 17589 - INICIO ***/
If %Component = "NF_RECV_PBL" Or
%Component = "NF_INFO_PBL" Or
%Component = "MMC_LANC_GAR" And
%Mode = "A" Then
ACCOUNTING_DT = %Date;
End-If;
/*** JEISON CALDAS - 19/01/06 - ALTERAO BASEADA NO HELP DESK 17589 - FIM ***/
/********************** mmcb.at2323.sn **********************/

REM INICIO - NF SERVIO UNIFICADO;
SQLExec("select 'Y' from sysadm.ps_mmc_te_nf_tmp where business_unit_in=:1 an
d nf_brl_id_2_bbl=:2", BUSINESS_UNIT, NF_BRL_ID, &NFS_UNIFICADO_P2);
If &NFS_UNIFICADO_P2 = "Y" Then
Page.MMC_TE_NF_OP.Visible = True;
MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "Y";
End-If;
REM FIM - NF SERVIO UNIFICADO;
If MMC_TE_NFLN_WRK.MMC_TERCEIRO_FLG = "Y" And
MMC_TE_NFLN_WRK.MMC_EXECUTOU_FLG = "N" And
MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "N" Then
If MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N" Then
SQLExec("select setid from sysadm.ps_set_cntrl_tbl where setcntrlvalue
=:1", BUSINESS_UNIT, &VAR_SETID);
&rsMMC_TE_OC_VW = GetRowset(Scroll.MMC_TE_OC_VW);
&rowsetNiv1 = GetRowset(Scroll.NF_LN_BRL);
&COUNT = &rowsetNiv1.ActiveRowCount;
VENDOR_ID = MMC_TE_RECV_WRK.VENDOR_ID;
ADDRESS_SEQ_NUM = MMC_TE_RECV_WRK.ADDRESS_SEQ_NUM;
NF_HDR_INFO_WRK.CGC_BRL = MMC_TE_RECV_WRK.CGC_BRL;
VNDR_LOC = MMC_TE_RECV_WRK.VNDR_LOC;
SHIPTO_ID = MMC_TE_RECV_WRK.SHIPTO_ID;
NF_BRL_TYPE = "NF";
SQLExec("select a.location from sysadm.ps_location_tbl a, sysadm.ps_sh
ipto_tbl b where b.setid =:1 and b.shipto_id =:2 and b.effdt = (select max(effdt
) from sysadm.ps_shipto_tbl where setid = b.setid and shipto_id = b.shipto_id) a
nd b.eff_status = 'A' and b.setid = a.setid and b.crtl_location_bbl = a.location
and a.effdt = (select max(effdt) from sysadm.ps_location_tbl where setid = a.se
tid and location = a.location) and a.eff_status = 'A' ", &VAR_SETID, SHIPTO_ID,
&LOCATION);
EF_LOC_BRL = &LOCATION;
For &I = 1 To &rsMMC_TE_OC_VW.ActiveRowCount;
&numLinha = &I;
If &rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE = "Y
" Then
If &rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE > 0 Then
If &COUNT > 1 Then
&rowsetNiv1.InsertRow(&COUNT - 1);
End-If;
&rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_WRK.NF_BRL_LINE_NUM.VALUE =
&I; /*mmcb.sds4924.ln*/
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.ITM_SETID.VALUE = &VAR_SE
TID;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INV_ITEM_ID.VALUE = &rsMM
C_TE_OC_VW.GetRow(&I).MMC_TE_OC_VW.INV_ITEM_ID.VALUE;
SQLExec("select unit_of_measure from ps_itm_vndr_uom_pr where
setid = :1 and inv_item_id = :2 and vendor_id = :3 and vndr_loc = :4 and vendor_
setid = :5", &VAR_SETID, &rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INV_ITEM_ID.VALUE,
VENDOR_ID, VNDR_LOC, &VAR_SETID, &UNIDADE_MEDIDA);
SQLExec("select tax_class_brl from sysadm.ps_inv_items where s
etid=:1 and inv_item_id=:2 and effdt<= %DateTimeIn(:3) order by setid, inv_item_
id, effdt desc", &VAR_SETID, &rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INV_ITEM_ID.VA
LUE, %Date, &TAX_CLASS_BRL);
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.TAX_CLASS_BRL.VALUE = &TA
X_CLASS_BRL;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.UNIT_OF_MEASURE.VALUE = &
UNIDADE_MEDIDA;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.BUSINESS_UNIT_PO.Value =
&rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_OC_VW.BUSINESS_UNIT.VALUE;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.PO_ID.Value = &rsMMC_TE_O
C_VW.GetRow(&I).MMC_TE_OC_VW.PO_ID.VALUE;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.QTY_NF_BRL.VALUE = &rsMMC
_TE_OC_VW.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.UNIT_PRICE.VALUE = &rsMMC
_TE_OC_VW.GetRow(&I).MMC_TE_OC_VW.PRICE_PO.VALUE;
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.MERCH_ORIG_AMT_PBL.VALUE
= &rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_WRK.QTY_OPEN.VALUE * &rsMMC_TE_OC_VW.GetRow(
&I).MMC_TE_OC_VW.PRICE_PO.VALUE;
If None(&rsMMC_TE_OC_VW.GetRow(&I).MMC_TE_OC_VW.DESCR254_MIXED
.VALUE) Then
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.DESCR.VALUE = &rsMMC_T
E_OC_VW.GetRow(&I).MASTER_ITEM_TBL.DESCR.VALUE;
Else
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.DESCR.VALUE = &rsMMC_T
E_OC_VW.GetRow(&I).MMC_TE_OC_VW.DESCR254_MIXED.VALUE;
End-If;
SQLExec("select A.INVENTORY_ITEM, A.UNIT_MEASURE_STD from PS_M
ASTER_ITEM_TBL A where A.SETID = :1 and A.INV_ITEM_ID = :2", &VAR_SETID, &rowset
Niv1.GetRow(&COUNT).NF_LN_BRL.INV_ITEM_ID.VALUE, &INVENTORY_ITEM, &UNIT_OF_MEASU
RE);
If None(&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.UNIT_OF_MEASURE.V
ALUE) Then
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.UNIT_OF_MEASURE.VALUE
= &UNIT_OF_MEASURE;
End-If;
If None(&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INVENTORY_ITEM.VA
LUE) Then
&rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INVENTORY_ITEM.Value =
&INVENTORY_ITEM;
End-If;
SQLExec("select account from sysadm.ps_itm_purch_vw where seti
d=:1 and inv_item_id =:2 ", &VAR_SETID, &rowsetNiv1.GetRow(&COUNT).NF_LN_BRL.INV
_ITEM_ID.VALUE, &ACCOUNT);
UpdateValue(Record.NF_LN_BRL, &COUNT, BRL_DISTRIB_LN.ACCOUNT,
1, &ACCOUNT);
&COUNT = &COUNT + 1;
End-If;
End-If;
End-For;
Else
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||||||||||
|| Inicio codigo de Triangulao
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||*/
VENDOR_ID = MMC_TE_TRIA_WRK.VENDOR_ID;
ADDRESS_SEQ_NUM = MMC_TE_TRIA_WRK.ADDRESS_SEQ_NUM;
NF_HDR_INFO_WRK.CGC_BRL = MMC_TE_TRIA_WRK.CGC_BRL;
VNDR_LOC = MMC_TE_TRIA_WRK.VNDR_LOC;
NF_BRL_TYPE = "NF";
SQLExec("select setid from sysadm.ps_set_cntrl_tbl where setcntrlvalue
=:1", BUSINESS_UNIT, &VAR_SETID);
&L1NF = GetRowset(Scroll.MMC_TE_S_NF_VW);
&COUNTADOR = &rowsetN1.ActiveRowCount;
For &Q = &L1NF.ActiveRowCount To 1 Step - 1;

If &L1NF.GetRow(&Q).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE <> "Y" Then
&L1NF.DeleteRow(&Q);
End-If
End-For;
For &N = 1 To &L1NF.ActiveRowCount;
If &COUNTADOR > 1 Then
&rowsetN1.InsertRow(&COUNTADOR - 1);
End-If;
&L1NF.GetRow(&N).MMC_TE_WRK.NF_BRL_LINE_NUM.VALUE = &N; /*mmcb.sds49
24.ln*/
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.ITM_SETID.VALUE = &VAR_SETID;
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.INV_ITEM_ID.VALUE = &L1NF.Get
Row(&N).MMC_TE_S_NF_VW.INV_ITEM_ID.VALUE;
/*SQLExec("select a.unit_price, a.descr, a.unit_of_measure, a.invent
ory_item from ps_nf_ln_brl a where a.business_unit =:1 and a.nf_brl_id =:2 and a
.nf_brl_line_num =:3", &L1NF.GetRow(&COUNTADOR).MMC_TE_S_NF_VW.BUSINESS_UNIT.VAL
UE, &L1NF.GetRow(&COUNTADOR).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE, &L1NF.GetRow(&COUNT
ADOR).MMC_TE_S_NF_VW.NF_BRL_LINE_NUM.VALUE, &NF_UNIT_PRICE, &NF_DESCR, &NF_UNIT_
OF_MEASURE, &NF_INVENTORY_ITEM);*/ /*mmcb.sds3425.lo*/
SQLExec("select case when a.unit_price = 0 then a.unit_amt_bse_bbl e
lse a.unit_price end as unit_price, a.descr, a.unit_of_measure, a.inventory_item
from ps_nf_ln_brl a where a.business_unit =:1 and a.nf_brl_id =:2 and a.nf_brl_
line_num =:3", &L1NF.GetRow(&COUNTADOR).MMC_TE_S_NF_VW.BUSINESS_UNIT.VALUE, &L1N
F.GetRow(&COUNTADOR).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE, &L1NF.GetRow(&COUNTADOR).MM
C_TE_S_NF_VW.NF_BRL_LINE_NUM.VALUE, &NF_UNIT_PRICE, &NF_DESCR, &NF_UNIT_OF_MEASU
RE, &NF_INVENTORY_ITEM); /*mmcb.sds3425.ln*/
SQLExec("select tax_class_brl from sysadm.ps_inv_items where setid=:

1 and inv_item_id=:2 and effdt<= %DateTimeIn(:3) order by setid, inv_item_id, ef
fdt desc", &VAR_SETID, &rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.INV_ITEM_ID.VALUE,
%Date, &TAX_CLASS_BRL);
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.TAX_CLASS_BRL.VALUE = &TAX_CL
ASS_BRL;
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.UNIT_OF_MEASURE.VALUE = &NF_U
NIT_OF_MEASURE;
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.BUSINESS_UNIT_PO.Value = " ";
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.PO_ID.Value = " ";
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.QTY_NF_BRL.VALUE = &L1NF.GetR
ow(&N).MMC_TE_WRK.QTY_OPEN.VALUE;
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.UNIT_PRICE.VALUE = &NF_UNIT_P
RICE;
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.MERCH_ORIG_AMT_PBL.VALUE = &L
1NF.GetRow(&N).MMC_TE_WRK.QTY_OPEN.VALUE * &rowsetN1.GetRow(&COUNTADOR).NF_LN_BR
L.UNIT_PRICE.VALUE;
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.DESCR.VALUE = &NF_DESCR;
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.INVENTORY_ITEM.VALUE = &NF_IN
VENTORY_ITEM;
If None(&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.UNIT_OF_MEASURE.VALUE
) Then
/*Error ("NF ID: " | &L1NF.GetRow(&COUNTADOR).MMC_TE_S_NF_VW.NF_B
RL_ID.VALUE | " est sem Unidade Medida"); */
/* Fabiano Cunha / Claudio Costa - MMC - SDS 3239 - 30/01/2010 Adequao para o sistema de terceiros da SVB */
If (&L1NF.GetRow(&COUNTADOR).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE = "DS
00000001") Or
(&L1NF.GetRow(&COUNTADOR).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE =
"DS00000002") Or
(&L1NF.GetRow(&COUNTADOR).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE =
"DS00000003") Then
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.UNIT_OF_MEASURE.VALUE =
"PC";
Else
Error ("NF ID: " | &L1NF.GetRow(&COUNTADOR).MMC_TE_S_NF_VW.NF_
BRL_ID.VALUE | " est sem Unidade Medida");
End-If;
End-If;
/* Fabiano Cunha / Claudio Costa - MMC - SDS 3239 - 30/01/2010 - Ade
quao para o sistema de terceiros da SVB */
If None(&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.INVENTORY_ITEM.VALUE)
Then
SQLExec("select A.INVENTORY_ITEM from PS_MASTER_ITEM_TBL A where
A.SETID = :1 and A.INV_ITEM_ID = :2 ", &SETID_GERAL, &rowsetN1.GetRow(&COUNTADOR
).NF_LN_BRL.INV_ITEM_ID.VALUE, &NF_INVENTORY_ITEM);
&rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.INVENTORY_ITEM.VALUE = &NF
_INVENTORY_ITEM;
End-If;
SQLExec("select account from sysadm.ps_itm_purch_vw where setid=:1 a
nd inv_item_id =:2 ", &VAR_SETID, &rowsetN1.GetRow(&COUNTADOR).NF_LN_BRL.INV_ITE
M_ID.VALUE, &ACCOUNT);
UpdateValue(Record.NF_LN_BRL, &COUNTADOR, BRL_DISTRIB_LN.ACCOUNT, 1,
&ACCOUNT);
&COUNTADOR = &COUNTADOR + 1;
End-For;
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||||||||||
|| FIM codigo de Triangulao
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
*/
End-If; /* If MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N" Then*/

MMC_TE_NFLN_WRK.MMC_EXECUTOU_FLG = "Y";
End-If;
/********************************** mmcb.sds4924.sn *************************
*********/
If All(MMC_TE_TRIA_WRK.MMC_CHAVE_ACS_NFE) Then
MMC_CH_ACES_NFE.MMC_CHAVE_ACS_NFE = MMC_TE_TRIA_WRK.MMC_CHAVE_ACS_NFE;
If MMC_TE_TRIA_WRK.MERCHANDISE_AMT > 0 And
MMC_TE_TRIA_WRK.MMC_TE_TIPO_RECEBI = "N" Then
RECV_HD_WRK_PBL.GROSS_AMT_PBL_WRK = MMC_TE_TRIA_WRK.MERCHANDISE_AMT;
End-If;
End-If;
/********************************** mmcb.sds4924.sn *************************
*********/
/*
If MMC_TE_TRIA_WRK.MMC_TE_TIPO_RECEBI = "Y" Then
&L_IND = GetRowset(Scroll.NF_LN_BRL);
&L_IND.GetRow(&NIND).MMC_TE_OP_WRK.BUSINESS_UNIT_IN.Enabled = False;
&L_IND.GetRow(&NIND).MMC_TE_OP_WRK.NF_BRL_ID_2_BBL.Enabled = False;
&L_IND.GetRow(&NIND).MMC_TE_OP_WRK.DESCR.VALUE = "Recebimento NF Servio
Unificado";
*/
/*
If &NIND > 1 Then
&L_IND.GetRow(&NIND).MMC_TE_OP_WRK.INV_ITEM_ID.Enabled = False;
&L_IND.GetRow(&NIND).MMC_TE_OP_WRK.MMC_TE_QTD_PAI.Enabled = False;
End-If;
*/
/*
End-For;
End-If;
*/
REM NF SERVIO;
MMC_TE_OP_OC_WK.BUTTON1.Enabled = False;
MMC_TE_OP_OC_WK.BTN_SELECT.Enabled = False;
MMC_TE_OP_OC_WK.BUTTON.Enabled = False;
&L_IND = GetRowset(Scroll.NF_LN_BRL);
&L_IND.GetRow(&NIND).MMC_TE_OP_WRK.DESCR.VALUE = "Recebimento NF Servio"
;
End-For;
Else
Page.MMC_TE_NF_OP.Visible = False;
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
/********************** mmcb.sds3027.sn **********************/
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_NFD_HDR WHERE BUSINESS_UNIT = :1 AND N
F_BRL_ID = :2 ", BUSINESS_UNIT, NF_BRL_ID, &NF_TERCEIROS);
If &NF_TERCEIROS = "Y" Then
Gray(VENDOR_ID);
Gray(ADDRESS_SEQ_NUM);
Gray(NF_HDR_INFO_WRK.CGC_BRL);
End-If;
End-If;
/********************** mmcb.sds3027.sn **********************/
[NF_HDR_BRL.ACCOUNTING_DT.SaveEdit]
/*******************************************************************************
*****************
* Augusto/Lucas (Enc. Bleno Sampaio) - MMC - 02/05/2011 - mmcb.hd115028
*
* Trava para que o sistema no permita incluso de rec. fiscla com data de emisso da
NF
*
* maior que a data contbil do documento.
*
*******************************************************************************
*****************/
/************************mmcb.hd115028.sn************************/
If %Component = "NF_RECV_PBL" Then
If NF_BRL_DATE > ACCOUNTING_DT Then
Error ("A data de emisso da NF no pode ser maior que a data contbil! ");
End-If;
End-If;
/************************mmcb.hd115028.sn************************/
[NF_HDR_BRL.ACCOUNT_FLOW_PBL.SavePreChange]
/*******************************************************************************
*******
* Vinicius Montijo Favero - MMC - 11/03/2015 - mmcb.sds5100

*
* Ajuste de Dados Incorretos no Registro ou Faturamento
*
********************************************************************************
*******/
/******************************* mmcb.sds5100 s.n ******************************
*/
If %Component = "MMC_NF_STAT_CONT" Then
If ACCOUNT_FLOW_PBL <> "A" Then
Error ("S possivel alterar o status da nota pata 'Gera Contabilizao'!");
End-If;
SQLExec("Insert into SYSADM.PSAUDIT (AUDIT_OPRID, AUDIT_STAMP, AUDIT_ACTN, R
ECNAME, FIELDNAME, OLDVALUE, NEWVALUE, KEY1, KEY2, KEY3, KEY4, KEY5, KEY6, KEY7,
KEY8, KEY9, KEY10, KEY11, KEY12, KEY13, KEY14, KEY15) Values
(:1, SYSDATE,
'A', 'NF_HDR_BRL', 'ACCOUNT_FLOW_PBL', :2, 'A', :3, :4, ' ', ' ', ' ', ' ', ' ',
' ',' ', ' ', ' ', ' ', ' ', ' ', ' ')", %UserId, NF_HDR_BRL.ACCOUNT_FLOW_PBL.O
riginalValue, BUSINESS_UNIT, NF_BRL_ID);
End-If;
/******************************* mmcb.sds5100 e.n ******************************

*/
[NF_HDR_BRL.ADDRESS_SEQ_NUM.FieldChange]
/*******************************************************************************
*****************
* Claudio Henrique da Costa - MMCB - 14/12/2010 - mmcb.sds3445
*
* Interface - GKO - People
*
*******************************************************************************
*****************/
/* mmcb.sds3445.sn */
Declare Function Carrega_Redespacho_Fornecedor PeopleCode VENDOR_ID FieldChange;
/* mmcb.sds3445.en */
/*BRLOC - PO - APP - 8.00 - 16/01/01 - BEGIN */
/* Busca o Estado Origem */
If %PanelGroup = PanelGroup.NF_INFO_PBL Then
SHIP_FROM_STATE = VENDOR_ADDR.STATE;
End-If;
/*BRLOC-PO-APP-8.00-30/08/01-5K4RY*/
/* Alterao no select para trazer os dados para o endereo correspondente */
SQLExec("SELECT A.CGC_BRL,A.PAY_TRMS_DIV_PBL,B.COLLECT_COD_BRL,B.DEFAULT_LOC FRO
M PS_VNDR_ADDR_sCROL A, PS_VENDOR B WHERE A.SETID = B.SETID AND A.VENDOR_ID = B.
VENDOR_ID AND A.SETID = :1 AND A.VENDOR_ID = :2 AND A.ADDRESS_SEQ_NUM = :3", VEN
DOR.SETID, VENDOR_ID, ADDRESS_SEQ_NUM, NF_HDR_INFO_WRK.CGC_BRL, &PAY_TRMS, COLLE
CT_COD_BRL, VNDR_LOC);
If VNDR_ADDR_SCROL.PAY_TRMS_DIV_PBL = "Y" Then

UnGray(RECV_HD_WRK_PBL.XFR_TERMS_PB);
Else
Gray(RECV_HD_WRK_PBL.XFR_TERMS_PB);
End-If;
/*BRLOC - PO - APP - 8.00 - 16/01/01 - END */
/*** JEISON CALDAS - 02/11/2005 - TRATAMENTO PARA LEVAR ALTERAO DO CABECALHO PARA
AS LINHAS DO DOCUMENTO FISCAL - INCIO ***/
If %Component = Component.NF_RECV_PBL Or
%Component = Component.NF_INFO_PBL And
All(NF_HDR_INFO_WRK.TOF_PBL) And
REM BUSCA ESTADO E PAIS DO FORNECEDOR;
SQLExec("SELECT STATE, COUNTRY FROM PS_VENDOR_ADDR WHERE SETID = 'MMCSA' AND
VENDOR_ID = :1 AND ADDRESS_SEQ_NUM = :2 AND EFF_STATUS = 'A'", VENDOR_ID, ADDRES
S_SEQ_NUM, &STATE, &COUNTRY);
REM CHECA LOCAL DE ENTREGA SP OU GO ;
If (SHIPTO_ID = "LCPTS" Or
SHIPTO_ID = "LDEFS" Or
SHIPTO_ID = "LINDS" Or
SHIPTO_ID = "LOVIN" Or
SHIPTO_ID = "LVEIN" Or
SHIPTO_ID = "LVPEC" Or
SHIPTO_ID = "LVVEI" Or
SHIPTO_ID = "LMKTS" Or
SHIPTO_ID = "LREVS" Or
SHIPTO_ID = "LCPTS" Or
SHIPTO_ID = "SO PAULO") Then
&ENTREGA = "SP";
Else
&ENTREGA = "GO";
End-If;
REM BUSCA PARAMETROS DE CFOP E FINALIDADE BASEADO NA OPERACAO FISCAL;
SQLExec("SELECT CFOP_STATE_BBL, CFOP_INTST_BBL, CFOP_INTNT_BBL ,PURCH_PROP_BR
L FROM PS_TOF_TYPE_PBL WHERE TOF_PBL = :1 AND EFF_STATUS = 'A'", NF_HDR_INFO_WRK
.TOF_PBL, &CFOP_INTERNO, &CFOP_EXTERNO, &CFOP_EXTERIOR, &FINALIDADE);
If All(&COUNTRY) And
&COUNTRY <> "BRA" Then
&CFOP = &CFOP_EXTERIOR;
Else
If All(&STATE) And
All(&ENTREGA) Then
If &STATE = &ENTREGA Then
&CFOP = &CFOP_INTERNO;
Else
&CFOP = &CFOP_EXTERNO;
End-If;
End-If;
End-If;
&LN_MAXROW = ActiveRowCount(Scroll.NF_LN_BRL);
For &LN_ROW = 1 To &LN_MAXROW
UpdateValue(NF_LN_BRL.TOF_PBL, &LN_ROW, NF_HDR_INFO_WRK.TOF_PBL);
UpdateValue(NF_LN_BRL.PURCH_PROP_BRL, &LN_ROW, &FINALIDADE);
UpdateValue(NF_LN_BRL.CFOP_INCOM_PBL, &LN_ROW, &CFOP);
End-For;
End-If;
AS LINHAS DO DOCUMENTO FISCAL - FIM ***/
Carrega_Redespacho_Fornecedor();
[NF_HDR_BRL.ADDRESS_SEQ_NUM.FieldEdit]
/***************************************************************************
* Bleno L Sampaio - 07/02/2012 - mmcb.hd133155
*
* Corrigir validao de NF j existente comtemplando tambm a data da NF. *
****************************************************************************/
/**** BRLOC-PO-AO-FIX:R-ASIQUE-EP2NX - 11/10/2000 ***/
/**** Valida o numero/serie da NF ***********/
Function nf_num_valid_brl();
If All(NF_BRL) And
All(VENDOR_ID) And
All(ADDRESS_SEQ_NUM) And
All(NF_BRL_SERIES) Then
SQLExec("Select A.CGC_BRL FROM PS_VNDR_ADDR_SCROL A where A.SETID = :1 and
A.VENDOR_ID = :2 and A.ADDRESS_SEQ_NUM = :3", VENDOR_SETID, VENDOR_ID, ADDRESS_
SEQ_NUM, &CGC_BRL);
If All(&CGC_BRL) Then
&RETURN = "";
/*************************************mmcb.hd133155.so*****************
********************/
/*SQLExec("Select 'X' from PS_NF_HDR_BRL A, PS_VNDR_ADDR_SCROL B where
B.CGC_BRL = :1 AND A.VENDOR_SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID and A.
ADDRESS_SEQ_NUM = B.ADDRESS_SEQ_NUM and A.NF_BRL = :2 and A.NF_BRL_SERIES = :3 a
nd A.NF_BRL_ID <> :4 and A.NF_BRL_STATUS <> 'X' AND A.INOUT_FLG_PBL = 'I'", &CGC
_BRL, NF_BRL, NF_BRL_SERIES, NF_BRL_ID, &RETURN);*/
/*************************************mmcb.hd133155.eo*****************
********************/
/*************************************mmcb.hd133155.sn*****************
********************/
SQLExec("Select 'X' from PS_NF_HDR_BRL A, PS_VNDR_ADDR_SCROL B where B.
CGC_BRL = :1 AND A.VENDOR_SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID and A.AD
DRESS_SEQ_NUM = B.ADDRESS_SEQ_NUM and A.NF_BRL = :2 and A.NF_BRL_SERIES = :3 and
A.NF_BRL_ID <> :4 and A.NF_BRL_STATUS <> 'X' AND A.INOUT_FLG_PBL = 'I' AND A.NF
_BRL_DATE = %datein(:5)", &CGC_BRL, NF_BRL, NF_BRL_SERIES, NF_BRL_ID, NF_BRL_DAT
E, &RETURN);
/*************************************mmcb.hd133155.en*****************
********************/
If All(&RETURN) Then
Error MsgGet(28000, 2, "This Nota Fiscal already exists.");
End-If;
Else
/*************************************mmcb.hd133155.so*****************
********************/
/*SQLExec("Select 'X' from PS_NF_HDR_BRL where NF_BRL = :1 and VENDOR_I
D = :2 and NF_BRL_SERIES = :3 and NF_BRL_ID <> :4 and NF_BRL_STATUS <> 'X' AND I
NOUT_FLG_PBL = 'I'", NF_BRL, VENDOR_ID, NF_BRL_SERIES, NF_BRL_ID, &RETURN);*/

/*************************************mmcb.hd133155.eo*****************
********************/
/*************************************mmcb.hd133155.sn*****************
********************/
SQLExec("Select 'X' from PS_NF_HDR_BRL where NF_BRL = :1 and VENDOR_ID
= :2 and NF_BRL_SERIES = :3 and NF_BRL_ID <> :4 and NF_BRL_STATUS <> 'X' AND INO
UT_FLG_PBL = 'I' AND NF_BRL_DATE = %datein(:5)", NF_BRL, VENDOR_ID, NF_BRL_SERIE
S, NF_BRL_ID, NF_BRL_DATE, &RETURN);
/*************************************mmcb.hd133155.en*****************
********************/
End-If;
End-If;
End-If;
End-Function;
/* BRLOC PM - 23/JUL/97 - It is not possible to have the same vendor/nf_brl/seri
es more than once */
/**BRLPO-SHN-DEC-99 - Included validation on CCG Vendor**/
/** BRLOC-PO-AO-FIX:R-ASIQUE-A37A6 - 15/09/2000 ************************
** Movido a validao do FieldEdit do VENDOR_ID para ADRESS_SEQ_NUM ***
************************************************************************/
/**** Transformado em funcao a validao da NF/Serie ***/
nf_num_valid_brl();
/* Valmir Tavares - HQS - 04.12.2005 - Vamos atribuir o CNPJ - Inicio */
If All(&CGC_BRL) Then
CGC_BRL = &CGC_BRL;
End-If;
/* Valmir Tavares - HQS - 04.12.2005 - Vamos atribuir o CNPJ - Fim */
[NF_HDR_BRL.APPR_STATUS.RowInit]
/* BRLOC-PO - RELEASE 8.00 - HAT - 17/04/01 - Move as informaes Default da BU-OPT
para aprovao */
/* FABIANO CUNHA - 01/12/2005 - Nova funcionalidade da verso 8 que j funcionava pa
ra notas inseridas diretamente no painel. Porem a mesma funcionalidade se estend
er para para as notas de importacao.
*/
If (%Component = Component.NF_INFO_PBL And
%Mode = "A") Or
(%Component = Component.NF_RECV_PBL And
%Mode = "U" And
OPRID_LAST_UPDT = "IMPORTACAO") Or
(Left(NF_BRL_ID, 2) = "NI") Then
&SETID = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "DFI_PBL_APPRVL_FLG", "");
SQLExec("SELECT B.DFI_PBL_APPRVL_FLG, B.BUSPROCNAME_PBL, B.APPR_RULE_SET_PBL
FROM PS_BUS_UNIT_TBL_PM A, PS_BUS_UNIT_OPT_PM B WHERE A.BUSINESS_UNIT = :1 AND B
.PRCS_OPTION_ID = A.PRCS_OPTION_ID AND B.SETID = :2 AND B.EFFDT = (SELECT MAX(C.
EFFDT) FROM PS_BUS_UNIT_OPT_PM C WHERE C.SETID = B.SETID AND C.PRCS_OPTION_ID =
B.PRCS_OPTION_ID AND C.EFFDT <= %DateIn(:3))", BUSINESS_UNIT, &SETID, NF_BRL_DA
TE, &DFI_PBL_APPRVL_FLG, &BUSPROCNAME_PBL, &APPR_RULE_SET_PBL);
If &DFI_PBL_APPRVL_FLG = "S" Then
APPR_STATUS = "P";
DFI_PBL_APPRVL_FLG = &DFI_PBL_APPRVL_FLG;
BUSPROCNAME = &BUSPROCNAME_PBL;
APPR_RULE_SET = &APPR_RULE_SET_PBL;
Else
APPR_STATUS = "A";
DFI_PBL_APPRVL_FLG = "P";
End-If;
End-If;
/* BRLOC-PO - RELEASE 8.00 - HAT - 17/04/01 - END */
[NF_HDR_BRL.BUSINESS_UNIT.FieldFormula]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/***********************************mmcb.sds5100 s.n****************************
*****************/
Function valida_somatoria_linhas(&tabela, &campo, &valor_hdr);
&TOTAL = 0;
For &LINE_ROW = 1 To ActiveRowCount(@&tabela)
&linha = FetchValue(@&campo, &LINE_ROW);
&TOTAL = &TOTAL + &linha;
End-For;
&position = Find(".", &campo);
&campo2 = Substring(&campo, &position + 1, Len(&campo));
&campo_descr = &campo2;
SQLExec("SELECT LONGNAME FROM PSDBFLDLABLLANG WHERE FIELDNAME = :1 AND LABEL_
ID = :2 AND LANGUAGE_CD = 'POR'", &campo2, &campo2, &campo_descr);
If &TOTAL <> &valor_hdr Then
Error ("A somatoria do valor do campo " | &campo_descr | " ( " | &campo2 |
" ) -> " | &TOTAL | ", no bate com o valor do cabealho - > " | &valor_hdr);
End-If;
End-Function;
/***********************************mmcb.sds5100 e.n****************************
*****************/
[NF_HDR_BRL.BUSINESS_UNIT.RowInit]
/*******************************************************************************
*
* Fabiano Cunha - MMCB - 05/11/2009
- mmcb.sds3239
*
*******************************************************************************
*/
/************************************************************************
*
*
*************************************************************************/
mmcb.sds4689.lo */
Declare Function MMC_BUSINESS_UNIT PeopleCode MMC_BUS_UNIT.BUSINESS_UNIT SavePos
tChange; /* mmcb.sds4689.ln */
Declare Function Sugestion_Amount PeopleCode RECV_HD_WRK_PBL.NF_SUG_AMOUNT_PBL F
ieldFormula;
/* fabiano cunha - 21/10/2005 - adequacao da versao 7 para 8 - sera usada na tab
ela MMC_CCG_WRK */
PanelGroup string &MMC_CCG_LANCAR_NF;
PanelGroup string &MMC_CCG_NROS;
PanelGroup string &MMC_CCG_OSSEQ;
%Component = "NF_INFO_PBL" Then
Sugestion_Amount();
/* BRLOC-PO-HAT-8.00-24/04/01 - Gray - Qdo. c/Recebimento */
If %Component = Component.NF_RECV_PBL Then
If %Mode <> "A" Then
&po_id = FetchValue(NF_LN_BRL.PO_ID, 1);
If All(&po_id) Then
Gray(PYMNT_TERMS_CD);
Gray(VNDR_LOC);
Gray(PAY_TRM_BSE_DT_OPT);
End-If;
Gray(NF_BRL);
Gray(NF_BRL_SERIES);
Gray(NF_BRL_DATE);
Gray(VENDOR_ID);
Gray(NF_HDR_INFO_WRK.CGC_BRL);
Gray(ADDRESS_SEQ_NUM);
If All(EF_LOC_BRL) Then
Gray(EF_LOC_BRL);
End-If;
Gray(SHIPTO_ID);
Gray(VNDR_LOC);
&TOTSHIP_ROW = ActiveRowCount(Record.NF_LN_BRL);
For &SHIP_ROW = 1 To &TOTSHIP_ROW
Gray(NF_LN_BRL.INV_ITEM_ID, &SHIP_ROW);
Gray(NF_LN_BRL.DESCR, &SHIP_ROW);
End-For;
End-If;
/**** INICIO - AUGUSTO VILARINHO NETO - 25/11/2005 - Libera campo de desc
rio do item para alterao do usurio ****/
&TOTSHIP_ROW = ActiveRowCount(Record.NF_LN_BRL);
For &SHIP_ROW = 1 To &TOTSHIP_ROW
/********************** mmcb.sds4689.so **********************/
/* If ((BUSINESS_UNIT = "POIND") Or
(BUSINESS_UNIT = "POMKT")) Then

*/
/********************** mmcb.sds4689.eo **********************/
/********************** mmcb.sds4689.sn **********************/
If ((BUSINESS_UNIT = MMC_BUSINESS_UNIT("POINDI", BUSINESS_UNIT)) Or
(BUSINESS_UNIT = MMC_BUSINESS_UNIT("POMKT", BUSINESS_UNIT))) Then
/********************** mmcb.sds4689.en **********************/
UnGray(NF_LN_BRL.DESCR, &SHIP_ROW);
End-If;
End-For;
/**** FIM - AUGUSTO VILARINHO NETO - 25/11/2005 - Libera campo de descrio d
o item para alterao do usurio ****/
End-If;
/* BRLOC-PO-HAT-8.00-24/04/01 - end */
End-If;
/* *****************************************************************************
********************/
/*
Fabiano cunha - 21/10/2005- Adequao da verso 7 pra 8 - Este codigo foi readequado
na verso 8 devido o recebimento ter sofrido mudandas.
*/
/*
JTorres - HQS - 21/06/2001 - CUSTOMIZAO CONTA CORRENTE GARANTIA
Busca o nmero da os e sequencia
*/
If %PanelGroup = "MMC_LANC_GAR" Then
SQLExec("SELECT MMC_CCG_NROS, MMC_CCG_OSSEQ, MMC_CCG_LANCAR_NF FROM PS_MMC_CC
G_OS_RECV WHERE BUSINESS_UNIT = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_BRL_ID
, &MMC_CCG_NROS, &MMC_CCG_OSSEQ, &MMC_CCG_LANCAR_NF);
/* WILSON BORGES DE OLIVEIRA - MMCB */
SQLExec("SELECT MAX(NF_BRL_ID) FROM PS_MMC_CCG_OS_RECV WHERE BUSINESS_UNIT =
:1 AND NF_BRL = :2 AND NF_BRL_SERIES = :3", BUSINESS_UNIT, NF_BRL, NF_BRL_SERIES
, &MAX_NF_ID);
SQLExec("SELECT MMC_CCG_NROS, MMC_CCG_OSSEQ, MMC_CCG_LANCAR_NF FROM PS_MMC_CC
G_OS_RECV WHERE BUSINESS_UNIT = :1 AND NF_BRL_ID= :2 AND NF_BRL = :3 AND NF_BRL_
SERIES = :4", BUSINESS_UNIT, &MAX_NF_ID, NF_BRL, NF_BRL_SERIES, MMC_CCG_WRK.MMC_
CCG_NROS, MMC_CCG_WRK.MMC_CCG_OSSEQ, MMC_CCG_WRK.MMC_CCG_LANCAR_NF);
End-If;
/*
FIM DO PROCESSO CUSTOMIZADO
*/
[NF_HDR_BRL.BUSINESS_UNIT.SaveEdit]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/* BRLOC-PO-SAM-RELEASE 8.0-NEW-05/04/01
No executar o cdigo se o Component = 'DFI_CANCEL_PBL' (Cancelamento de Doc. Fiscal
) ou 'REOPEN_FISCDOC_PBL' (Reabertura de Doc. Fiscal) ou 'DELETE_FISCDOC_PBL' (D
eleo de Doc. Fiscal) ou 'CLOSE_FISCDOC_PBL' (Encerramento de Doc. Fiscal).
*/
Declare Function Validate_Calc PeopleCode FUNCLIB_PBL.VALIDATION_NF_PBL FieldFor
mula;
Declare Function NF_LOG PeopleCode RECV_HD_WRK_PBL.NF_NAV_L1 FieldFormula;
/* BRLOC-PO-SAM-RELEASE 8.0-NEW-BEGIN-05/04/01 */
If %Component <> Component.DFI_CANCEL_PBL And
%Component <> Component.REOPEN_FISCDOC_PBL And
%Component <> Component.DELETE_FISCDOC_PBL And
%Component <> Component.MMC_NF_ALTERA And /*mmcb.sds5100 l.n*/
%Component <> Component.MMC_NF_FA_ALTERA And /*mmcb.sds5100 l.n*/
%Component <> Component.MMC_NF_STAT_CONT And /*mmcb.sds5100 l.n*/
%Component <> Component.CLOSE_FISCDOC_PBL And
%Component <> Component.MMC_NF_INFO_AVRG And
%Component <> Component.DFI_APPROVAL_PBL Then
/* BRLOC-PO-SAM-RELEASE 8.0-NEW-END-05/04/01 */
/* Efetua validao dos campos do documento fiscal, se houve problema na validao o
status da NF deve ser tornar OPEN */
If VENDOR_ID <> "001327" Or
NF_BRL_STATUS = "O" Then
&VALIDATE_FLG = Validate_Calc();
If &VALIDATE_FLG And
NF_BRL_STATUS = "F" Then
NF_HDR_INFO_WRK.NF_BRL_STATUS = "O";
NF_BRL_STATUS = "O";
Error MsgGet(30000, 214, "Errors found when trying to complete the Fisc
al Document!");
End-If;
End-If;
If GetLevel0()(1).GetRowset(Scroll.RECV_NF_LOG_PBL).ActiveRowCount >= 1 And
All(GetLevel0()(1).GetRowset(Scroll.RECV_NF_LOG_PBL)(1).GetRecord(Recor
d.RECV_NF_LOG_PBL).SEQUENCE_NBR.Value) Then
Warning MsgGet(30000, 215, "Warning! Check the Log for Messages.");
NF_LOG();
End-If;
End-If
[NF_HDR_BRL.BUSINESS_UNIT.SavePostChange]
/*******************************************************************************
*****************
* Claudio Henrique da Costa - MMC - 07/03/2007 - mmcb.hd29508
*
* Correcao do programa para atualizar a tabela MMC_CONTR_DEVOL.
*
/*******************************************************************************
*****************
* Itamar Junior - MMCB - 10/08/2009 - mmcb.hd72747 - Evitando que uma linha exis
tente seja
*
* removida do sistema, evitando que ocorra a duplicidade na conta corrente do co
ncessionrio
*
********************************************************************************
*****************/
/*******************************************************************************
*****************
* Gustavo Vilarinho - MMCB - 27/07/2010 - mmcb.sds2719 - Armazenagem entre unida
de
*
********************************************************************************
*****************/
/*******************************************************************************
*****************
Fernando Camarinha - MMCB - 21/11/2012 - mmcb.sds3884
Novo Sistema de Controle de Pagamentos Comisses de Venda
********************************************************************************
*****************/
/*******************************************************************************
*****************
Itamar Junior - MMCB - 06/06/2014
- mmcb.hd203166
Ajustando a gravao dos lanamentos de estorno na Journal, para as NFs de Comisses,
pois quando uma NF tem mais de uma linha e consequentemente est atendendo mais de
uma OC, o sistema
estava gravando apenas os lanamentos da primeira linha da NF
********************************************************************************
*****************/
/*******************************************************************************
*****************
Douglas Jesus Rodovalho - MMCB - 25/09/2014
- mmcb.hd214121
Ajustando a gravao dos lanamentos de na Journal, pois a concatenao da NF_DOC e NF_BRL
_SERIES
esta ultrapassando o tamanho de 10 dgitos em alguns casos gerando erro na gravao no
campo PROC_PART_ID.
********************************************************************************
*****************/
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
Declare Function nf_match PeopleCode RECV_HD_WRK_PBL.NF_NAV_L1 FieldFormula;
Declare Function nf_LOG PeopleCode RECV_HD_WRK_PBL.NF_NAV_L1 FieldFormula;
/********************* MMCB.sds3884.sn *********************/
Declare Function get_journal_id PeopleCode FUNCLIB_GL.JOURNAL_ID FieldFormula;
/********************* MMCB.sds3884.en *********************/
Local Rowset &linhas, &CONTROLE;
No chamar a rotina de Matching se for cancelamento / reabertura / deleo / encerrame
nto.*/

/* BRLOC-PO-HAT-8.00-16/02/01 - Atualiza RECV_HDR.FLG_NF_FISCAL_PBL = 'Y' */
If %Mode = "A" And
All(RECEIVER_ID) Then
SQLExec("UPDATE PS_RECV_HDR SET FLG_NF_FISCAL_PBL = 'Y' WHERE BUSINESS_UNI
T = :1 AND RECEIVER_ID = :2", BUSINESS_UNIT, RECEIVER_ID);
End-If;
/* BRLOC-PO-HAT-8.00-16/02/01 - END */
/*BRLOC-PO-APP-8.00-29/01/01-BEGIN*/
/*Chamada para a execuo do processo de matching, somente quando a opo de matching
do fornecedor ou da BU estiver setada e quando a NF est COMPLETA*/
/*** BRLOC-PO-AO-26/09/2001 - Alterado condio para matching ***/
/**** condio antiga (inibido) *************
If ((VENDOR_LOC.MATCH_OPT = "Y") Or
(BUS_UNIT_TBL_PM.MATCH_OPT = "Y" And
VENDOR_LOC.MATCH_OPT <> "Y")) And
NF_HDR_INFO_WRK.NF_BRL_STATUS = "F" Then
**** condio antiga *************/
/*** nova condio ***********/
If ((VENDOR_LOC.MATCH_OPT_FLG = "S" And
VENDOR_LOC.MATCH_OPT = "Y") Or
(VENDOR_LOC.MATCH_OPT_FLG <> "S" And
BUS_UNIT_TBL_PM.MATCH_OPT = "Y")) And
/*** BRLOC-PO-AO-26/09/2001 - FIM - Alterado condio para matching ***/
/*** Verifica ID do controle de regras de matching a serem executadas ***/
If VENDOR_LOC.MATCH_OPT = "Y" Then
&CNTRL_MTCH = VENDOR_LOC.MATCH_CNTRL_ID;
Else
&CNTRL_MTCH = BUS_UNIT_TBL_PM.MATCH_CNTRL_ID;
End-If;
/* - Atualiza dados da tabela de divergncias do matching que j foram verific
adas
- Atualiza divergncias da tabela que j foram verificadas
- Limpa a scroll *****/
&LINE_MAX_ROW = ActiveRowCount(Record.NF_LN_BRL);
&primer = "N";
For &LINE_ROW = 1 To &LINE_MAX_ROW
&DIV_MAX_ROW = ActiveRowCount(Record.NF_LN_BRL, &LINE_ROW, Record.DIV_M
TCH_PBL);
For &DIV_ROW = &DIV_MAX_ROW To 1 Step - 1
&check = FetchValue(Record.NF_LN_BRL, &LINE_ROW, DIV_MTCH_PBL.DIV_CH
K_PBL, &DIV_ROW);
&RULE_ID = FetchValue(Record.NF_LN_BRL, &LINE_ROW, DIV_MTCH_PBL.MATC
H_RULE_ID, &DIV_ROW);
&CNTRL_ID = FetchValue(Record.NF_LN_BRL, &LINE_ROW, DIV_MTCH_PBL.MAT
CH_CNTRL_ID, &DIV_ROW);
&div_act = FetchValue(Record.NF_LN_BRL, &LINE_ROW, DIV_MTCH_PBL.DIV_
ACTN_PBL, &DIV_ROW);
SQLExec("SELECT MAX(PROCESS_INSTANCE) FROM PS_DIV_MTCH_PBL WHERE BUS
INESS_UNIT = :1 AND NF_BRL_ID = :2 AND NF_BRL_LINE_NUM = :3", BUSINESS_UNIT, NF
_BRL_ID, &LINE_ROW, &PROC_INSTANCE);
If &check = "Y" Then
If &primer = "N" Then
&PROC_INSTANCE = &PROC_INSTANCE + 1;
End-If;
&primer = "Y";
SQLExec("UPDATE PS_DIV_MTCH_PBL SET PROCESS_INSTANCE = :1, DIV_CH
K_PBL = 'Y', DIV_ACTN_PBL = :2 WHERE BUSINESS_UNIT = :3 AND NF_BRL_ID = :4 AND N
F_BRL_LINE_NUM = :5 AND MATCH_CNTRL_ID = :6 AND MATCH_RULE_ID = :7", &PROC_INSTA
NCE, &div_act, BUSINESS_UNIT, NF_BRL_ID, &LINE_ROW, &CNTRL_ID, &RULE_ID);
End-If;
If &check = "N" Then
/*
RowFlush(Record.NF_LN_BRL, &LINE_ROW, Record.DIV
_MTCH_PBL, &DIV_ROW);*/
DeleteRow(Record.NF_LN_BRL, &LINE_ROW, Record.DIV_MTCH_PBL, &DIV_
ROW);
End-If;
End-For;
SQLExec("delete from PS_DIV_MTCH_PBL WHERE BUSINESS_UNIT = :1 AND NF_BR
L_ID = :2 AND NF_BRL_LINE_NUM = :3 AND DIV_CHK_PBL = 'N'", BUSINESS_UNIT, NF_BRL
_ID, &LINE_ROW);
End-For;
/*Verifica se recebimento fiscal est relacionado a recebimento fsico*/
If All(RECEIVER_ID) Then
/*verifica se recebimento fsico com PO ou sem PO */
If All(&po_id) Then
&SQLWHERE = "A.MTCH_RCV_PO_PBL = 'Y'";
Else
&SQLWHERE = "A.MTCH_RCV_WPO_PBL = 'Y'";
End-If;
Else
&SQLWHERE = "A.MTCH_RCV_TP_PBL = 'Y'";
End-If;
/* Popula record com divergncias do processo de matching se existir */
&SQL = CreateSQL("SELECT A.MATCH_RULE_ID, C.MATCH_CNTRL_ID, C.SETID FROM P
S_MTCH_SYS_RULES A, PS_MTCH_RULES C WHERE C.MATCH_CNTRL_ID = :1 AND C.MATCH_RULE
_ID = A.MATCH_RULE_ID AND " | &SQLWHERE | "", &CNTRL_MTCH);
While &SQL.Fetch(&MTCHID, &MTCNTRLID, &SETID)
/*BRLOC-PO-APP-8.01-30/10/01-C1SSUDA-VB35J-BEGIN*/
/* Alterado o valor para o field PROCESS_INSTANCE para acerto no Unix e
SyBase */
SQLExec("INSERT INTO PS_DIV_MTCH_PBL ( BUSINESS_UNIT, NF_BRL_ID, NF_BRL
_LINE_NUM, MATCH_RULE_ID, DIV_ACTN_PBL, DIV_CHK_PBL,MATCH_CNTRL_ID,SETID,PROCESS
_INSTANCE) SELECT A.BUSINESS_UNIT, A.NF_BRL_ID, A.NF_BRL_LINE_NUM, B.MATCH_RULE_
ID, ' ','N','" | &MTCNTRLID | "','" | &SETID | "',0 FROM PS_NF_MTCH_PBL A, PS_MT
CH_SYS_RULES B WHERE A.BUSINESS_UNIT = :1 AND B.MATCH_RULE_ID = '" | &MTCHID | "
' %SQL(" | "AP_MATCH_" | &MTCHID | ") AND A.NF_BRL_ID = :2 AND A.NF_BRL_ID NOT I
N (SELECT NF_BRL_ID FROM PS_DIV_MTCH_PBL WHERE BUSINESS_UNIT = A.BUSINESS_UNIT A
ND NF_BRL_ID = A.NF_BRL_ID AND NF_BRL_LINE_NUM = A.NF_BRL_LINE_NUM AND B.MATCH_R
ULE_ID = MATCH_RULE_ID AND DIV_CHK_PBL = 'Y')", BUSINESS_UNIT, NF_BRL_ID);
/*BRLOC-PO-APP-8.01-30/10/01-C1SSUDA-VB35J-END*/
End-While;
&SQL.Close();
SQLExec("SELECT COUNT(*) FROM PS_DIV_MTCH_PBL WHERE BUSINESS_UNIT = :1 AND
NF_BRL_ID = :2 AND DIV_CHK_PBL = 'N'", BUSINESS_UNIT, NF_BRL_ID, &TOTLN);
If &TOTLN > 0 Then
NF_HDR_INFO_WRK.NF_BRL_STATUS = "O";
NF_BRL_STATUS = "O";
SQLExec("UPDATE PS_NF_HDR_BRL SET NF_BRL_STATUS = 'O' WHERE BUSINESS_UN
IT = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_BRL_ID);
ScrollSelect(2, Record.NF_LN_BRL, Record.DIV_MTCH_PBL, Record.DIV_MTCH_

PBL, "WHERE NF_BRL_ID = :1 AND DIV_CHK_PBL = 'N'", NF_BRL_ID);
UnGray(RECV_HD_WRK_PBL.REFRESH_DIV_PBL);
End-If;
/*BRLOC-PO-APP-8.00-29/01/01-END*/
End-If;
End-If;
/* *****************************************************************************
******************** */
/* FABIANO CUNHA - 21/10/2005 - Adequao da verso 7 para 8 - Readequao da customizaao e
m funcao da mudanca do recebimento.
*/
/*JTorres - HQS - 08/06/2001
Isere o numero do Recebimento + a NF + OS na tabela de controle CCG
*/
/*DUPLICADO321*/
/*Deleta o Registro se o mesmo j existir
*/
/*** mmcb.hd72747.so ***/
SQLExec("DELETE PS_MMC_CCG_OS_RECV WHERE BUSINESS_UNIT = :1 AND NF_BRL_ID = :
2", BUSINESS_UNIT, NF_BRL_ID);
/*** mmcb.hd72747.eo ***/
/*** mmcb.hd72747.sn ***/
&existe = "N";
SQLExec("SELECT 'Y' FROM PS_MMC_CCG_OS_RECV WHERE BUSINESS_UNIT = :1 AND NF_B
RL_ID = :2", BUSINESS_UNIT, NF_BRL_ID, &existe);
/*** mmcb.hd72747.en ***/
/*Insere o novo */
If &existe <> "Y" Then /*** mmcb.hd72747.ln ***/
If All(MMC_CCG_WRK.MMC_CCG_NROS) Or
All(MMC_CCG_WRK.MMC_CCG_OSSEQ) Or
(MMC_CCG_WRK.MMC_CCG_LANCAR_NF = "Y") Or
(MMC_CCG_WRK.MMC_CCG_LANCAR_NF = "N") Then
SQLExec("Insert into PS_MMC_CCG_OS_RECV (BUSINESS_UNIT, NF_BRL_ID, RECE
IVER_ID, NF_BRL, NF_BRL_SERIES, MMC_CCG_NROS, MMC_CCG_OSSEQ,MMC_CCG_LANCAR_NF,MM
C_CCG_FLG_PROC) VALUES (:1,:2,:3,:4,:5,:6,:7,:8,'A')", BUSINESS_UNIT, NF_BRL_ID,
RECEIVER_ID, NF_BRL, NF_BRL_SERIES, MMC_CCG_WRK.MMC_CCG_NROS, MMC_CCG_WRK.MMC_C
CG_OSSEQ, MMC_CCG_WRK.MMC_CCG_LANCAR_NF);
End-If;
End-If; /*** mmcb.hd72747.ln ***/
End-If;
/* fabiano cunha - 27/01/2006 - customizao para gravar o saldo da nota na tabela d
e saldo */
If NF_BRL_STATUS = "F" Then
/* mmcb.hd29508.so */
/*
SQLExec("select 'X' from SYSADM.PS_MMC_NF_DEVO_HDR where business
_unit = :1 and RECEIVER_ID = :2 and FLG_NF_FISCAL_PBL = 'Y' AND RECV_STATUS = 'M
' AND NOT EXISTS (SELECT 'X' FROM SYSADM.PS_MMC_CONTR_DEVOL WHERE BUSINESS_UNIT_
AR = BUSINESS_UNIT AND NF_BRL_ID = RECEIVER_ID)", BUSINESS_UNIT, NF_BRL_ID, &exi

ste); */ /* mmcb.hd29508.eo */
/* mmcb.hd29508.sn */
SQLExec("select 'X' from SYSADM.PS_MMC_NF_DEVO_HDR N where N.business_unit
= :1 and N.RECEIVER_ID = :2 and N.FLG_NF_FISCAL_PBL = 'Y' AND N.RECV_STATUS = '
M' AND NOT EXISTS (SELECT 'X' FROM SYSADM.PS_MMC_CONTR_DEVOL D WHERE D.BUSINESS_
UNIT_AR = N.BUSINESS_UNIT AND D.RECEIVER_ID = N.RECEIVER_ID)", BUSINESS_UNIT, NF
_BRL_ID, &existe); /* mmcb.hd29508.en */
If All(&existe) Then
&linhas = CreateRowset(Record.MMC_NF_DEVO_LN);
&linhas.Fill("WHERE BUSINESS_UNIT =:1 AND RECEIVER_ID = :2", BUSINESS_U
NIT, NF_BRL_ID);
&total_linhas = &linhas.ActiveRowCount;
For &i = 1 To &total_linhas
/* mmcb.hd29508.so */
/*
SQLExec("insert into PS_MMC_CONTR_DEVOL(BUSINESS_UNIT_
AR, RECEIVER_ID, NF_BRL_ID, BUSINESS_UNIT, NF_BRL, NF_BRL_SERIES, NF_BRL_LINE_NU
M, INV_ITEM_ID, QTY_NF_BRL, ACK_RECEIVED_DT, MERCH_AMT_BSE, IPITAX_BRL_PCT, ICMS
TAX_BRL_PCT) values (:1,:2,:3,:4,:5,:6,:7,:8,:9,%DATEIN(:10),:11,:12, :13)", &li
nhas(&i).MMC_NF_DEVO_LN.BUSINESS_UNIT.Value, " ", &linhas(&i).MMC_NF_DEVO_LN.REC
EIVER_ID.Value, &linhas(&i).MMC_NF_DEVO_LN.BUSINESS_UNIT_AR.Value, &linhas(&i).M
MC_NF_DEVO_LN.NF_BRL.Value, &linhas(&i).MMC_NF_DEVO_LN.NF_BRL_SERIES.Value, &lin
has(&i).MMC_NF_DEVO_LN.NF_BRL_LINE_NUM.Value, &linhas(&i).MMC_NF_DEVO_LN.INV_ITE
M_ID.Value, &linhas(&i).MMC_NF_DEVO_LN.QTY_SH_ACCPT_SUOM.Value, NF_BRL_DATE, &li
nhas(&i).MMC_NF_DEVO_LN.MERCHANDISE_AMT.Value, &linhas(&i).MMC_NF_DEVO_LN.IPITAX
_BRL_PCT.Value, &linhas(&i).MMC_NF_DEVO_LN.ICMSTAX_BRL_PCT.Value) */ /* mmcb.hd2
9508.eo */
/* mmcb.hd29508.sn */
SQLExec("insert into PS_MMC_CONTR_DEVOL(BUSINESS_UNIT_AR, RECEIVER_I
D, NF_BRL_ID, BUSINESS_UNIT, NF_BRL, NF_BRL_SERIES, NF_BRL_LINE_NUM, INV_ITEM_ID
, QTY_NF_BRL, ACK_RECEIVED_DT, MERCH_AMT_BSE, IPITAX_BRL_PCT, ICMSTAX_BRL_PCT) v
alues (:1,:2,:3,:4,:5,:6,:7,:8,:9,%DATEIN(:10),:11,:12, :13)", &linhas(&i).MMC_N
F_DEVO_LN.BUSINESS_UNIT.Value, " ", NF_BRL_ID, &linhas(&i).MMC_NF_DEVO_LN.BUSINE
SS_UNIT_AR.Value, &linhas(&i).MMC_NF_DEVO_LN.NF_BRL.Value, &linhas(&i).MMC_NF_DE
VO_LN.NF_BRL_SERIES.Value, &linhas(&i).MMC_NF_DEVO_LN.NF_BRL_LINE_NUM.Value, &li
nhas(&i).MMC_NF_DEVO_LN.INV_ITEM_ID.Value, &linhas(&i).MMC_NF_DEVO_LN.QTY_SH_ACC
PT_SUOM.Value, NF_BRL_DATE, &linhas(&i).MMC_NF_DEVO_LN.MERCHANDISE_AMT.Value, &l
inhas(&i).MMC_NF_DEVO_LN.IPITAX_BRL_PCT.Value, &linhas(&i).MMC_NF_DEVO_LN.ICMSTA
X_BRL_PCT.Value) /* mmcb.hd29508.en */
End-For;
End-If;
Else
If NF_BRL_STATUS = "O" Then
SQLExec("select 'x' from sysadm.ps_mmc_contr_devol where business_unit_
ar = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_BRL_ID, &existe_devol);
If All(&existe_devol) Then
SQLExec("delete from sysadm.ps_mmc_contr_devol where business_unit_a
r = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_BRL_ID);
End-If;
End-If;
End-If;
End-If;
/************************mmcb.sds2719.sn *****************************/
If %Component = Component.NF_RECV_PBL And

SQLExec("UPDATE PS_RECV_HDR A SET A.FLG_NF_FISCAL_PBL = 'Y' WHERE A.BUSINESS_
UNIT = :1 AND A.RECEIVER_ID = :2 AND A.RECV_STATUS = 'R' AND EXISTS (SELECT 'X'
FROM SYSADM.PS_MMC_REG_ARMAZEN B WHERE B.BUSINESS_UNIT_RECV = A.BUSINESS_UNIT A
ND B.RECEIVER_ID = A.RECEIVER_ID )", BUSINESS_UNIT, RECEIVER_ID);
End-If;
/************************mmcb.sds2719.en *****************************/
/************************ mmcb.sds3884.sn *****************************/

If %Component = Component.NF_RECV_PBL And
%Mode = "A" And
NF_BRL_STATUS = "F" Then /*NF_HDR_INFO_WRK.*/
&QUANT_LN_NF = ActiveRowCount(Record.NF_LN_BRL); /*** mmcb.hd203166.ln ***/
For &LINHA_ATUAL = 1 To &QUANT_LN_NF /*** mmcb.hd203166.ln ***/
&po_id = FetchValue(NF_LN_BRL.PO_ID, &LINHA_ATUAL); /*** mmcb.hd203166.ln
***/
&VAL_LAN = FetchValue(NF_LN_BRL.MERCHANDISE_AMT, &LINHA_ATUAL); /*** mmcb.
hd203166.ln ***/
/*** &po_id = FetchValue(NF_LN_BRL.PO_ID, 1); mmcb.hd203166.lo ***/
SQLExec("SELECT A.AUTO_NUMBER_PREFIX FROM SYSADM.PS_MMC_NUMERACAO A, SYSA
DM.PS_MMC_PAR_GER_OC B WHERE A.MMC_NUMERACAO_ID = B.MMC_NUMERACAO_ID", &PREFIX_P
AR);
&pre_fix = Substring(&po_id, 1, 3);
/*** Verificando se so as ordens de comisso ***/
If &pre_fix = &PREFIX_PAR Then
/*** Buscando informaes da comisso ***/
SQLExec("SELECT DISTINCT BUSINESS_UNIT, NF_BRL, NF_BRL_ID, SERIAL_ID, M
MC_ID_TIPO_COMIS FROM SYSADM.PS_MMC_PAGT_COM WHERE PO_ID = :1", &po_id, &BU_ORIG
, &NF_BRL_ORIG, &NF_BRL_ID_ORIG, &CHASSI, &tipo_comiss);
/*** Buscando informaes linha nf ***/
SQLExec("SELECT INV_ITEM_ID FROM SYSADM.PS_NF_LN_BRL WHERE BUSINESS_UNI
T = :1 AND NF_BRL_ID = :2", &BU_ORIG, &NF_BRL_ID_ORIG, &INVIT);
&BU_GL = BUSINESS_UNIT_GL;
&ANO = Year(%Date);
&MES = Month(%Date);
&NF_DOC = NF_BRL;
&SETI = FetchValue(NF_LN_BRL.ITM_SETID, 1);
/* mmcb.sds3884.sn - 11/03/2013 */
SQLExec("SELECT BUSINESS_UNIT FROM SYSADM.PS_MMC_CHASSI WHERE SERIAL_ID
= :1 AND NF_BRL_ID = :2", &CHASSI, &NF_BRL_ID_ORIG, &BU);
SQLExec("SELECT PRODUCT FROM SYSADM.PS_MMC_ATR_CONT_TB WHERE BUSINESS_U
NIT = :1 AND INV_ITEM_ID = :2", &BU, &INVIT, &INV_PROD4);
/*** Buscando parametrizao das comisses como conta por exempo ***/
SQLExec("SELECT MMC_BU_BI_PRV, MMC_ACCOUNT_D_PRV, MMC_ACCOUNT_C_PRV, MM
C_DEPTID_PRV, MMC_BU_BI_PGT, MMC_ACCOUNT_D_P, MMC_ACCOUNT_C_P, MMC_DEPTID_PGT FR
OM SYSADM.PS_MMC_CTA_COM WHERE SETID = :1 AND PRODUCT = :2 AND MMC_ID_TIPO_COMIS
= :3", &SETI, &INV_PROD4, &tipo_comiss, &MMC_BU_BI_PRV, &MMC_ACCOUNT_D_PRV, &MM

C_ACCOUNT_C_PRV, &MMC_DEPTID_PRV, &MMC_BU_BI_PGT, &MMC_ACCOUNT_D_P, &MMC_ACCOUNT
_C_P, &MMC_DEPTID_PGT);
get_journal_id(&JOURNAL);
&JOURNAL_ID = "PVC" | Substring(&JOURNAL, 4, 7);
&JLINE = 0;
&HIST1 = "ESTORNO PROV. COMISSO VENDAS";
&HIST2 = &NF_DOC | NF_BRL_SERIES;
/************************ mmcb.hd214121.sn ****************************
*/
If Len(&HIST2) > 10 Then
&HIST2 = LTrim(&HIST2, "0");
End-If;
/************************ mmcb.hd214121.en ****************************
*/
&HIST3 = &CHASSI;
&JLINE = &JLINE + 1;
&FORNEC = VENDOR_ID;
SQLExec("SELECT VENDOR_NAME_SHORT FROM SYSADM.PS_VENDOR WHERE SETID = :
1 AND VENDOR_ID = :2", &SETI, &FORNEC, &VENDOR_NAME_SHORT);
&HIST4 = &VENDOR_NAME_SHORT;
/*&VAL_LAN = FetchValue(NF_LN_BRL.MERCHANDISE_AMT, 1);*/ /*** mmcb.hd20
3166.lo ***/
&TOT_VAL = &TOT_VAL + &VAL_LAN;
&VAL_LAN_NEG = &VAL_LAN * - 1;
/*** CONTABIL - Insero das linhas positivas na jornal line ***/
SQLExec("INSERT INTO SYSADM.PS_JRNL_LN(BUSINESS_UNIT, JOURNAL_ID, JOURN
AL_DATE, UNPOST_SEQ, JOURNAL_LINE, LEDGER, ACCOUNT, DEPTID, PRODUCT, PROJECT_ID,
AFFILIATE, CURRENCY_CD, STATISTICS_CODE, MONETARY_AMOUNT, MOVEMENT_FLAG, STATIS
TIC_AMOUNT, JRNL_LN_REF, SUSPENDED_LINE, LINE_DESCR, JRNL_LINE_STATUS, JOURNAL_L
INE_DATE, FOREIGN_CURRENCY, RT_TYPE, FOREIGN_AMOUNT, RATE_DIV, RATE_MULT, PROCES
S_INSTANCE, DOC_TYPE, DOC_SEQ_NBR, DOC_SEQ_DATE, DOC_SEQ_STATUS, JRNL_LINE_SOURC
E, HIST_PART_BRL_1, HIST_PART_BRL_2, HIST_PART_BRL_3, HIST_PART_BRL_4, ALTACCT,
OPERATING_UNIT, SCENARIO, BUSINESS_UNIT_PC, ACTIVITY_ID, ANALYSIS_TYPE, RESOURCE
_TYPE, RESOURCE_CATEGORY, RESOURCE_SUB_CAT, BUDGET_DT, BUDGET_LINE_STATUS, CLOSI
NG_STATUS) VALUES (:1, :2, %DATEIN(:3), :4, :5, :6, :7, :8, :9, :10, :11, :12, :
13, :14, :15, :16, :17, :18, :19, :20, %DATEIN(:21), :22, :23, :24, :25, :26, :2
7, :28, :29, %DATEIN(:30),:31, :32, :33, :34, :35, :36, :37, :38, :39, :40, :41,
:42, :43, :44, :45, %DATEIN(:46), :47, :48)", &BU_GL, &JOURNAL_ID, %Date, 0, &J
LINE, "CONTABIL", &MMC_ACCOUNT_D_P, &MMC_DEPTID_PGT, &INV_PROD4, " ", " ", "BRL"
, " ", &VAL_LAN, "N", 0, " ", 0, "PROVISAO COMISSO SOBRE VENDAS", 0, %Date, "BRL"
, " ", &VAL_LAN, 1, 1, 0, " ", " ", %Date, " ", "ONL", &HIST1, &HIST2, &HIST3, &
HIST4, " ", " ", " ", " ", " ", " ", " ", " ", " ", %Date, "N", " ");
/*** GERENCIAL - Insero das linhas positivas na jornal line ***/
13, :14, :15, :16, :17, :18, :19, :20, %DATEIN(:21), :22, :23, :24, :25, :26, :2
7, :28, :29, %DATEIN(:30),:31, :32, :33, :34, :35, :36, :37, :38, :39, :40, :41,
LINE, "GERENCIAL", &MMC_ACCOUNT_D_P, &MMC_DEPTID_PGT, &INV_PROD4, " ", " ", "BRL
", " ", &VAL_LAN, "N", 0, " ", 0, "PROVISAO COMISSO SOBRE VENDAS", 0, %Date, "BRL
", " ", &VAL_LAN, 1, 1, 0, " ", " ", %Date, " ", "ONL", &HIST1, &HIST2, &HIST3,
&HIST4, " ", " ", " ", " ", " ", " ", " ", " ", " ", %Date, "N", " ");
/*** Insero das linhas positivas na jornal line cp - SE LN POSITIVA DBITO
***/
SQLExec("INSERT INTO SYSADM.PS_MMC_JRNL_LN_CP (BUSINESS_UNIT, JOURNAL_I
D, JOURNAL_DATE, UNPOST_SEQ, JOURNAL_LINE, LEDGER, ACCOUNT, DEPTID, ACCOUNT_TO,
MONETARY_AMOUNT, DEBIT_CREDIT, MMC_HISTORICO, SOURCE, JRNL_LN_REF, HIST_PART_BRL
_1, HIST_PART_BRL_2, HIST_PART_BRL_3, HIST_PART_BRL_4, ITEM, ITEM_LINE, MMC_REF_
CONTR,CAP_NUM,CAP_SEQUENCE,MMC_TIPO_LANCTO) VALUES (:1, :2, %DATEIN(:3), :4, :5,
:6, :7, :8, :9, :10, :11, :12, :13, :14, :15, :16, :17, :18, :19, :20, :21, :22
, :23, :24)", &BU_GL, &JOURNAL_ID, %Date, 0, &JLINE, "CONTABIL", &MMC_ACCOUNT_D_
P, &MMC_DEPTID_PGT, &MMC_ACCOUNT_C_P, &VAL_LAN, "D", "PROVISAO COMISSO SOBRE VEND
AS", "ONL", " ", &HIST1, &HIST2, &HIST3, &HIST4, " ", 0, " ", " ", 0, " ");
&JLINE = &JLINE + 1;
/*** CONTBIL - Insero das linhas negativas na jornal line ***/
13, :14, :15, :16, :17, :18, :19, :20, %DATEIN(:21), :22, :23, :24, :25, :26, :2
7, :28, :29, %DATEIN(:30),:31, :32, :33, :34, :35, :36, :37, :38, :39, :40, :41,
LINE, "CONTABIL", &MMC_ACCOUNT_C_P, &MMC_DEPTID_PGT, &INV_PROD4, " ", " ", "BRL"
, " ", &VAL_LAN_NEG, "N", 0, " ", 0, "PROVISAO COMISSO SOBRE VENDAS", 0, %Date, "
BRL", " ", &VAL_LAN_NEG, 1, 1, 0, " ", " ", %Date, " ", "ONL", &HIST1, &HIST2, &
HIST3, &HIST4, " ", " ", " ", " ", " ", " ", " ", " ", " ", %Date, "N", " ");
/*** GERENCIAL - Insero das linhas negativas na jornal line ***/
13, :14, :15, :16, :17, :18, :19, :20, %DATEIN(:21), :22, :23, :24, :25, :26, :2
7, :28, :29, %DATEIN(:30),:31, :32, :33, :34, :35, :36, :37, :38, :39, :40, :41,
LINE, "GERENCIAL", &MMC_ACCOUNT_C_P, &MMC_DEPTID_PGT, &INV_PROD4, " ", " ", "BRL
", " ", &VAL_LAN_NEG, "N", 0, " ", 0, "PROVISAO COMISSO SOBRE VENDAS", 0, %Date,
"BRL", " ", &VAL_LAN_NEG, 1, 1, 0, " ", " ", %Date, " ", "ONL", &HIST1, &HIST2,
&HIST3, &HIST4, " ", " ", " ", " ", " ", " ", " ", " ", " ", %Date, "N", " ");
/*** Insero das linhas negativas na jornal line cp - SE LN NEGATIVA CREDI
TO ***/
SQLExec("INSERT INTO SYSADM.PS_MMC_JRNL_LN_CP (BUSINESS_UNIT, JOURNAL_I
D, JOURNAL_DATE, UNPOST_SEQ, JOURNAL_LINE, LEDGER, ACCOUNT, DEPTID, ACCOUNT_TO,
MONETARY_AMOUNT, DEBIT_CREDIT, MMC_HISTORICO, SOURCE, JRNL_LN_REF, HIST_PART_BRL
_1, HIST_PART_BRL_2, HIST_PART_BRL_3, HIST_PART_BRL_4, ITEM, ITEM_LINE, MMC_REF_
CONTR,CAP_NUM,CAP_SEQUENCE,MMC_TIPO_LANCTO) VALUES (:1, :2, %DATEIN(:3), :4, :5,
:6, :7, :8, :9, :10, :11, :12, :13, :14, :15, :16, :17, :18, :19, :20, :21, :22
, :23, :24)", &BU_GL, &JOURNAL_ID, %Date, 0, &JLINE, "CONTABIL", &MMC_ACCOUNT_C_
P, &MMC_DEPTID_PGT, &MMC_ACCOUNT_D_P, &VAL_LAN_NEG, "C", "PROVISAO COMISSO SOBRE
VENDAS", "ONL", " ", &HIST1, &HIST2, &HIST3, &HIST4, " ", 0, " ", " ", 0, " ");
SQLExec("INSERT INTO SYSADM.PS_JRNL_HEADER VALUES (:1, :2, %DATEIN(:3),
:4, :5, :6, :7, :8, %DATEIN(:9), :10, :11, :12, :13, %DATEIN(:14), :15, :16, %D
ATEIN(:17), :18, :19, :20, :21, :22, :23, :24, :25, :26, :27, :28, :29, :30,:31,
:32, :33, %DATEIN(:34), :35, :36, %DATEIN(:37), :38, :39, %DATETIMEIN(:40), :41
, :42, :43, :44, %DATEIN(:45), :46, :47, :48, :49, :50, %DATEIN(:51), :52, :53,
:54, :55, :56, :57, :58, %DATETIMEIN(:59), :60, :61, :62, :63)", &BU_GL, &JOURNA
L_ID, %Date, 0, &BU_GL, "N", &ANO, &MES, %Date, "ACTUALS", " ", "Y", "N", "", 0,
"S", "", &JLINE, &TOT_VAL, &TOT_VAL, 0, "ONL", " ", "V", "V", "V", "N", "0", "N
", "N", " ", " ", 0, %Date, 0, 0, %Date, 0, "VPPOR", %Date, "PROVISAO COMISSO SOB
RE VENDAS", "BRL", "BRL", "CRRNT", %Date, 1, 1, "NVS", " ", " ", %Date, " ", " "
, "N", "N", 1, "N", " ", "", 0, "N", &HIST2, &HIST1);
End-If;
End-For; /*** mmcb.hd203166.ln ***/
End-If;
/************************ mmcb.sds3884.sn *****************************/
[NF_HDR_BRL.BUSINESS_UNIT.SavePreChange]
/*******************************************************************************
****
* Leandro Rodrigues da Silva Souza - MMC - mmcb.sds4924.v2 - 18/12/2014
*
*******************************************************************************
****/
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
*/
Declare Function Comp_Fiscal_Doc_NoEdit PeopleCode FUNCLIB_PBL.COMP_DOCS FieldFo
rmula;
Declare Function Pop_rcv_po PeopleCode FUNCLIB_PBL.MATCH_VALID_PBL FieldFormula;
Declare Function Pop_rcv_wpo PeopleCode FUNCLIB_PBL.MATCH_VALID_PBL FieldFormula
;
Declare Function Pop_rcv_tp PeopleCode FUNCLIB_PBL.MATCH_VALID_PBL FieldFormula;
Declare Function Sugestion_Calc PeopleCode RECV_HD_WRK_PBL.NF_SUG_CALC_PBL_PB Fi
eldChange;
Declare Function Calc_Tax_Receb_Terceiro PeopleCode FUNCLIB_PBL.COMP_DOCS FieldF
ormula; /*mmcb.sds4292.v2.ln*/
%Component <> Component.MMC_NF_INFO_AVRG And
/*BRLOC-PO-HAT-8.00-13/02/01 - Composio dos campos no editveis */
/********************* mmcb.sds4924.v2.so **********************************
Sugestion_Calc("RCV", "N");
Comp_Fiscal_Doc_NoEdit();
********************* mmcb.sds4924.v2.eo *********************************/
/* BRLOC-PO-HAT-8.00-13/02/01 - END */
/***************************** mmcb.sds4924.v2.sn ***************************
**/
Substring(NF_BRL_SERIES, 1, 1) <> "S" Then
/* Realiza cpia dos valores da NF de Sada para este Recebimento. */
/* mmcb.sds4924.v2.sn */
&calculoTerceiro = Calc_Tax_Receb_Terceiro();
If &calculoTerceiro = "N" Then
End-If;
/* mmcb.sds4924.v2.en */
/* Faz a somatria dos campos de impostos para o cabealho. */
Else
End-If;
/***************************** mmcb.sds4924.v2en ****************************
*/
/*BRLPO-HAT-8.01-11/07/01 - Se o TOF das linhas estiver em branco, move o TO

F informado na Header */
&TOF_LINE = FetchValue(NF_LN_BRL.TOF_PBL, &LN_ROW);
If None(&TOF_LINE) Then
End-If;
/* atualiza VOUCHER_FLOW_PBL E ACCOUNT_FLOW_PBL */
If FetchValue(NF_LN_BRL.FLOW_STATUS_PBL, &LN_ROW) = "V" Then
VOUCHER_FLOW_PBL = "V";
End-If;
If FetchValue(NF_LN_BRL.FLOW_STATUS_PBL, &LN_ROW) = "A" Then
ACCOUNT_FLOW_PBL = "A";
End-If;
End-For;
/*BRLPO-HAT-8.01-11/07/01 - END */
/*BRLOC-PO-APP-8.00-05/04/01-BEGIN */
/*** Armazena os dados para as regras de matching j verificadas ***/
/*Verifica se recebimento fiscal est relacionado a recebimento fsico*/
/*****
SQLExec("DELETE FROM PS_NF_MTCH_PBL WHERE BUSINESS_UNIT = :1 AND NF_BRL_ID =
:2", BUSINESS_UNIT, NF_BRL_ID);
***/
&Ln_ActiveRows = ActiveRowCount(Record.NF_LN_BRL);
For &LN_ROW = 1 To &Ln_ActiveRows
DeleteRow(Record.NF_LN_BRL, &LN_ROW, Record.NF_MTCH_PBL, 1);
End-For;
/* Sugesto dos dados de SETUP que sero utilizadas no processo de matching*/
Sugestion_Calc("MTC", "");
/*verifica se recebimento fsico com PO ou sem PO */
If All(&po_id) Then
/* chama funo para popular dados do recebimento fiscal com com fsico com P
O*/
Pop_rcv_po();
Else
/*chama funo para popular dados do recebimento fiscal com fsico sem PO*/
Pop_rcv_wpo();
End-If;
Else
/*chama funo para popular dados da entrada direta do recebimento fiscal*/
Pop_rcv_tp();
End-If;
/*BRLOC-PO-APP-8.00-05/04/01-END */
End-If
[NF_HDR_BRL.BUSINESS_UNIT.SearchInit]
If %OperatorId = "WO800282" Then
WinMessage("PASSEI AQUI");
End-If;
[NF_HDR_BRL.BUSINESS_UNIT.Workflow]
- Sends e-mails about suggested actions.
- Sends e-mails about the result of the matching rules.

*/
Local Rowset &RS_MATCH_RULES;
Local SQL &Query_Actions;
Function Sub_Bind_Var(&VALUE, &BIND_SEARCH, &BIND_SUB);
/* Substitui argumentos da Mensagem. */
&LENGTH_BIND = Len(&BIND_SEARCH);
&START = Find(&BIND_SEARCH, &VALUE);
If &START > 0 Then
&VALUE_NEW = Replace(&VALUE, &START, &LENGTH_BIND, &BIND_SUB);
Else
&VALUE_NEW = &VALUE;
End-If;
&VALUE = &VALUE_NEW;
End-Function;
Function Get_Message(&MESSAGE_SET_NBR, &MESSAGE_NBR, &BIND1, &BIND2, &BIND3, &BI
ND4, &BIND5, &BIND6, &BIND7, &MESSAGE_TEXT, &DESCRLONG);
/* Busca a Mensagem no Message Catalog */
SQLExec("select LANGUAGE_CD from PSOPTIONS", &LANGUAGE);
SQLExec("select MESSAGE_TEXT, DESCRLONG from PS_MESSAGE_CATALOG where languag
e_cd = :1 and message_set_nbr = :2 and message_nbr = :3", &LANGUAGE, &MESSAGE_SE
T_NBR, &MESSAGE_NBR, &VALUE1, &VALUE2);
&VALUE = &VALUE2;
&BIND_SEARCH = "%1";
&BIND_SUB = &BIND1;
Sub_Bind_Var(&VALUE, &BIND_SEARCH, &BIND_SUB);
&BIND_SUB = &BIND2;
&BIND_SUB = &BIND3;
&BIND_SUB = &BIND4;
&BIND_SUB = &BIND5;
&BIND_SUB = &BIND6;
&BIND_SUB = &BIND7;
&MESSAGE_TEXT = &VALUE1;
&DESCRLONG = &VALUE;
End-Function;
Function SendSugActions
/* Define os BINDs para a serem utilizados como argumentos na funo Get_Message

*/
&BIND1 = VENDOR_ID;
&BIND2 = VENDOR.VENDOR_NAME_SHORT;
&BIND3 = NF_BRL;
&BIND4 = NF_BRL_SERIES;
&BIND5 = NF_BRL_TYPE;
&BIND6 = NF_BRL_ID;
&BIND7 = "- Receiver ID: " | RECEIVER_ID;
Else /* %Component = Component.NF_INFO_PBL */
&BIND7 = "";
End-If;
&MESSAGE_SET_NBR = 30000;
&MESSAGE_NBR = 66;
/* Busca Subject e Texto */
Get_Message(&MESSAGE_SET_NBR, &MESSAGE_NBR, &BIND1, &BIND2, &BIND3, &BIND4, &
BIND5, &BIND6, &BIND7, &SUBJECT, &SUG_ACTIONS_TXT);
/* Busca as aes sugeridas para o TOF */
&NF_DATE = NF_BRL_DATE;
/* BRLPO - HAT - 8.01 - 10/07/01 - Busca os TOF das Linhas - Tof por Linha */
&TOF = " (";
If &LN_ROW <> 1 Then
&TOF = &TOF | ",";
End-If;
&TOF = &TOF | "'" | &TOF_LINE | "'";
End-For;
&TOF = &TOF | ")";
&STATEMENT = "SELECT X.DESCR50 FROM PS_TOF_ACTNTBL_PBL X, PS_TOF_ACTN_PBL Y W
HERE Y.TOF_PBL IN ";
&STATEMENT = &STATEMENT | &TOF;
&STATEMENT = &STATEMENT | " AND Y.EFFDT = (SELECT MAX(B.EFFDT) FROM PS_TOF_AC
TN_PBL B WHERE B.TOF_PBL IN ";
&STATEMENT = &STATEMENT | &TOF;
&Query_Actions = CreateSQL(&STATEMENT | " AND B.EFFDT <= %DATEIN(:1)) AND X.T
OF_ACTION_PBL = Y.TOF_ACTION_PBL", &NF_DATE);
/* BRLPO - HAT - 8.01 - 10/07/01 - END */
/* Prepara Texto Aes Sugeridas TOF */
&SUG_ACTIONS_TXT = &SUG_ACTIONS_TXT | Char(13) | Char(10) | Char(13) | Char(1
0);
&ct = 0;
While &Query_Actions.Fetch(&Action)
&ct = &ct + 1;
&SUG_ACTIONS_TXT = &SUG_ACTIONS_TXT | String(&ct) | ". " | &Action | Char(
13) | Char(10);
End-While;
&SUG_ACTIONS_TXT = &SUG_ACTIONS_TXT | Char(13) | Char(10) | %Datetime | " Use
rID " | %UserId;
&Query_Actions.Close();
RECV_HD_WRK_PBL.WF_SUG_ACT_SUB_PBL = &SUBJECT;
RECV_HD_WRK_PBL.WF_SUG_ACT_TXT_PBL = &SUG_ACTIONS_TXT;
&TEMP = TriggerBusinessEvent(BusProcess."BRLPO_MANAGE_FISCAL_DOC_BP", BusActi
vity."BRLPO_MAINTAIN_FISCAL_DOC_ACT", BusEvent."Suggested Actions");
End-Function;
Function SendMatchingRules
/* Define os BINDs para a serem utilizados como argumentos na funo Get_Message
*/
&BIND1 = VENDOR_ID;
&BIND2 = VENDOR.VENDOR_NAME_SHORT;
&BIND3 = NF_BRL;
&BIND4 = NF_BRL_SERIES;
&BIND5 = NF_BRL_TYPE;
&BIND6 = NF_BRL_ID;
&BIND7 = "- Receiver ID: " | RECEIVER_ID;
Else /* %Component = Component.NF_INFO_PBL */
&BIND7 = "";
End-If;
&MESSAGE_SET_NBR = 30000;
&MESSAGE_NBR = 168;
/* Busca Subject e Texto */
Get_Message(&MESSAGE_SET_NBR, &MESSAGE_NBR, &BIND1, &BIND2, &BIND3, &BIND4, &
BIND5, &BIND6, &BIND7, &SUBJECT, &MATCH_RULES_TXT);
/* Busca as regras de matching de acordo com as divergncias apuradas */
&RS_MATCH_RULES = CreateRowset(Record.DIV_MTCH_PBL);
&RS_MATCH_RULES.Fill("WHERE FILL.BUSINESS_UNIT = :1 AND FILL.NF_BRL_ID = :2 A
ND EXISTS(SELECT 'X' FROM PS_MTCH_SYS_RULES MSR WHERE MSR.MATCH_RULE_ID = FILL.M
ATCH_RULE_ID AND MSR.MTCH_WRK_FLG_PBL = 'Y')", BUSINESS_UNIT, NF_BRL_ID);
/* Prepara Texto Matching Rules */
&OLD_LINE_NUM = 0;
For &I = 1 To &RS_MATCH_RULES.ActiveRowCount
/* Linha */
&LINE_NUM = &RS_MATCH_RULES.GetRow(&I).GetRecord(Record.DIV_MTCH_PBL).GetF
ield(Field.NF_BRL_LINE_NUM).Value;
If &LINE_NUM <= 0 Then
/* No h nada para ser processado. No h divergncias */
Break;
End-If;
/* Inicializa Labels */
If &OLD_LINE_NUM = 0 Then
&LINE_LABEL = &RS_MATCH_RULES.GetRow(&I).GetRecord(Record.DIV_MTCH_PBL)
.GetField(Field.NF_BRL_LINE_NUM).GetShortLabel("NF_BRL_LINE_NUM");
&RULE_LABEL = &RS_MATCH_RULES.GetRow(&I).GetRecord(Record.DIV_MTCH_PBL)
.GetField(Field.MATCH_RULE_ID).GetShortLabel("MATCH_RULE_ID");
&ACTION_LABEL = &RS_MATCH_RULES.GetRow(&I).GetRecord(Record.DIV_MTCH_PB
L).GetField(Field.DIV_ACTN_PBL).GetShortLabel("DIV_ACTN_PBL");
End-If;
/* Regra */
&RULE_ID = &RS_MATCH_RULES.GetRow(&I).GetRecord(Record.DIV_MTCH_PBL).GetFi
eld(Field.MATCH_RULE_ID).Value;
/* Descrio da Regra */
SQLExec("SELECT DESCRLONG FROM PS_MTCH_MSG_VW WHERE MATCH_RULE_ID = :1", &
RULE_ID, &RULE_DESCR);
If &RULE_DESCR = "" Then
SQLExec("SELECT DESCR254 FROM PS_MTCH_SYS_RULES WHERE MATCH_RULE_ID = :
1", &RULE_ID, &RULE_DESCR);
End-If;
/* Action */
&ACTION_ID = &RS_MATCH_RULES.GetRow(&I).GetRecord(Record.DIV_MTCH_PBL).Get
Field(Field.DIV_ACTN_PBL).Value;
/* Action description */
SQLExec("SELECT DESCR FROM PS_DIV_ACTN_PBL WHERE DIV_ACTN_PBL = :1", &ACTI
ON_ID, &ACTION_DESCR);
/* Trata quebra da linha */
If &OLD_LINE_NUM <> &LINE_NUM Then
&OLD_LINE_NUM = &LINE_NUM;
&MATCH_RULES_TXT = &MATCH_RULES_TXT | Char(13) | Char(10) | Char(13) |
Char(10);
&MATCH_RULES_TXT = &MATCH_RULES_TXT | &LINE_LABEL | ": " | String(&LINE
_NUM) | Char(13) | Char(10);
End-If;
&MATCH_RULES_TXT = &MATCH_RULES_TXT | "- " | &RULE_LABEL | ": " | &RULE_ID
| Char(13) | Char(10);
&MATCH_RULES_TXT = &MATCH_RULES_TXT | " " | &RULE_DESCR | Char(13) | Char
(10);
&MATCH_RULES_TXT = &MATCH_RULES_TXT | " " | &ACTION_LABEL | ": " | &ACTIO
N_ID;
&MATCH_RULES_TXT = &MATCH_RULES_TXT | " " | &ACTION_DESCR | Char(13) | Cha
r(10);
&MATCH_RULES_TXT = &MATCH_RULES_TXT | Char(13) | Char(10);
End-For;
&MATCH_RULES_TXT = &MATCH_RULES_TXT | Char(13) | Char(10) | %Datetime | " Use
rID: " | %UserId;
RECV_HD_WRK_PBL.WF_MTCH_SUB_PBL = &SUBJECT;
RECV_HD_WRK_PBL.WF_MTCH_TXT_PBL = &MATCH_RULES_TXT;
If &LINE_NUM > 0 Then
&TEMP = TriggerBusinessEvent(BusProcess."BRLPO_MANAGE_FISCAL_DOC_BP", BusA
ctivity."BRLPO_MAINTAIN_FISCAL_DOC_ACT", BusEvent."Matching Rules");
End-If;
End-Function;
/*************** Main Line *****************/
/* Fabiano Cunha - 21/10/2005 - Adequao verso 7 para 8 - incluso do panelGroup MMC_L
ANC_GAR */
If ((%Component = Component.NF_INFO_PBL Or
%Component = Component.NF_RECV_PBL Or
%Component = Component.MMC_LANC_GAR) And
(FieldChanged(NF_BRL_STATUS) Or
FieldChanged(APPR_STATUS)) And
(NF_BRL_STATUS <> "O" And

NF_BRL_STATUS <> "X" And
NF_BRL_STATUS <> "C" And
APPR_STATUS = "A")) Then
SendSugActions();
SendMatchingRules();
End-If;
[NF_HDR_BRL.BUSINESS_UNIT_IN.RowInit]
/*BRLOC-PO-NAS-8.00-03/09/01-BEGIN */
/*Esconder campo de BU IN*/
If NF_TYPE_BRL.INTERUNIT_FLG = "Y" Then
UnHide(BUSINESS_UNIT_IN);
Else
Hide(BUSINESS_UNIT_IN);
End-If;
End-If;
/*BRLOC-PO-NAS-8.00-03/09/01-END */
[NF_HDR_BRL.CARRIER_ID.SavePreChange]
/*******************************************************************************
***
*
*
*******************************************************************************
***/
If %Component = "NF_INFO_PBL" And
%Menu = "MANAGE_NF_BBL" Then
If None(CARRIER_ID) Then
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_GKO_NFTP_OT O, SYSADM.PS_MMC_INSTAL
L M WHERE O.SETID = M.SETID AND O.EFFDT = ( SELECT MAX(OI.EFFDT) FROM SYSADM.PS_
MMC_GKO_NFTP_OT OI WHERE O.SETID = OI.SETID AND O.NF_BRL_TYPE = OI.NF_BRL_TYPE)
AND O.NF_BRL_TYPE = :1 AND O.MMC_GKO_NF_TYPE_OT = 'Y'", NF_BRL_TYPE, &EXIGE_TRAN
SPORTADORA);
If (All(&EXIGE_TRANSPORTADORA) And
&EXIGE_TRANSPORTADORA = "Y") Then
WinMessage("A Transportadora deve ser informada!");
End-If;
End-If;
End-If;
[NF_HDR_BRL.COFINSTAX_BRL_AMT.FieldEdit]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
If %Component = "MMC_NF_ALTERA" Then

If COFINSTAX_BRL_AMT = 0 Then
For &LINE_ROW = 1 To ActiveRowCount(Record.NF_LN_BRL)
UpdateValue(NF_LN_BRL.COFINS_PCT_BBL, &LINE_ROW, 0);
UpdateValue(NF_LN_BRL.COFINS_BSS_AMT_BBL, &LINE_ROW, 0);
UpdateValue(NF_LN_BRL.COFINSTAX_BRL_AMT, &LINE_ROW, 0);
End-For;
End-If;
End-If;
/**********mmcb.sds5100.e.n**********/
/*BRLOC - PO - GTM - 19/05/04 - MP164 - ICE Resoltuion ID: 157028 - BEGIN*/
If All(COFINSTAX_BRL_AMT) And
COFINSTAX_BRL_AMT > GROSS_AMT Then
Error MsgGet(28000, 11, "Valor no pode ser maior que o valor da Nota");
End-If;
/*BRLOC - PO - GTM - 19/05/04 - MP164 - ICE Resoltuion ID: 157028 - END*/
[NF_HDR_BRL.COFINSTAX_BRL_AMT.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
Declare Function valida_somatoria_linhas PeopleCode BUSINESS_UNIT FieldFormula;
/*mmcb.sds5100.L.N*/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.COFINSTAX_BRL_AMT";
&tabela = "Record.NF_LN_BRL";
&valor_hdr = COFINSTAX_BRL_AMT;
valida_somatoria_linhas(&tabela, &campo, &valor_hdr);
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.COFINS_AMT_BSE_BBL.SavePreChange]
/*******************************************************************************
*******
*

*
********************************************************************************
*******/
/* BRLOC - PO - FFR - 15/12/03 - ICE Resolution ID: 148058 - BEGIN */
If %PanelGroup = PanelGroup.NF_INFO_BRL Or
%PanelGroup = PanelGroup.DFI_TYP_WRT_PBL_PG Then
&COFINS_AMT = 0;
&COFINS_BSS = 0;
For &I = 1 To ActiveRowCount(NF_LN_BRL.NF_BRL_ID)
&COFINS_AMT = &COFINS_AMT + FetchValue(NF_LN_BRL.COFINS_AMT_BBL, &I);
&COFINS_BSS = &COFINS_BSS + FetchValue(NF_LN_BRL.COFINS_BSS_AMT_BBL, &I);
End-For;
COFINS_AMT_BSE_BBL = &COFINS_AMT;
COFINS_BSS_AMT_BBL = &COFINS_BSS;
End-If;
/* BRLOC - PO - FFR - 15/12/03 - ICE Resolution ID: 148058 - END */
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.COFINS_AMT_BBL";
&valor_hdr = COFINS_AMT_BSE_BBL;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.COFINS_BRL_RETENT.FieldEdit]
/* BRLOC - P0 - 09/12/03 - ICE Resolution ID: 147480 - Amount cannot be greater
than gross amt */
If All(COFINS_BRL_RETENT) And
COFINS_BRL_RETENT > GROSS_AMT Then
Error MsgGet(28000, 59, "Valor do Cofins no pode ser maior que o valor da Nota
");
End-If;
[NF_HDR_BRL.CSLL_BRL_RETENT.FieldEdit]
than gross amt */
If All(CSLL_BRL_RETENT) And
CSLL_BRL_RETENT > GROSS_AMT Then
Error MsgGet(28000, 61, "Valor da CSLL no pode ser maior que o valor da Nota")
;
End-If;
[NF_HDR_BRL.DFI_PBL_APPRVL_FLG.FieldChange]
/* BRLOC-PO-APP-8.00-15/12/00-BEGIN*/
/*- It sets the DFI approval status according the DFI approval flag and enable/d
isable the business process and approval rule fields */
If (DFI_PBL_APPRVL_FLG = "P") Then
Gray(BUSPROCNAME);
Gray(APPR_RULE_SET);
APPR_STATUS = "A";
Else
UnGray(BUSPROCNAME);
UnGray(APPR_RULE_SET);
APPR_STATUS = "P";
End-If;
/* BRLOC-PO-APP-8.00-15/12/00-END*/
[NF_HDR_BRL.DSCNT_AMT.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.DSCNT_AMT";
&valor_hdr = DSCNT_AMT;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.DST_CNTRL_ID.SaveEdit]
/*******************************************************************************
*****
*
* Buscar codigo modelo contabil a partir do cadastro do fornecedor.
*
********************************************************************************
*****/
/************************************ mmcb.hd50003 S.N. ************************
****/
Declare Function PEGA_MODELO_CONTABIL PeopleCode PO_HDR.DST_CNTRL_ID SaveEdit;
&VAR_DST_CNTRL_ID = PEGA_MODELO_CONTABIL(VENDOR_ID, VNDR_LOC);
&VAR_DST_CNTRL_ID = PEGA_MODELO_CONTABIL(VENDOR_ID, VNDR_LOC);
If All(&VAR_DST_CNTRL_ID) And
&VAR_DST_CNTRL_ID <> " " And
&VAR_DST_CNTRL_ID <> "" Then
If &VAR_DST_CNTRL_ID <> DST_CNTRL_ID Then
DST_CNTRL_ID = &VAR_DST_CNTRL_ID;
End-If;
End-If;
/************************************ mmcb.hd50003 E.N. ************************
****/
[NF_HDR_BRL.FREIGHT_AMT.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
Declare Function Calc_Freight_Amt PeopleCode FUNCLIB_PBL.EXP_PRORATE_PBL FieldFo
rmula;
If %Component <> "MMC_NF_ALTERA" Then /*mmcb.sds5100.L.N*/
If FRGHT_PRORATE_PBL = "A" Then
Calc_Freight_Amt();
End-If;
End-If; /*mmcb.sds5100.L.N*/
[NF_HDR_BRL.FREIGHT_AMT.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.FREIGHT_AMT";
&valor_hdr = FREIGHT_AMT;

End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.FRGHT_PRORATE_PBL.FieldChange]
Declare Function UnGray_Freight_Amt PeopleCode FUNCLIB_PBL.EXP_PRORATE_PBL Field
Formula;
Declare Function Gray_Freight_Amt PeopleCode FUNCLIB_PBL.EXP_PRORATE_PBL FieldFo
rmula;
rmula;
/*
UnGrays Freight field if Prorate = "Manual" else
Grays Freight field and Calculate Prorate */
If FRGHT_PRORATE_PBL = "M" Then
UnGray_Freight_Amt();
Else
Gray_Freight_Amt();
Calc_Freight_Amt();
End-If;
/***************************** End Localization *****************************/
[NF_HDR_BRL.FRGHT_PRORATE_PBL.RowInit]
Declare Function UnGray_Freight_Amt PeopleCode FUNCLIB_PBL.EXP_PRORATE_PBL Field
Formula;
Declare Function Gray_Freight_Amt PeopleCode FUNCLIB_PBL.EXP_PRORATE_PBL FieldFo
rmula;
rmula;
*/
%Component <> Component.NF_INQ_PBL And
%Component <> Component.MTCH_INQ_PBL Then
%Component = Component.NF_INFO_PBL Then
/* Desabilita campos de rateio de frete, seguro e outras despesas, quando
recebimento fiscal for relacionado a um recebimento fsico com Ordem de Compra*/
&LINE_MAXROW = ActiveRowCount(Record.NF_LN_BRL);
For &LINE_ROW = 1 To &LINE_MAXROW
&po_id = FetchValue(NF_LN_BRL.PO_ID, &LINE_ROW);
If All(&po_id) Then
REM Gray(FRGHT_PRORATE_PBL);
Else
UnGray(FRGHT_PRORATE_PBL);
End-If;
End-For;
/*
UnGrays Freight field if Prorate = "Manual" else
Grays Freight field and Calculate Prorate */
UnGray_Freight_Amt();
Else
Gray_Freight_Amt();
Calc_Freight_Amt();
End-If;
/*BRLOC-PO-APP-8.00-10/01/01-END */
End-If;
End-If
[NF_HDR_BRL.GROSS_AMT.RowInit]
*/
RECV_HD_WRK_PBL.GROSS_AMT_PBL_WRK = GROSS_AMT;
RECV_HD_WRK_PBL.ICMS_AMT_PBL_WRK = ICMSTAX_BRL_AMT;
RECV_HD_WRK_PBL.IPI_AMT_PBL_WRK = IPITAX_BRL_AMT;
End-If;
End-If;
End-If
[NF_HDR_BRL.ICMSSUB_BRL_AMT.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.ICMSSUB_BRL_AMT";
&valor_hdr = ICMSSUB_BRL_AMT;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.ICMSSUB_BRL_BSS.FieldChange]
/* BRLOC - PO - MFGO - RESOLUTION ID: 594875 - BEGIN - 20/12/2004 */
/* Cdigo para atualizar o campo ICMSSUB_BRL_BSS na tabela NF_LN_BRL */
&ICMSSUB_BSS = ICMSSUB_BRL_BSS;
&NF_LINE_MAXROW = ActiveRowCount(Record.NF_LN_BRL);
For &NF_LINE_ROW = 1 To &NF_LINE_MAXROW
&ICMSSUB_AMT = FetchValue(NF_LN_BRL.ICMSSUB_BRL_AMT, &NF_LINE_ROW);
If All(&ICMSSUB_AMT) Then
UpdateValue(NF_LN_BRL.ICMSSUB_BRL_BSS, &NF_LINE_ROW, &ICMSSUB_BSS);
End-If;
End-For;
/* BRLOC - PO - MFGO - RESOLUTION ID: 594875 - END - 20/12/2004 */
[NF_HDR_BRL.ICMSTAX_BRL_AMT.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
If ICMSTAX_BRL_AMT = 0 Then
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_PCT, &LINE_ROW, 0);
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_AMT, &LINE_ROW, 0);
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_BSS, &LINE_ROW, 0);
End-For;
End-If;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.ICMSTAX_BRL_AMT.SavePostChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.ICMSTAX_BRL_AMT";
&valor_hdr = ICMSTAX_BRL_AMT;
End-If;
/**********mmcb.sds5100.e.n**********/
/*** JEISON CALDAS - ATIV.1993 - 16/02/07 - Validao de ICMS para nfs de remessa da
garantia - Inicio ***/
If %Component = Component.NF_INFO_PBL And
NF_HDR_INFO_WRK.NF_BRL_STATUS = "F" And
ICMSTAX_BRL_AMT > 0 Then
REM VALIDA SE TEM CONTROLE DE GARANTIA;
SQLExec("SELECT A.CUST_ID FROM PS_MMC_VINF_OS_HDR A WHERE A.VENDOR_ID = :1 AN
D A.NF_BRL = :2 AND A.NF_BRL_SERIES = :3", VENDOR_ID, NF_BRL, NF_BRL_SERIES, &CU
ST_ID);
If All(&CUST_ID) Then
REM ATUALIZA O VALOR DA TABELA DE CABEALHO;
SQLExec("SELECT SUM(ICMSTAX_BRL_AMT) FROM PS_MMC_VINF_OS_LN WHERE VENDOR_I
D = :1 AND NF_BRL = :2 AND NF_BRL_SERIES = :3 AND DATA_LIMITE < %DATEIN(:4)", VE
NDOR_ID, NF_BRL, NF_BRL_SERIES, NF_BRL_DATE, &ICMS_GAR);
SQLExec("UPDATE PS_MMC_VINF_OS_HDR SET ICMSTAX_BRL_AMT = :4 WHERE VENDOR_I
D = :1 AND NF_BRL = :2 AND NF_BRL_SERIES = :3", VENDOR_ID, NF_BRL, NF_BRL_SERIES
, &ICMS_GAR);
REM PROCESSO DE INSERO DE LINHA NA GARANTIA;
&FIELDS = "BUSINESS_UNIT, CUST_ID, MMC_CCG_NROS, MMC_CCG_OSSEQ, NF_BRL, NF
_BRL_SERIES, MMC_CCG_LANC_LN, MMC_CCG_PEND_LN, MMC_CCG_DT_LANC, MMC_CCG_DESC_LAN
C, MMC_CCG_COD_LANC, MMC_CCG_VLR_LANC";
&DATA = %Date;
SQLExec("SELECT MAX(MMC_CCG_LANC_LN + 1)FROM PS_MMC_CCG_LANCMTO", &LANC_LN
);
SQLExec("INSERT INTO PS_MMC_CCG_LANCMTO ( " | &FIELDS | ") VALUES (:1, :2,
:3, :4, :5, :6, :7, :8, %DATEIN(:9), :10, :11, :12)", "MMCSA", &CUST_ID, " ", "
", NF_BRL, NF_BRL_SERIES, &LANC_LN, 0, &DATA, "CRED.DE GARANTIA-ICMS REMESSA",
" ", ICMSTAX_BRL_AMT);

/*** JEISON CALDAS - ATIV.2434 - 09/11/07 - Contabilizao dos Crditos de ICMS
da Garantia - Inicio ***/
/***
VALORIZA VARIAVEIS
***/
&ANO = Substring(&DATA, 1, 4);
&MES = Substring(&DATA, 6, 2);
&DATETIME = %Datetime;
&OPERATORID = %OperatorId;
&MONETARY_AMOUNT = ICMSTAX_BRL_AMT;
&HIST1 = "Crdito Garantia ICMS";
&HIST2 = "NF " | NF_BRL;
SQLExec("SELECT VENDOR_NAME_SHORT, CUST_ID FROM PS_VENDOR WHERE VENDOR_ID
= :1", VENDOR_ID, &HIST3, &HIST4);
If None(&HIST4) Then
&HIST4 = &CUST_ID
End-If;
&CAMPOS_JRNL_HEADER = "BUSINESS_UNIT, JOURNAL_ID, JOURNAL_DATE, UNPOST_SEQ
, BUSINESS_UNIT_IU, ADJUSTING_ENTRY, FISCAL_YEAR, ACCOUNTING_PERIOD, ADB_DATE,
LEDGER_GROUP, LEDGER, AUTO_GEN_LINES, REVERSAL_CD, REVERSAL_DATE, REVERSAL_ADJ_
PER, REVERSAL_CD_ADB, REVERSAL_DATE_ADB,JRNL_TOTAL_LINES, JRNL_TOTAL_DEBITS, JRN
L_TOT_CREDITS, JRNL_NET_UNITS, SOURCE, TRANS_REF_NUM, JRNL_BALANCE_STAT, CONTROL
_TOTAL_STAT, JRNL_EDIT_ERR_STAT, JRNL_HDR_STATUS, SUSP_RECON_STATUS, JRNL_PROCES
S_REQST, JRNL_SUMLED_REQST, SJE_TYPE, SCHEDULE, EVENT_OCCURRENCE, POSTED_DATE, P
ROCESS_INSTANCE, SOURCE_INSTANCE, TRANSACTION_DATE, LAST_LN_COMMITTED, OPRID, DT
TM_STAMP_SEC, DESCR, CURRENCY_CD, FOREIGN_CURRENCY, RT_TYPE, CUR_EFFDT, RATE_DIV
, RATE_MULT, SYSTEM_SOURCE, DOC_TYPE, DOC_SEQ_NBR, DOC_SEQ_DATE, DOC_SEQ_STATUS,
ACCTG_DEF_NAME, PC_DISTRIB_STATUS, BUDGET_HDR_STATUS, KK_AMOUNT_TYPE, KK_TRAN_O
VER_FLAG, KK_TRAN_OVER_OPRID, KK_TRAN_OVER_DTTM, KK_SKIP, JOURNAL_LOCKED, PROC_P
ART_ID, DESCR254";
&CAMPOS_JRNL_LN = "BUSINESS_UNIT, JOURNAL_ID, JOURNAL_DATE, UNPOST_SEQ, JO
URNAL_LINE, LEDGER, ACCOUNT, DEPTID, PRODUCT, PROJECT_ID, AFFILIATE, CURRENCY_CD
, STATISTICS_CODE, MONETARY_AMOUNT, MOVEMENT_FLAG, STATISTIC_AMOUNT, JRNL_LN_REF
, SUSPENDED_LINE, LINE_DESCR, JRNL_LINE_STATUS, JOURNAL_LINE_DATE, FOREIGN_CURRE
NCY, RT_TYPE, FOREIGN_AMOUNT, RATE_DIV, RATE_MULT, PROCESS_INSTANCE, DOC_TYPE, D
OC_SEQ_NBR, DOC_SEQ_DATE, DOC_SEQ_STATUS, JRNL_LINE_SOURCE, HIST_PART_BRL_1, HIS
T_PART_BRL_2, HIST_PART_BRL_3, HIST_PART_BRL_4, ALTACCT, OPERATING_UNIT, SCENARI
O, BUSINESS_UNIT_PC, ACTIVITY_ID, ANALYSIS_TYPE, RESOURCE_TYPE, RESOURCE_CATEGOR
Y, RESOURCE_SUB_CAT, BUDGET_DT, BUDGET_LINE_STATUS, CLOSING_STATUS";
&CAMPOS_JRNL_BAL = "BUSINESS_UNIT, JOURNAL_ID, JOURNAL_DATE, UNPOST_SEQ, L
EDGER, BUSINESS_UNIT_BAL, CURRENCY_CD, FOREIGN_CURRENCY, JRNL_CNTL_DEBITS, JRNL_
TOTAL_DEBITS, JRNL_CNTL_CREDITS, JRNL_TOT_CREDITS, CTL_FOREIGN_DEBITS, TOT_FOREI
GN_DEBITS, CTL_FOREIGN_CREDIT, TOT_FOREIGN_CREDIT, JRNL_CNTL_UNITS, JRNL_NET_UNI
TS, JRNL_CNTL_LINES, JRNL_TOTAL_LINES";
&VALUES_JRNL_HEADER = ":1, :2, %DATEIN(:3), :4, :5, :6, :7, :8, %DATEIN(:9
), :10, :11, :12, :13, %DATEIN(:14), :15, :16, %DATEIN(:17), :18, :19, :20, :2
1, :22, :23, :24, :25, :26, :27, :28, :29, :30, :31, :32, :33, %DATEIN(:34), :35
, :36, %DATEIN(:37), :38, :39, %DATETIMEIN(:40), :41, :42, :43, :44, %DATEIN(:45
), :46, :47, :48, :49, :50, %DATEIN(:51), :52, :53, :54, :55, :56, :57, :58, %DA
TETIMEIN(:59), :60, :61, :62, :63";
&VALUES_JRNL_LN = ":1, :2, %DATEIN(:3), :4, :5, :6, :7, :8, :9, :10, :11,
:12, :13 , :14, :15, :16 , :17, :18, :19, :20,
%DATEIN(:21), :22, :23, :24, :
25, :26, :27, :28, :29, %DATEIN(:30), :31, :32, :33, :34, :35, :36, :37, :38, :3
9, :40, :41, :42, :43, :44, :45, %DATEIN(:46), :47, :48";
&VALUES_JRNL_BAL = ":1, :2, %DATEIN(:3), :4, :5, :6, :7, :8, :9, :10, :11,
:12, :13, :14, :15, :16, :17, :18, :19, :20";
/***
BUSCA CONTAS DE CRDITO E DBITO;
***/
SQLExec("SELECT B.ACCOUNT FROM PS_MMC_CCG_CLI_CC A, PS_BANK_ACCT_CHRT B WH
ERE A.BANK_SETID = B.SETID AND A.BANK_CD = B.BANK_CD AND A.BANK_ACCT_KEY = B.BAN
K_ACCT_KEY AND A.BANK_CD = B.BANK_CD_CPTY AND A.BANK_CD = B.COUNTERPARTY AND B.B
ANK_ACCT_LED_TYPE = 'C' AND A.CUST_ID = :1", &HIST4, &ACCOUNT_CRED);
SQLExec("SELECT MMC_CCG_ACCOUNT_D FROM PS_MMC_CCG_PARAMET", &ACCOUNT_DEB);
/***
GERA PROXIMO NUMERO DE JOURNAL_ID
***/
SQLExec("SELECT TO_CHAR(JOURNAL_NUM_ASSIGN +1, '0000000000') FROM PS_INSTA
LLATION_FS", &JOURNAL_ID);
SQLExec("UPDATE PS_INSTALLATION_FS SET JOURNAL_NUM_ASSIGN = JOURNAL_NUM_A
SSIGN + 1");
/***
INSERE CABEALHO
***/
SQLExec("INSERT INTO PS_JRNL_HEADER (" | &CAMPOS_JRNL_HEADER | ") VALUES("
| &VALUES_JRNL_HEADER | ")", "MMCSA", &JOURNAL_ID, &DATA, 0, "MMCSA", "N", &ANO
, &MES, &DATA, "ACTUALS", " ", "N", "N", "", 0, "S", "", 2, ICMSTAX_BRL_AMT, ICM
STAX_BRL_AMT, 0, "CC", NF_BRL, "V", "V", "V", "N", "O", "N", "N", " ", " ", 0, "
", 0, 0, &DATA, 0, &OPERATORID, &DATETIME, " ", "BRL", "BRL", " ", &DATA, 1, 1,
"PNL", " ", " ", &DATA, " ", " ", "N", "V", 1, " ", " ", "", " ", " ", " ", " ")
;
/***
INSERE LINHAS
***/
&ACCOUNT = &ACCOUNT_CRED;
&LEDGER_BAL = "CONTABIL";
For &LN = 1 To 2
&MONETARY_AMOUNT = &MONETARY_AMOUNT * - 1;
SQLExec("INSERT INTO PS_JRNL_LN (" | &CAMPOS_JRNL_LN | ") VALUES(" | &V
ALUES_JRNL_LN | ")", "MMCSA", &JOURNAL_ID, &DATA, 0, &LN, "CONTABIL", &ACCOUNT,
" ", " ", " ", " ", "BRL", " ", &MONETARY_AMOUNT, "N", 0, " ", 0, "CONTA CORRENT
E GARANTIA - ICMS", "0", &DATA, "BRL", " ", &MONETARY_AMOUNT, 1, 1, 0, " ", " ",
&DATA, " ", "PNL", &HIST1, &HIST2, &HIST3, &HIST4, " ", " ", " ", " ", " ", " "
, " ", " ", " ", &DATA, "N", " ");
SQLExec("INSERT INTO PS_JRNL_LN (" | &CAMPOS_JRNL_LN | ") VALUES(" | &V
ALUES_JRNL_LN | ")", "MMCSA", &JOURNAL_ID, &DATA, 0, &LN, "GERENCIAL", &ACCOUNT,
" ", " ", " ", " ", "BRL", " ", &MONETARY_AMOUNT, "N", 0, " ", 0, "CONTA CORREN
TE GARANTIA - ICMS", "0", &DATA, "BRL", " ", &MONETARY_AMOUNT, 1, 1, 0, " ", " "
, &DATA, " ", "PNL", &HIST1, &HIST2, &HIST3, &HIST4, " ", " ", " ", " ", " ", "
", " ", " ", " ", &DATA, "N", " ");
SQLExec("INSERT INTO PS_JRNL_CF_BAL_TBL(" | &CAMPOS_JRNL_BAL | ") VALUE
S(" | &VALUES_JRNL_BAL | ")", "MMCSA", &JOURNAL_ID, &DATA, 0, &LEDGER_BAL, "MMCS
A", "BRL", "BRL", 0, ICMSTAX_BRL_AMT, 0, ICMSTAX_BRL_AMT, 0, ICMSTAX_BRL_AMT, 0,
ICMSTAX_BRL_AMT, 0, 0, 0, 2);
&ACCOUNT = &ACCOUNT_DEB;
&LEDGER_BAL = "GERENCIAL";
End-For;
/*** JEISON CALDAS - ATIV.2434 - 09/11/07 - Contabilizao dos Crditos de ICMS
da Garantia - Fim ***/
End-If;
End-If;
[NF_HDR_BRL.ICMSTAX_BRL_RCVRY.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.ICMSTAX_BRL_RCVRY";
&valor_hdr = ICMSTAX_BRL_RCVRY;
If ICMSTAX_BRL_RCVRY > ICMSTAX_BRL_AMT Or
IPITAX_BRL_RCVRY > IPITAX_BRL_AMT Or
PIS_AMT_BSE_BBL > PISTAX_BRL_AMT Or
COFINS_AMT_BSE_BBL > COFINSTAX_BRL_AMT Then
Error ("Possui crdito de imposto maior do que o valor tributado!");
End-If;
If ACCOUNTING_DT < NF_BRL_DATE Then
Error ("Data contbil no pode ser menor do que a data da emisso!");
End-If;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.IE_BRL.FieldEdit]
/* BRLOC-BI - IEDV - Localization Release 1
Author: Sylvio A. Brito
Data: 05/02/2001
*/
Declare Function IE_Check PeopleCode IE_BRL FieldFormula;
When "RECV_PO"
When "NF_INFO_BRL"
&STATE = RECV_HDR_NOPO.STATE;
Break;
When "MMC_LANC_GAR"
STATE = STATE;
Break;
When "RECV_PO_NONE"
STATE = STATE;
Break;
When-Other
&STATE = "";
Break;
End-Evaluate;
If All(IE_BRL) Then
If IE_Check(IE_BRL, &STATE) = False Then
Error MsgGet(31000, 158, "Invalid IE number.");
End-If;
End-If;
/* BRLOC-BI - IEDV */
[NF_HDR_BRL.IE_BRL.FieldFormula]
/* BRLOC-BI - IEDV - Localization Release 1
Author: Sylvio A. Brito
Data: 05/02/2001
Description: Calcula os DVs da IE, e faz validao da IE entrada.
*/
Function IE_CheckSP(&IE) Returns boolean ;
&TAM = Len(&IE);
If &TAM < 12 Then
Return False;
Else
&POS = 0;
&PONT = 0;
&MOLD = "";
&T12 = 0;
&T09 = 0;
For &I = 1 To &TAM
&CH = Substring(&IE, &I, 1);
Evaluate &CH
When "0"
When "1"
When "2"
When "3"
When "4"
When "5"
When "6"
When "7"
When "8"
When "9"
&POS = &POS + 1;
&VL = Value(&CH);
Evaluate &POS
When 1
&T09 = &T09 + (&VL * 1);
&T12 = &T12 + (&VL * 3);
&MOLD = &MOLD | &CH;
Break;
When 2
&T09 = &T09 + (&VL * 3);
&T12 = &T12 + (&VL * 2);
Break;
When 3
&T09 = &T09 + (&VL * 4);
&T12 = &T12 + (&VL * 10);
Break;
When 4
&T09 = &T09 + (&VL * 5);
&T12 = &T12 + (&VL * 9);
Break;
When 5
&T09 = &T09 + (&VL * 6);
&T12 = &T12 + (&VL * 8);
Break;
When 6
&T09 = &T09 + (&VL * 7);
&T12 = &T12 + (&VL * 7);
Break;
When 7
&T09 = &T09 + (&VL * 8);
&T12 = &T12 + (&VL * 6);
Break;
When 8
&T09 = &T09 + (&VL * 10);
&T12 = &T12 + (&VL * 5);
Break;
When 9
&T12 = &T12 + (&VL * 4);
&T09 = Mod(&T09, 11);
&CH = Right(RTrim(String(&T09)), 1);
Break;
When 10
&T12 = &T12 + (&VL * 3);
Break;
When 11
&T12 = &T12 + (&VL * 2);
Break;
When 12
&T12 = Mod(&T12, 11);
&CH = Right(RTrim(String(&T12)), 1);
Break;
End-Evaluate;
Break;
When "."
If &I <> 4 And
&I <> 8 And
&I <> 12 Then

Return False;
End-If;
&PONT = &PONT + 1;
Break;
When-Other
Return False;
End-Evaluate;
End-For;
If &POS < 11 Or
&POS > 12 Then
Return False;
End-If;
If &PONT > 0 And
&PONT <> 3 Then
Return False;
End-If;
If &IE <> &MOLD Then
Return False;
Else
Return True;
End-If;
End-If;
End-Function;
Function IE_Check(&IE, &UF) Returns boolean ;
Evaluate &UF
When "SP"
Return IE_CheckSP(&IE);
Break;
When-Other
Return True;
End-Evaluate;
End-Function;
[NF_HDR_BRL.INSURANCE_BRL_AMT.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
Declare Function Calc_Other_Exp_Amt PeopleCode FUNCLIB_PBL.EXP_PRORATE_PBL Field
Formula;
If %Component <> "MMC_NF_ALTERA" Then /*mmcb.sds5100 l.n*/
If OTHER_PRORATE_PBL = "A" Then
Calc_Other_Exp_Amt();
End-If;
/*BRLOC-PO-APP-8.00-02/04/01-END */
End-If; /*mmcb.sds5100 l.n*/

[NF_HDR_BRL.INSURANCE_BRL_AMT.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.INSURANCE_BRL_AMT";
&valor_hdr = INSURANCE_BRL_AMT;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.IPITAX_BRL_AMT.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
If IPITAX_BRL_AMT = 0 Then
UpdateValue(NF_LN_BRL.IPITAX_BRL_PCT, &LINE_ROW, 0);
UpdateValue(NF_LN_BRL.IPITAX_BRL_AMT, &LINE_ROW, 0);
UpdateValue(NF_LN_BRL.IPITAX_BRL_BSS, &LINE_ROW, 0);
End-For;
End-If;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.IPITAX_BRL_AMT.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.IPITAX_BRL_AMT";
&valor_hdr = IPITAX_BRL_AMT;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.IPITAX_BRL_RCVRY.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.IPITAX_BRL_RCVRY";
&valor_hdr = IPITAX_BRL_RCVRY;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.ISSTAX_BRL_AMT.FieldChange]
/*** JEISON CALDAS - 25/04/2004 - CUSTOMIZAO CRIAO VOUCHER PARA IMPOSTO S.N. ***/
If All(ISSTAX_BRL_AMT) And
All(MMC_CCG_WRK.MMC_CCG_NROS) Then
UnGray(MMC_CCG_WRK.MMC_YES_NO);
If MMC_CCG_WRK.MMC_YES_NO <> "S" Then
MMC_CCG_WRK.MMC_YES_NO = "S";
WinMessage("O Flag para gerar voucher para o ISS foi ativado automatica
mente, caso NO seja necessrio gerar o voucher desabilite esta opo!", 48, "Ateno");
End-If;
Else
MMC_CCG_WRK.MMC_YES_NO = "N";
End-If;
End-If;
/*** JEISON CALDAS - 25/04/2004 - CUSTOMIZAO CRIAO VOUCHER PARA IMPOSTO E.N. ***/
[NF_HDR_BRL.LAST_UPDATE_DT.RowInit]
Se for um processo de cancelamento, reabertura ou encerramento a LAST_UPDATE_DT
recebe como default a data atual do sistema.
*/
If %Component = Component.DFI_CANCEL_PBL Or
%Component = Component.REOPEN_FISCDOC_PBL Or
%Component = Component.CLOSE_FISCDOC_PBL Then
LAST_UPDATE_DT = %Date;
End-If;
[NF_HDR_BRL.LAST_UPDATE_DT.SaveEdit]
Se for um processo de cancelamento, reabertura ou encerramento a LAST_UPDATE_DT
no pode ser maior que a data do sistema
*/
If %Component = Component.DFI_CANCEL_PBL Or
%Component = Component.REOPEN_FISCDOC_PBL Or
%Component = Component.CLOSE_FISCDOC_PBL Then
If LAST_UPDATE_DT > %Date Then
Error MsgGet(30000, 192, "Date cannot be bigger than system date!");
End-If;
Else
/* Fabiano Cunha - 28/12/2005 - Adequao da verso 7 para 8 -Colocacao na clausual
component */
If %Component <> Component.DFI_APPROVAL_PBL Then
/* BRLOC PO - APP - 8.00 - 11/12/00 - BEGIN */
/* BRLOC PO - APP - 8.00 - 11/12/00 - END */
End-If;
End-If;
[NF_HDR_BRL.MERCHANDISE_AMT.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.MERCHANDISE_AMT";
&valor_hdr = MERCHANDISE_AMT;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.NF_BRL.FieldChange]
/* - Fatura number, by defualt, is equal to NF number*/
If All(NF_BRL) Then
NF_BRL_FATURA = NF_BRL;
End-If;
/* BRLOC PO - APP - 8.00 - 11/12/00 - END */
[NF_HDR_BRL.NF_BRL.FieldEdit]
Declare Function nf_num_valid_brl PeopleCode ADDRESS_SEQ_NUM FieldEdit;
/* BRLOC PM - 23/JUL/97 - It is not possible to have the same vendor/nf_brl/ser
ies more than once */
/**** Substituido codigo de validao pela chamada da funo que ira fazer a validacao *
**/
nf_num_valid_brl();
[NF_HDR_BRL.NF_BRL.RowInit]
/* - Fatura number, by defualt, is equal to NF number*/
If All(NF_BRL) Then
End-If;
/* BRLOC PO - APP - 8.00 - 11/12/00 - END */
[NF_HDR_BRL.NF_BRL.SaveEdit]
Declare Function nf_num_valid_brl PeopleCode FUNCLIB_PBL.VALIDATION_NF_PBL Field
Formula;
/***************************** Begin Localization ****************************
BRLOC-PO-AO-8.00
Author:
Artur M. Oguma
Date:
25/04/2001
Description:
Verifica duplicidade de NF/Serie
----------------------------------------------------------------------------*/
/* BRLPO-FCF-8.01 - 19/03/02 *** ADICIONA NF_BRL_DATE COMO CRITERIO DE VERIFICAO D
E DUPLICIDADE ***/
If %Component = Component.NF_INFO_PBL Or
%Component = Component.NF_RECV_PBL Or
%Component = Component.MMC_LANC_GAR Then
nf_num_valid_brl(NF_HDR_INFO_WRK.CGC_BRL, VENDOR_ID, ADDRESS_SEQ_NUM, NF_BRL,
NF_BRL_SERIES, BUSINESS_UNIT, RECEIVER_ID, NF_BRL_DATE, NF_BRL_ID);
End-If;
[NF_HDR_BRL.NF_BRL_DATE.FieldChange]
/*** JC800888 - JEISON CALDAS - 30/07/2006 - Atividade 1713 - Busca primeiro
a parametrizao dentro do cadastro de compras, caso no encontre faz busca original Inicio ***/
SQLExec("SELECT TMG_DAY_INCR_VAL FROM PS_PYMT_TRMS_NET A, PS_PYMT_TRMS_TIME B
WHERE A.SETID = B.SETID AND A.NET_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID AND A.P
YMNT_TERMS_CD = :1", PYMNT_TERMS_CD, &DAY_INCREMENT);
If None(&DAY_INCREMENT) Then
REM Atividade 1713 - FIM;
SQLExec("SELECT C.DAY_INCREMENT FROM PS_PAY_TRMS_TBL A, PS_PAY_TRM_BRL_MU
L B, PS_PAY_TRMS_TIME C WHERE A.PYMNT_TERMS_CD = :1 AND A.SETID = B.SETID AND
A.PYMNT_TERMS_CD = B.PYMNT_TERMS_CD AND B.SEQ_NUM = 1 AND B.SETID = C.SETID AND
B.PYMNT_TRM_BRL_REF = C.PAY_TRMS_TIME_ID", PYMNT_TERMS_CD, &DAY_INCREMENT);
SQLExec("SELECT B.DAY_INCREMENT FROM PS_PAY_TRMS_NET A, PS_PAY_TRMS_TIM
E B WHERE A.SETID = 'MMCSA' AND A.PYMNT_TERMS_CD= :1 AND A.SETID = B.SETID AND
A.PAY_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID", PYMNT_TERMS_CD, &DAY_INCREMENT);
End-If;
End-If;
MMC_TEMP.END_DATE = AddToDate(NF_BRL_DATE, 0, 0, &DAY_INCREMENT);
End-If;
[NF_HDR_BRL.NF_BRL_DATE.RowInit]
/* Criado por Andercio Calasans Junior - Grupo Quanam - 12/07/2006 - Incio */
/*****************************************************************************
Fabiano Cunha - MMC 29/11/2006 - mmcb.HD26773 - A data de Emissao do documento
fiscal quando de notas de terceiros,fica em branco e o sistema usava a data
atual.
******************************************************************************/
Global string &data_emissaoNF; /********* mmcb.HD26773 - l.n ********/
%Component = Component.MMC_TERC Or
%Component = Component.MMC_TERC_OC Or
%Component = Component.MMC_TERC_OC Then
/* Criado por Andercio Calasans Junior - Grupo Quanam - 12/07/2006 - Fim */
/* Criado por Welbe S. de Gasperi - Grupo Quanam - 06/04/2006 - Incio */

/* Criado conforme solicitao do CT 02 */
/********* mmcb.HD26773 - s.n ********/
If None(NF_BRL_DATE) And
All(&data_emissaoNF) Then
NF_BRL_DATE = Date(&data_emissaoNF);
End-If;
/********* mmcb.HD26773 - e.n ********/
If None(NF_BRL_DATE) Then;
NF_HDR_BRL.NF_BRL_DATE.Value = %Date;
WinMessage("Assumiu a data atual como data de emisso do Doc Fiscal.");
End-If;
/* Criado por Welbe S. de Gasperi - Grupo Quanam - 06/04/2006 - Fim */
/* Criado por Andercio Calasans Junior - Grupo Quanam - 12/07/2006 - Incio */
End-If;
/* Criado por Andercio Calasans Junior - Grupo Quanam - 12/07/2006 - Fim */
[NF_HDR_BRL.NF_BRL_DATE.SaveEdit]
/*******************************************************************************
**********
* Vincius Alves Mello - MMC - 24/11/2006 - mmcb.at1974
*
* O usurio pediu para bloquear a entrada da data de lanamento que seja
*
* maior que a data contbio.
*
********************************************************************************
**********/
If %Component = "MMC_TERC_PNL" Then
If NF_BRL_DATE > ACCOUNTING_DT Then
Error ("A data de lanamento das notas fiscais no pode ser maior que a data c
ontbio.");
End-If
End-If;
[NF_HDR_BRL.NF_BRL_ID.SavePostChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
Declare Function PU_BuscarEmail PeopleCode MMC_PU_WRK.BUTTON SavePreChange; /*Bu
sca os emails*/ /*mmcb.sds5100 l.n*/
Declare Function PU_GravarEmail PeopleCode MMC_PU_WRK.BUTTON SavePreChange; /*En
via o email*/ /*mmcb.sds5100 l.n*/
Local Rowset &RS_Contatos;
/* Valmir Tavares - HQS - 02.11.2005 - Adequao para o PSOFT8 - Inicio */

If %Component = "INATIVO" Then
SQLExec("SELECT PRCSINSTANCE, PRCSNAME, OPRID FROM PSPRCSRQST WHERE PRCSNAME
IN ('INPPPTWY', 'INPSSTGE', 'PO_RECVPUSH') AND SERVERNAMERUN = 'PSUNX' AND RUNST
ATUS IN ('10','3')", &OCORRENCIA, &PROCESSO, &OPERADOR);
If All(&OCORRENCIA) Then
SQLExec("SELECT EMAILID, MMC_EMAILID FROM PS_MMC_MAIL_RECEB WHERE SETID =
'MMCSA' AND LOCATION = 'CATALO'", &MAIL0, &MAIL1);
&MAIL_TO = &MAIL0 | ";" | &MAIL1 | ";";
&MAIL_CC = "";
&MAIL_BCC = "";
&MAIL_SUBJECT = "O processo " | &PROCESSO | " foi executado sem xito.";
&MAIL_TITLES = &MAIL_SUBJECT;
&MAIL_FILES = "";
&EMAIL_TEXTLONG = "A execuo do processo " | &PROCESSO | ", nmero de controle
" | &OCORRENCIA | " do requisitante " | &OPERADOR | " foi concludo sem xito.";
&RET = SendMail(&MAIL_FLAGS, &MAIL_TO, &MAIL_CC, &MAIL_BCC, &MAIL_SUBJECT,
&EMAIL_TEXTLONG, &MAIL_FILES, &MAIL_TITLES);
End-If;
End-If;
/* Valmir Tavares - HQS - 02.11.2005 - Adequao para o PSOFT8 - Fim */
/******************************* mmcb.sds5100 s.n ******************************

*/
If %Component = Component.MMC_NF_ALTERA Then
&SETID1 = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "VENDOR", "");
&emails = PU_BuscarEmail(&SETID1, "ALTERA_NF", "ALTERA_NF");
&assunto = "Alterao de Nota Fiscal";
&emitente = "[email protected]";
&emailId = "MMC_NF_ALT";
&estilotd = "<td style='background-color:#E4E4CD; font-family: Verdana, Genev
a, sans-serif; font-size: 10px; text-align: center; vertical-align: middle; padd
ing-top: 5px; padding-bottom:5px; font-weight: bold;'>";
&estiloln = "<td class='cssLinhas'>";
/*Inicializa a mensagem*/
&MSG = "<html> <head> <style>.cssLinhas {background-color:#F4F4EB; font-famil
y: Verdana, Geneva, sans-serif;font-size: 10px; text-align: center; vertical-ali
gn: middle; padding-top: 5px; padding-bottom:5px;}</style> </head> <body><table
width=100% border=1 cellspacing=0 cellpadding=0><tr><td colspan=10 style='font-w
eight:bold; font-family:Verdana, Geneva, sans-serif; font-size:11px; text-align:
center; vertical-align:middle; padding-top:5px; padding-bottom:5px; background-c
olor:#DCDCC0;')>Alterao de Nota Fiscal</td></tr>";
&MSG = &MSG | "<tr>" | &estilotd | "Unidade</td>" | &estilotd | "ID da Nota</

td>" | &estilotd | "Linha</td>" | &estilotd | "Usurio da Alterao</td>" | &estilotd
| "Data</td>" | &estilotd | "Tabela</td>" | &estilotd | "Campo</td>" | &estilotd
| "Valor Antigo</td>" | &estilotd | "Valor Novo</td>" | &estilotd | "Justificat
iva</td></tr>";
&sql = CreateSQL("SELECT A.BUSINESS_UNIT, A.NF_BRL_ID, A.NF_BRL_LINE_NUM, A.O
PRID, A.DT_TIMESTAMP, A.DESCR254, A.RECNAME, A.FIELDNAME, A.OLDVALUE, A.NEWVALUE
FROM SYSADM.PS_MMC_NF_ALT_HDR A WHERE A.BUSINESS_UNIT = :1 AND A.NF_BRL_ID = :2
AND A.SEQ_NBR = (SELECT MAX(B.SEQ_NBR) FROM SYSADM.PS_MMC_NF_ALT_HDR B WHERE A.
BUSINESS_UNIT = B.BUSINESS_UNIT AND A.NF_BRL_ID = B.NF_BRL_ID)", BUSINESS_UNIT,
NF_BRL_ID, &EBUSINESS_UNIT, &ENF_BRL_ID, &ENF_BRL_LINE_NUM, &EOPRID, &EDT_TIMEST
AMP, &EDESCR254, &ERECNAME, &EFIELDNAME, &EOLDVALUE, &ENEWVALUE);
While &sql.Fetch(&EBUSINESS_UNIT, &ENF_BRL_ID, &ENF_BRL_LINE_NUM, &EOPRID, &E
DT_TIMESTAMP, &EDESCR254, &ERECNAME, &EFIELDNAME, &EOLDVALUE, &ENEWVALUE)
SQLExec("SELECT SHORTNAME FROM PSDBFLDLABLLANG WHERE FIELDNAME = :1 AND LA
BEL_ID = :2 AND LANGUAGE_CD = 'POR'", &EFIELDNAME, &EFIELDNAME, &campo_descr);
&MSG = &MSG | "<tr>" | &estiloln | &EBUSINESS_UNIT | "</td>" | &estiloln |
&ENF_BRL_ID | "</td>" | &estiloln | &ENF_BRL_LINE_NUM | "</td>" | &estiloln | &
EOPRID | "</td>" | &estiloln | &EDT_TIMESTAMP | "</td>" | &estiloln | &ERECNAME
| "</td>" | &estiloln | &EFIELDNAME | " - " | &campo_descr | "</td>" | &estiloln
| &EOLDVALUE | "</td>" | &estiloln | &ENEWVALUE | "</td>" | &estiloln | &EDESCR
254 | "</td></tr>";
End-While;
/*Finaliza a mensagem*/
&MSG = &MSG | "</table></body> </html>";
If All(&emails) Then
&RET = PU_GravarEmail(&emailId, %Datetime, "H", &assunto, &emitente, &emai
ls, " ", &MSG);
End-If;
/******* Atualiza os valores relacionados da tabela aos campos alterados na pg
ina*******/
/*
GROSS_AMT_BSE = GROSS_AMT;
MERCH_AMT_BSE = MERCHANDISE_AMT;
IPITAX_BRL_BSE = IPITAX_BRL_AMT;
ICMSTAX_BRL_BSE = ICMSTAX_BRL_AMT;
*/
SQLExec("SELECT business_unit, voucher_id FROM SYSADM.PS_VOUCHER WHERE NF_BRL
_ID = :1 AND BUSINESS_UNIT_PO = :2 AND ENTRY_STATUS <> 'X'", NF_BRL_ID, BUSINESS
_UNIT, &business_unit_ap, &voucher_id);
If All(&voucher_id) Then
/******* Atualiza os valores do voucher conforme NF *******/

SQLExec("UPDATE SYSADM.PS_VOUCHER A SET (a.accounting_dt, A.INVOICE_ID, A.
INVOICE_DT, A.GROSS_AMT, A.GROSS_AMT_BSE, A.FREIGHT_AMT, A.FREIGHT_AMT_BSE, A.ME
RCHANDISE_AMT, A.MERCH_AMT_BSE, A.NF_BRL_FATURA,A.ICMSTAX_BRL_RETENT,A.ICMSTAX_B
RL_DUE, A.ICMSTAX_BRL_RCVRY,A.IPITAX_BRL_RCVRY) = (select b.accounting_dt, B.nf_
brl || '/' || B.nf_brl_series, B.NF_BRL_DATE, B.GROSS_AMT, B.GROSS_AMT, B.FREIGH
T_AMT, B.FREIGHT_AMT, B.MERCHANDISE_AMT, B.MERCHANDISE_AMT, B.NF_BRL,B.ICMSTAX_B
RL_RETENT,B.ICMSTAX_BRL_DUE, B.ICMSTAX_BRL_RCVRY,B.IPITAX_BRL_RCVRY from sysadm.
ps_nf_hdr_brl B WHERE B.NF_BRL_ID = a.nf_brl_id AND B.BUSINESS_UNIT = A.BUSINESS
_UNIT_PO) WHERE A.BUSINESS_UNIT = :1 AND A.VOUCHER_ID = :2", &business_unit_ap,
&voucher_id);
SQLExec("UPDATE SYSADM.PS_VOUCHER_LINE C SET (C.MERCHANDISE_AMT, C.MERCH_A
MT_BSE, C.IPITAX_BRL_RCVRY, C.ICMSTAX_BRL_RCVRY) = (SELECT B.MERCHANDISE_AMT, B.
MERCHANDISE_AMT, B.IPITAX_BRL_RCVRY, B.ICMSTAX_BRL_RCVRY FROM SYSADM.PS_NF_LN_BR
L B, SYSADM.PS_RECV_LN_SHIP A WHERE
B.BUSINESS_UNIT_RECV = A.BUSINESS_UNIT A
ND B.RECEIVER_ID = A.RECEIVER_ID AND B.RECV_LN_NBR = A.RECV_LN_NBR AND A.RECV_SH
IP_SEQ_NBR = B.RECV_SHIP_SEQ_NBR AND C.RECEIVER_ID = A.RECEIVER_ID AND C.RECV_LN
_NBR = A.RECV_LN_NBR AND C.RECV_SHIP_SEQ_NBR = A.RECV_SHIP_SEQ_NBR AND C.BUSINES
S_UNIT_RECV = A.BUSINESS_UNIT ) WHERE C.VOUCHER_ID = :1 AND C.BUSINESS_UNIT = :2
", &voucher_id, &business_unit_ap);
End-If;
SQLExec("SELECT RECEIVER_ID FROM SYSADM.PS_RECV_HDR WHERE BUSINESS_UNIT = :1
AND NF_BRL = :2 AND NF_BRL_SERIES = :3 AND NF_BRL_DATE = %datein(:4)", BUSINESS_
UNIT, NF_HDR_BRL.NF_BRL.OriginalValue, NF_HDR_BRL.NF_BRL_SERIES.OriginalValue, N
F_HDR_BRL.NF_BRL_DATE.OriginalValue, &receiver_id);
If All(&receiver_id) Then
SQLExec("UPDATE SYSADM.PS_RECV_HDR SET NF_BRL = :1, NF_BRL_SERIES = :2, NF
_BRL_DATE = %DATEIN(:3) WHERE RECEIVER_ID = :4 AND BUSINESS_UNIT = :5", NF_BRL,
NF_BRL_SERIES, NF_BRL_DATE, &receiver_id, BUSINESS_UNIT);
SQLExec("UPDATE SYSADM.PS_RECV_LN_DISTRIB A SET (A.MERCH_AMT_BSE, A.MERCH_
AMT_PO_BSE, A.MERCHANDISE_AMT, A.MERCHANDISE_AMT_PO) = (SELECT B.MERCHANDISE_AMT
, B.MERCHANDISE_AMT, B.MERCHANDISE_AMT ,B.MERCHANDISE_AMT FROM SYSADM.PS_NF_LN_B
RL B WHERE B.BUSINESS_UNIT_RECV = A.BUSINESS_UNIT AND B.RECEIVER_ID = A.RECEIVER
_ID AND B.RECV_LN_NBR = A.RECV_LN_NBR AND A.RECV_SHIP_SEQ_NBR = B.RECV_SHIP_SEQ_
NBR) WHERE A.BUSINESS_UNIT = :1 AND A.RECEIVER_ID = :2", BUSINESS_UNIT, &receive
r_id);
SQLExec("UPDATE SYSADM.PS_RECV_LN_SHIP A SET (A.MERCH_AMT_BSE, A.MERCH_AMT
_PO_BSE, A.MERCHANDISE_AMT, A.MERCHANDISE_AMT_PO) = (SELECT B.MERCHANDISE_AMT, B
.MERCHANDISE_AMT, B.MERCHANDISE_AMT ,B.MERCHANDISE_AMT FROM SYSADM.PS_NF_LN_BRL
B WHERE B.BUSINESS_UNIT_RECV = A.BUSINESS_UNIT AND B.RECEIVER_ID = A.RECEIVER_ID
AND B.RECV_LN_NBR = A.RECV_LN_NBR AND A.RECV_SHIP_SEQ_NBR = B.RECV_SHIP_SEQ_NBR
) WHERE A.BUSINESS_UNIT = :1 AND A.RECEIVER_ID = :2", BUSINESS_UNIT, &receiver_i
d);
End-If;
End-If;
/******************************* mmcb.sds5100 e.n ******************************
*/
[NF_HDR_BRL.NF_BRL_ID.SavePreChange]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - Cria numerao NF Terceiros
*
/*******************************************************************************
*****************
* Itamar Junior - MMCB - 03/08/2009 - mmcb.hd70264 - Ajuste para evitar conflit
o numerao NF, *
* quando dois usurios tentam criar registro ao mesmo tempo com mesmo nmero
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
*
********************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
PostChange;
/********************** mmcb.at2323.en **********************/
/*BRLOC - PO - APP - 8.00 - 11/12/00 BEGIN */
Function do_leading_zeros();
&CHECK_NUM = 10;
For &LOOP_NUM = 1 To &FIELD_SIZE
&TEST_NUM = &CHECK_NUM - 1;
If &NF_ID <= &TEST_NUM Then
&CUT_OFF = &FIELD_SIZE - &LOOP_NUM;
&RIGHT_HALF = Right(&NF_CHAR, &LOOP_NUM);
&LEFT_HALF = Rept("0", &CUT_OFF);
NF_BRL_ID = &LEFT_HALF | &RIGHT_HALF;
Break;
Else
&CHECK_NUM = &CHECK_NUM * 10;
End-If;
End-For;
End-Function;
/* Updating NF last used number */
Function do_bu();
/*************************************** mmcb.hd70264.so *******************

********************/
/*SQLExec("update PS_INSTALLATION set NF_BRL_NUM_LASTUSE = NF_BRL_NUM_LASTUSE
+ 1 ");*/
/*************************************** mmcb.hd70264.so *******************
********************/
/*************************************** mmcb.hd70264.sn *******************
********************/
SQLExec(" BEGIN UPDATE PS_INSTALLATION SET NF_BRL_NUM_LASTUSE = NF_BRL_NUM_L
ASTUSE + 1 ; COMMIT ; END ; ");
/*************************************** mmcb.hd70264.en *******************
********************/
SQLExec("Select NF_BRL_NUM_LASTUSE from PS_INSTALLATION", &NF_ID_LAST);
&NF_ID = &NF_ID_LAST;
remark assign next NF id;
If &NF_ID = Value(Rept("9", &FIELD_SIZE)) Then
&NF_ID = 1;
End-If;
&NF_CHAR = String(&NF_ID);
do_leading_zeros();
SQLExec("select 'X' from PS_NF_HDR_BRL where BUSINESS_UNIT = :1 and NF_BRL_ID
= :2", BUSINESS_UNIT, NF_BRL_ID, &RETURN);
If &RETURN <> "X" Then
&NF_UNIQUE = "T";
End-If;
remark update the business unit control record;
End-Function;
&modo = %Mode;
Evaluate %Mode
When = "A"
When = "E"
/********************** mmcb.at2323.sn **********************/
MMC_TE_NFLN_WRK.MMC_TERCEIRO_FLG = "Y" Then
NF_BRL_ID = MMC_NUMERACAO_ID(3);
Else
/********************** mmcb.at2323.en **********************/
If INSTALLATION.NF_BRL_NUM_OPTION = "Y" And
NF_BRL_ID = "NEXT" Then
&FIELD_SIZE = 10;
&NF_UNIQUE = "F";
If INSTALLATION.NF_BRL_NUM_OPTION = "Y" Then
While &NF_UNIQUE = "F"
do_bu();
End-While;
End-If;
End-If;
/********************** mmcb.at2323.sn **********************/
End-If;
/********************** mmcb.at2323.en **********************/
End-Evaluate;
/*BRLOC - PO - APP - 8.00 - 11/12/00 - END */

/*** JEISON CALDAS 10/02/06 - Faz tratamento para sempre atualizar o ultimo usua
rio - Inicio ***/
If %Component = "NF_INFO_PBL" Or
%Component = "NF_RECV_PBL" Then
OPRID_LAST_UPDT = %OperatorId;
End-If;
/*** JEISON CALDAS 10/02/06 - Faz tratamento para sempre atualizar o ultimo usua
rio - Fim ***/
/******************************* mmcb.sds5100 s.n ******************************
*/
If (MERCHANDISE_AMT + FREIGHT_AMT + INSURANCE_BRL_AMT + OTHEREXP_BRL_AMT + IC
MSSUB_BRL_AMT + IPITAX_BRL_AMT - DSCNT_AMT) <> GROSS_AMT Then
Error ("O valor bruto da nota no bate com a somatria dos valores que compem e
le. (Valor da mercadoria + frete + seguro + outras despesas + icms-st + ipi - de
sconto)");
End-If;
If None(MMC_NF_ALT_WRK.DESCR254) Then
Error ("Favor preencher a justificativa de alterao.");
End-If;
SQLExec("SELECT NVL(MAX(SEQ_NBR),0)+1 FROM PS_MMC_NF_ALT_HDR WHERE BUSINESS_U
NIT = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA);
If FieldChanged(NF_BRL) Then
SQLExec("Insert into SYSADM.ps_mmc_nf_alt_hdr(BUSINESS_UNIT, NF_BRL_ID, SE
Q_NBR, OPRID, DT_TIMESTAMP,DESCR254, RECNAME, FIELDNAME, OLDVALUE, NEWVALUE, NF_
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','NF_BRL',:6,:7,0)", BU
SINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF_HDR_BRL
.NF_BRL.OriginalValue, NF_BRL);
End-If;
If FieldChanged(NF_BRL_SERIES) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','NF_BRL_SERIES',:6,:7,
0)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF_
HDR_BRL.NF_BRL_SERIES.OriginalValue, NF_BRL_SERIES);
End-If;
If FieldChanged(ACCOUNTING_DT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','ACCOUNTING_DT',:6,:7,
HDR_BRL.ACCOUNTING_DT.OriginalValue, ACCOUNTING_DT);
End-If;
If FieldChanged(NF_BRL_DATE) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','NF_BRL_DATE',:6,:7,0)
", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF_HD
R_BRL.NF_BRL_DATE.OriginalValue, NF_BRL_DATE);
End-If;
If FieldChanged(GROSS_AMT) Then
SQLExec("SELECT 'Y' FROM SYSADM.PS_NF_HDR_BRL A WHERE A.BUSINESS_UNIT = :1
AND A.NF_BRL_ID = :2 AND EXISTS (SELECT 'Y' FROM SYSADM.PS_VOUCHER B, SYSADM.PS
_PYMNT_VCHR_XREF C WHERE A.BUSINESS_UNIT = B.BUSINESS_UNIT_PO AND A.NF_BRL_ID =
B.NF_BRL_ID AND B.BUSINESS_UNIT = C.BUSINESS_UNIT AND B.VOUCHER_ID = C.VOUCHER_I
D AND C.PYMNT_ID = ' ' AND B.ENTRY_STATUS <> 'X' AND C.PYMNT_SELCT_STATUS = 'P')
", BUSINESS_UNIT, NF_BRL_ID, &voucher_pago);
SQLExec("SELECT 'Y' FROM SYSADM.PS_VOUCHER WHERE BUSINESS_UNIT_PO = :1 AND
NF_BRL_ID = :2 AND POST_STATUS_AP <> 'P'", BUSINESS_UNIT, NF_BRL_ID, &voucher_n
_cont);
SQLExec("SELECT 'Y' FROM SYSADM.PS_VOUCHER WHERE BUSINESS_UNIT_PO = :1 AND
NF_BRL_ID = :2 AND POST_STATUS_AP = 'P'", BUSINESS_UNIT, NF_BRL_ID, &voucher_co
ntab);
If All(&voucher_pago) Or
All(&voucher_contab) Then
Error ("O valor bruto esta sendo alterado e existe um voucher pago ou c
ontabilizado para essa nota, no possivel realizar a alterao!");
End-If;
If All(&voucher_n_cont) And
None(&voucher_pago) Then
Error ("Voc esta alterando o valor bruto da nota, porm existe voucher par
a ela e o mesmo no foi pago e nem contabilizado, favor entrar em contato com o Co
ntas a pagar e solicitar a excluso do voucher.");
End-If;
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','GROSS_AMT',:6,:7,0)",
BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF_HDR_
BRL.GROSS_AMT.OriginalValue, GROSS_AMT);
End-If;
If FieldChanged(MERCHANDISE_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','MERCHANDISE_AMT',:6,:
7,0)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, N
F_HDR_BRL.MERCHANDISE_AMT.OriginalValue, MERCHANDISE_AMT);
End-If;
If FieldChanged(FREIGHT_AMT) Then

BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','FREIGHT_AMT',:6,:7,0)
", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF_HD
R_BRL.FREIGHT_AMT.OriginalValue, FREIGHT_AMT);
End-If;
If FieldChanged(INSURANCE_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','INSURANCE_BRL_AMT',:6
,:7,0)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254,
NF_HDR_BRL.INSURANCE_BRL_AMT.OriginalValue, INSURANCE_BRL_AMT);
End-If;
If FieldChanged(OTHEREXP_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','OTHEREXP_BRL_AMT',:6,
:7,0)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254,
NF_HDR_BRL.OTHEREXP_BRL_AMT.OriginalValue, OTHEREXP_BRL_AMT);
End-If;
If FieldChanged(DSCNT_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','DSCNT_AMT',:6,:7,0)",
BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF_HDR_
BRL.DSCNT_AMT.OriginalValue, DSCNT_AMT);
End-If;
If FieldChanged(ICMSSUB_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','ICMSSUB_BRL_AMT',:6,:
F_HDR_BRL.ICMSSUB_BRL_AMT.OriginalValue, ICMSSUB_BRL_AMT);
End-If;
If FieldChanged(ICMSTAX_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','ICMSTAX_BRL_AMT',:6,:
F_HDR_BRL.ICMSTAX_BRL_AMT.OriginalValue, ICMSTAX_BRL_AMT);
End-If;
If FieldChanged(IPITAX_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','IPITAX_BRL_AMT',:6,:7
,0)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF
_HDR_BRL.IPITAX_BRL_AMT.OriginalValue, IPITAX_BRL_AMT);
End-If;
If FieldChanged(PISTAX_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','PISTAX_BRL_AMT',:6,:7
,0)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF
_HDR_BRL.PISTAX_BRL_AMT.OriginalValue, PISTAX_BRL_AMT);
End-If;
If FieldChanged(COFINSTAX_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','COFINSTAX_BRL_AMT',:6
NF_HDR_BRL.COFINSTAX_BRL_AMT.OriginalValue, COFINSTAX_BRL_AMT);
End-If;
If FieldChanged(ICMSTAX_BRL_RCVRY) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','ICMSTAX_BRL_RCVRY',:6
NF_HDR_BRL.ICMSTAX_BRL_RCVRY.OriginalValue, ICMSTAX_BRL_RCVRY);
End-If;
If FieldChanged(IPITAX_BRL_RCVRY) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','IPITAX_BRL_RCVRY',:6,
:7,0)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254,
NF_HDR_BRL.IPITAX_BRL_RCVRY.OriginalValue, IPITAX_BRL_RCVRY);
End-If;
If FieldChanged(PIS_AMT_BSE_BBL) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','PIS_AMT_BSE_BBL',:6,:
F_HDR_BRL.PIS_AMT_BSE_BBL.OriginalValue, PIS_AMT_BSE_BBL);
End-If;
If FieldChanged(COFINS_AMT_BSE_BBL) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_HDR_BRL','COFINS_AMT_BSE_BBL',:
6,:7,0)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254
, NF_HDR_BRL.COFINS_AMT_BSE_BBL.OriginalValue, COFINS_AMT_BSE_BBL);
End-If;
FREIGHT_AMT_BSE = FREIGHT_AMT;
INSURANCE_BRL_BSE = INSURANCE_BRL_AMT;
OTHEREXP_BRL_BSE = OTHEREXP_BRL_AMT;
DSCNT_AMT_BSE = DSCNT_AMT;
ICMSSUB_BRL_BSE = ICMSSUB_BRL_AMT;
&TOTAL = 0;
&linha = FetchValue(NF_LN_BRL.ICMSTAX_BRL_BSS, &LINE_ROW);
&TOTAL = &TOTAL + &linha;
End-For;
ICMSTAX_BRL_BSS = &TOTAL;
&TOTAL2 = 0;
For &LINE_ROW2 = 1 To ActiveRowCount(Record.NF_LN_BRL)
&linha2 = FetchValue(NF_LN_BRL.PIS_BSS_AMT_BBL, &LINE_ROW2);
&TOTAL2 = &TOTAL2 + &linha2;
End-For;
PIS_BSS_AMT_BBL = &TOTAL2;
&TOTAL3 = 0;
&linha3 = FetchValue(NF_LN_BRL.COFINS_BSS_AMT_BBL, &LINE_ROW3);
End-For;
COFINS_BSS_AMT_BBL = &TOTAL3;
&TOTAL4 = 0;
&linha4 = FetchValue(NF_LN_BRL.ICMSSUB_BRL_BSS, &LINE_ROW4);
End-For;
ICMSSUB_BRL_BSS = &TOTAL4;
&VALIDA_NOTA_EXISTE = "N";
SQLExec("select 'Y' from sysadm.ps_nf_hdr_brl WHERE NF_BRL = :1 AND NF_BRL_SE
RIES = :2 AND REMIT_VENDOR = :3 AND REMIT_ADDR_SEQ_NUM = :4 AND NF_BRL_ID <> :5"
, NF_BRL, NF_BRL_SERIES, REMIT_VENDOR, REMIT_ADDR_SEQ_NUM, NF_BRL_ID, &VALIDA_NO
TA_EXISTE);
If &VALIDA_NOTA_EXISTE = "Y" Then
Error ("J existe uma nota com esse numero e serie para esse fornecedor.");
End-If;
End-If;
/******************************* mmcb.sds5100 e.n ******************************
*/
[NF_HDR_BRL.NF_BRL_SERIES.FieldEdit]
Declare Function nf_num_valid_brl PeopleCode ADDRESS_SEQ_NUM FieldEdit;
/* BRLOC PM - 23/JUL/97 - It is not possible to have the same vendor/nf_brl/seri
es more than once */

/**** Substituido codigo de validao pela chamada da funo que ira fazer a validacao *
**/
nf_num_valid_brl();
[NF_HDR_BRL.NF_BRL_STATUS.RowInit]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/******************************** mmcb.sds5100 sn ******************************
**/
If NF_BRL_STATUS = "O" Then
Error ("No possivel alterar a nota nessa pgina, favor utilizar a pgina (Entra
da Direta Doc Fiscal).")
End-If;
End-If;
/******************************** mmcb.sds5100 en ******************************
**/
[NF_HDR_BRL.NF_BRL_STATUS.SavePostChange]
/*******************************************************************************
*****************
*
* Interface People x Ecomex
*
* Cancelar notas fiscas de importao.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Wagner Sorio / Claudio Costa - MMC - 02/01/2008 - mmcb.at2323
*
* Sistema Controle Terceiros Customizao Sistema de Terceiros - Cancelar Documento
Fiscal.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
* Customizao para Cancelamento de NF Devoluo.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
* Folha Autonomo
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Mauri Rodrigo Back - MMC - 22/12/2011 - mmcb.sds4041
*
* Grava os dados de redespacho para notas fiscais filhotes de importao
*
* GKO.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
* Criao de tela de recebimento de DANFE
*
* Quando o documento for excluido ser limpado os dados referentes na tabela MMC_
REC_DANF
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
* Estornar baixa controle de terceiros em nosso poder, referente a NF de sada vi
nculda
*
* anula sada.
*
*******************************************************************************
*****************/
b.sds4041.ln */
/******************************** mmcb.sds3627.S.N *****************************
*****/
Declare Function CANCELA_NOTA_RPA PeopleCode MMC_RPA_WK.FUNCLIB SavePostChange;
/******************************** mmcb.sds3627.E.N *****************************
*****/
/********************** mmcb.at2323.sn **********************/
Declare Function CANCELA_NF_TERCEIRO PeopleCode MMC_TE_WRK.FUNCLIB SavePostChang
e;
If %Component = Component.DELETE_FISCDOC_PBL Or
%Component = Component.DFI_CANCEL_PBL Then
&MMC_TE_OPERACAO = " ";
If %Component = Component.DFI_CANCEL_PBL Then

&MMC_TE_OPERACAO = "200";
End-If;
If %Component = Component.DELETE_FISCDOC_PBL Then
&MMC_TE_OPERACAO = "300";
End-If;
SQLExec("select distinct 'Y' from sysadm.ps_mmc_te_transac where business_uni
t_bi=:1 and nf_brl_id=:2 ", BUSINESS_UNIT, NF_BRL_ID, &NF_TERCEIRO);
SQLExec("select distinct 'Y' from sysadm.ps_mmc_te_op where business_unit =:1
and nf_brl_id= :2 and mmc_stat_proc2='C' ", BUSINESS_UNIT, NF_BRL_ID, &NFS_CON
CLUIDO);
If &NFS_CONCLUIDO = "Y" Then
Error ("Esta NF no pode ser excluida por que ja possui Ordem de Produo");
End-If;
SQLExec("select distinct 'Y' from sysadm.ps_mmc_te_op where business_unit =:1
and nf_brl_id= :2 and mmc_stat_proc2='N' ", BUSINESS_UNIT, NF_BRL_ID, &NFS_TER
CEIRO);
If &NF_TERCEIRO = "Y" Or
&NFS_TERCEIRO = "Y" Then
CANCELA_NF_TERCEIRO(BUSINESS_UNIT, NF_BRL_ID, &MMC_TE_OPERACAO);
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
/********************************* mmcb.sds3027.s.n ****************************
*****/
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_NFD_HDR WHERE BUSINESS_UNIT =:1 AND NF
_BRL_ID =:2 AND NF_BRL_STATUS NOT IN ('X') ", BUSINESS_UNIT, NF_BRL_ID, &NF_DEVO
LUCAO);
If &NF_DEVOLUCAO = "Y" Then
SQLExec(" UPDATE SYSADM.PS_MMC_NFD_HDR SET NF_BRL_STATUS = 'X' WHERE BUSI
NESS_UNIT =:1 AND NF_BRL_ID =:2 ", BUSINESS_UNIT, NF_BRL_ID);
SQLExec(" DELETE FROM SYSADM.PS_MMC_CONTR_DEVOL WHERE BUSINESS_UNIT = :1 A
ND RECEIVER_ID = :2 ", BUSINESS_UNIT, NF_BRL_ID);
/********************************* mmcb.sds5322.sn ***********************
**********/
/*Verifica se existe estorno no controle de terceiros em nosso poder, vinc
ulado a NF de devoluo*/
&SELECT = "";
&SELECT = &SELECT | "SELECT 'Y' ";

&SELECT = &SELECT | "FROM PS_MMC_NFD_ECTNP ";
&SELECT = &SELECT | "WHERE MMC_NFR_BU = :1 ";
&SELECT = &SELECT | "AND MMC_NFR_ID = :2 ";
&SELECT = &SELECT | "AND ROWNUM
= 1 ";
SQLExec(&SELECT, BUSINESS_UNIT, NF_BRL_ID, &EXISTE);
If All(&EXISTE) Then
/*Apaga
&DELETE
&DELETE
&DELETE
&DELETE
&DELETE
&DELETE
&DELETE
&DELETE
&DELETE
as linhas
= "";
= &DELETE
= &DELETE
= &DELETE
= &DELETE
= &DELETE
= &DELETE
= &DELETE
= &DELETE
de estorno do controle de terceiros em nosso poder*/

|
|
|
|
|
|
|
|
"DELETE ";
"FROM PS_MMC_TE_CONTR_MT ";
"WHERE ( BUSINESS_UNIT ";
"
, NF_BRL_ID ";
"
, NF_BRL_LINE_NUM ";
"
, DT_TIMESTAMP ";
"
, SEQ_NBR
) IN ( ";
"
SELECT BUSINESS_UNI
T ";
&DELETE = &DELETE | "
,
,
NF_BRL_ID ";
NF_BRL_LINE_
DT_TIMESTAMP

,
SEQ_NBR ";
FROM PS_MMC_NFD_ECT
WHERE MMC_NFR_BU =
AND
NUM ";
";
NP ";
:1 ";
MMC_NFR_ID =
:2 ";
SQLExec(&DELETE, BUSINESS_UNIT, NF_BRL_ID);
) ";
/*Apaga os dados da tabela de controle dos estornos*/

&DELETE = "";
&DELETE = &DELETE | "DELETE ";
&DELETE = &DELETE | "FROM PS_MMC_NFD_ECTNP ";
&DELETE = &DELETE | "WHERE MMC_NFR_BU = :1 ";
&DELETE = &DELETE | "AND MMC_NFR_ID = :2 ";
SQLExec(&DELETE, BUSINESS_UNIT, NF_BRL_ID);
End-If;
/********************************* mmcb.sds5322.en ***********************
**********/
End-If;
End-If;
/********************************* mmcb.sds3027.e.n ****************************
*****/
/******************************** mmcb.sds3627.S.N *****************************
*****/
CANCELA_NOTA_RPA(BUSINESS_UNIT, NF_BRL_ID)
End-If;
/******************************** mmcb.sds3627.E.N *****************************
*****/
/************************************ mmcb.sds4041.sn **************************
**********/
If (%Component = Component.NF_INFO_PBL Or
%Component = Component.NF_RECV_PBL) And
NF_BRL_STATUS = "F" And
INOUT_FLG_PBL = "I" Then
&OF_NF_FILHA = "N";
&N1 = GetLevel0()(1).GetRowset(Scroll.NF_LN_BRL);
For &LN = 1 To &N1.ActiveRowCount;
&OF_FILHA = &N1.GetRow(&LN).GetRecord(Record.NF_LN_BRL).TOF_PBL.VALUE;
End-For;
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_TOF_NF_FIL WHERE TOF_PBL = :1", &OF_FI
LHA, &OF_NF_FILHA);
If &OF_NF_FILHA = "Y" Then
&UF_EX = "N";
SQLExec("SELECT 'Y' FROM SYSADM.PS_VENDOR_ADDR B WHERE B.SETID =:1 AND B.V
ENDOR_ID =:2 AND B.ADDRESS_SEQ_NUM =:3 AND B.EFFDT = (SELECT MAX(B_ED.EFFDT) FRO
M SYSADM.PS_VENDOR_ADDR B_ED WHERE B.SETID = B_ED.SETID AND B.VENDOR_ID = B_ED.V
ENDOR_ID AND B.ADDRESS_SEQ_NUM = B_ED.ADDRESS_SEQ_NUM) AND B.STATE = 'EX'", &SET
ID, VENDOR_ID, ADDRESS_SEQ_NUM, &UF_EX);
If &UF_EX = "Y" Then
SQLExec("SELECT I.CARRIER_ID,TRIM(C.W6_URF_ENT),1 FROM SYSADM.SF1010 A,
SYSADM.SW6010 C, SYSADM.SA4010 D, SYSADM.PS_CARRIER_ID I, SYSADM.PS_CAR_ID_NBRS
_BBL B WHERE A.F1_FILIAL = '01' AND A.F1_DOC LIKE '%' ||TRIM(:1)|| '%' AND A.F1_
SERIE LIKE '%' ||TRIM(:2)|| '%' AND A.F1_FORNECE LIKE '%'|| TRIM(:3) || '%' AND
A.D_E_L_E_T_ = ' ' AND C.W6_FILIAL = ' ' AND C.W6_HAWB = A.F1_HAWB AND C.D_E_L_E
_T_ = ' ' AND D.A4_FILIAL = ' ' AND D.A4_COD = C.W6_TRANNAC AND D.D_E_L_E_T_ = '
' AND I.SETID =:4 AND I.SETID = B.SETID AND I.CARRIER_ID = B.CARRIER_ID AND I.E
FFDT = (SELECT MAX(EFFDT) FROM SYSADM.PS_CARRIER_ID CI WHERE CI.SETID = I.SETID
AND I.CARRIER_ID = CI.CARRIER_ID AND CI.EFFDT <= SYSDATE) AND B.EFFDT =(SELECT M
AX(EFFDT) FROM SYSADM.PS_CARRIER_ID CI WHERE CI.SETID = I.SETID AND I.CARRIER_ID
= CI.CARRIER_ID AND CI.EFFDT <= SYSDATE) AND B.STD_ID_NUM_QUAL = 'CNJ' AND REPL
ACE(REPLACE(REPLACE(B.STD_ID_NUM,'.',''),'-',''),'/','') = TRIM(D.A4_CGC)", NF_B
RL, NF_BRL_SERIES, VENDOR_ID, &SETID, &REDESP_CARRIER_ID, &MMC_GKO_PORTO, &LINHA
_REDESPACHO);
If &LINHA_REDESPACHO = 1 Then
SQLExec("DELETE SYSADM.PS_MMC_GKO_REDESP WHERE BUSINESS_UNIT = :1 AN
D NF_BRL_ID = :2", BUSINESS_UNIT, NF_BRL_ID);
If &MMC_GKO_PORTO = "" Then
&MMC_GKO_PORTO = " "

End-If;
If &REDESP_CARRIER_ID = "" Then
&REDESP_CARRIER_ID = " "
End-If;
SQLExec("INSERT INTO SYSADM.PS_MMC_GKO_REDESP(BUSINESS_UNIT, NF_BRL_
ID, MMC_GKO_NOORDEM, MMC_GKO_CDTRPREDES, MMC_GKO_TPFRTREDES, MMC_GKO_MEIOTRP, MM
C_GKO_DSSEPCONHE, MMC_GKO_DSLOTE, MMC_GKO_CDEQUIPAME, MMC_GKO_STFRETEDIF, MMC_GK
O_PORTO) VALUES (:1, :2, :3, :4, ' ', ' ', ' ', ' ',' ',' ', :5)", BUSINESS_UNIT
, NF_BRL_ID, &LINHA_REDESPACHO, &REDESP_CARRIER_ID, &MMC_GKO_PORTO);
&LINHA_REDESPACHO = &LINHA_REDESPACHO + 1;
&MMC_GKO_PORTO = " ";
SQLExec("INSERT INTO SYSADM.PS_MMC_GKO_REDESP(BUSINESS_UNIT, NF_BRL_
ID, MMC_GKO_NOORDEM, MMC_GKO_CDTRPREDES, MMC_GKO_TPFRTREDES, MMC_GKO_MEIOTRP, MM
C_GKO_DSSEPCONHE, MMC_GKO_DSLOTE, MMC_GKO_CDEQUIPAME, MMC_GKO_STFRETEDIF, MMC_GK
O_PORTO) VALUES (:1, :2, :3, :4, ' ', ' ', ' ', ' ',' ',' ', :5)", BUSINESS_UNIT
, NF_BRL_ID, &LINHA_REDESPACHO, &REDESP_CARRIER_ID, &MMC_GKO_PORTO);
REM TRANSPORT_CD = &REDESP_CARRIER_ID;
SQLExec("UPDATE SYSADM.PS_NF_HDR_BRL SET transport_cd = :1 WHERE BUS
INESS_UNIT = :2 AND NF_BRL_ID = :3", &REDESP_CARRIER_ID, BUSINESS_UNIT, NF_BRL_I
D);
End-If;
End-If;
End-If;
End-If;
/************************************ mmcb.sds4041.en **************************
**********/
/************************************ mmcb.sds4046.sn **************************
**********/
SQLExec("SELECT 'Y' , MMC_CMX_NF_ID FROM SYSADM.PS_MMC_CMX_NF_XREF WHERE BUSI
NESS_UNIT = :1 AND NF_BRL_ID = :2 ", BUSINESS_UNIT, NF_BRL_ID, &NF_IMPORTACAO_FL
AG, &MMC_CMX_NF_ID);
If &NF_IMPORTACAO_FLAG = "Y" Then
SQLExec("UPDATE SYSADM.ITF_PEOPLE_NF_HDR SET PROCESS_FLAG = 'N' WHERE NOTA
_FISCAL_ID = :1 ", &MMC_CMX_NF_ID);
SQLExec("UPDATE ECOMEX.IMP_NOTA_FISCAL SET DT_ENVIO_RECEBTO = NULL , ID_EN
VIO_RECEBTO = NULL WHERE NOTA_FISCAL_ID = :1 ", &MMC_CMX_NF_ID);
SQLExec("DELETE SYSADM.PS_MMC_CMX_NF_XREF WHERE BUSINESS_UNIT = :1 AND NF_
BRL_ID = :2 ", BUSINESS_UNIT, NF_BRL_ID);
SQLExec("DELETE SYSADM.PS_MMC_CMX_NL_XREF WHERE BUSINESS_UNIT = :1 AND NF_
BRL_ID = :2 ", BUSINESS_UNIT, NF_BRL_ID);
End-If;
End-If;
/************************************ mmcb.sds4046.en **************************
**********/
/************************************ mmcb.sds4827.sn **************************
**********/
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_REC_DANF WHERE NF_BRL_ID = :1 and BUSI
NESS_UNIT_RECV = :2", NF_BRL_ID, BUSINESS_UNIT, &ret_rec_danfe);
If &ret_rec_danfe = "Y" Then
SQLExec("UPDATE SYSADM.PS_MMC_REC_DANF SET BUSINESS_UNIT_RECV = ' ', NF_BR
L_ID = ' ', RECEIPT_DT = NULL, REC_DANF_STATUS = 'PND' WHERE BUSINESS_UNIT_RECV
= :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_BRL_ID);
End-If;
End-If;
/************************************ mmcb.sds4827.en **************************
**********/
[NF_HDR_BRL.NF_BRL_STATUS.SavePreChange]
/*******************************************************************************
**********
* Claudio Henrique da Costa - MMC - 03/08/2007 - mmcb.at1791
*
* Alterao para no permitir salvar Recebimento como concluido se a OC no estiver
*
* aprovada.
*
*******************************************************************************
**********/
If %Component <> "DELETE_FISCDOC_PBL" Then
SQLExec("SELECT PH.PO_STATUS FROM SYSADM.PS_NF_LN_BRL NL, SYSADM.PS_PO_HDR PH
WHERE NL.BUSINESS_UNIT = :1 AND NL.NF_BRL_ID = :2 AND NL.BUSINESS_UNIT_PO = PH.
BUSINESS_UNIT AND NL.PO_ID = PH.PO_ID ", BUSINESS_UNIT, NF_BRL_ID, &EXISTE_PO_N
_APROV);
If (All(&EXISTE_PO_N_APROV) And
(&EXISTE_PO_N_APROV <> "D")) Then
Error ("VERIFIQUE STATUS DA(S) ORDEM(S) DE COMPRA(S) - ORDEM(S) AINDA NO DE
SPACHADA(S). ")
End-If;
End-If;
[NF_HDR_BRL.NF_BRL_TTL_LINES.FieldDefault]
/* BRLOC - PO - 8.00 - NAS - 27/09/2001 - BEGIN */
/* The total of the lines of the FD must be changed to '1' when a new FD is crea
ted by the typewriter (this number has impact on FD Archival process) */
/* FABIANO CUNHA - 21/10/2005 - Adequaao da verso 7 para 8 */
If %Mode = "A" And
%Component = Component.NF_INFO_PBL Or
NF_BRL_TTL_LINES = 1;
End-If;
/* BRLOC - PO - 8.00 - NAS - 27/09/2001 - END */
[NF_HDR_BRL.NF_BRL_TYPE.FieldChange]
/*Declare Function Calc_SumToHeader PeopleCode RECV_HD_WRK_PBL.NF_SUG_CALC_PBL_P
B FieldChange;
Declare Function Calc_Gross_Amt PeopleCode RECV_HD_WRK_PBL.NF_SUG_CALC_PBL_PB Fi
eldChange;*/
Local Rowset &RS_NF_LN_BRL, &RS_BRL_DISTRIB;
Local number &ROW_LN, &ROW_DS;
/* BRLOC - PO - APP - 8.00 - 09/01/01 - BEGIN */
/* Disponibiliza o painel de notas fiscais relacionadas e
Trata campos de Nota Fiscal se o documento no de transporte */
Function gray_trsp_data();
/* Cleans transportation data */
SetDefault(TRANSPORT_CD);
SetDefault(TRANSPORT_MODE);
SetDefault(NAME1);
SetDefault(ZIP);
SetDefault(ADDRESS1);
SetDefault(CITY);
SetDefault(STATE);
SetDefault(IE_BRL);
SetDefault(TRADE_VOL_BRL);
SetDefault(NUM_VOL_BRL);
SetDefault(TYPE_VOL_BRL);
SetDefault(QTY_VOL_BRL);
SetDefault(GROSS_WEIGHT_BRL);
SetDefault(NET_WEIGHT_BRL);
SetDefault(UOM_WEIGHT);
SetDefault(FREIGHT_PAY_BY_BRL);
SetDefault(LICENCE_PLATE_BRL);
/* Grays transportation data */
Gray(TRANSPORT_CD);
Gray(TRANSPORT_MODE);
Gray(NAME1);
Gray(ZIP);
Gray(ADDRESS1);
Gray(ADDRESS2);
Gray(CITY);
Gray(STATE);
Gray(CGC_BRL);
Gray(IE_BRL);
Gray(TRADE_VOL_BRL);
Gray(NUM_VOL_BRL);
Gray(TYPE_VOL_BRL);
Gray(QTY_VOL_BRL);
Gray(GROSS_WEIGHT_BRL);
Gray(NET_WEIGHT_BRL);
Gray(UOM_WEIGHT);
Gray(FREIGHT_PAY_BY_BRL);
Gray(LICENCE_PLATE_BRL);
End-Function;
Function ungray_trsp_data();
/* Ungrays transportation data */

UnGray(TRANSPORT_CD);
UnGray(TRANSPORT_MODE);
UnGray(NAME1);
UnGray(ZIP);
UnGray(ADDRESS1);
UnGray(ADDRESS2);
UnGray(CITY);
UnGray(STATE);
UnGray(CGC_BRL);
UnGray(IE_BRL);
UnGray(TRADE_VOL_BRL);
UnGray(NUM_VOL_BRL);
UnGray(TYPE_VOL_BRL);
UnGray(QTY_VOL_BRL);
UnGray(GROSS_WEIGHT_BRL);
UnGray(NET_WEIGHT_BRL);
UnGray(UOM_WEIGHT);
UnGray(FREIGHT_PAY_BY_BRL);
UnGray(LICENCE_PLATE_BRL);
End-Function;
Function gray_hdr_data();
/* Cleans header fields */
SetDefault(IPITAX_BRL_AMT);
SetDefault(FREIGHT_AMT);
SetDefault(INSURANCE_BRL_AMT);
SetDefault(OTHEREXP_BRL_AMT);
SetDefault(IRTAX_BRL_CD);
SetDefault(IRTAX_BRL_BSS);
SetDefault(IRTAX_BRL_AMT);
SetDefault(INSS_BRL_RETENTION);
/* BRLOC - PO - GTM - 08/12/03 - BEGIN - ICE Resoltuion ID: 147481
Descrio: Fix MP 135, adio de campos de reteno de COFINS, CSLL e PIS */
SetDefault(COFINS_BRL_RETENT);
SetDefault(CSLL_BRL_RETENT);
SetDefault(PIS_BRL_RETENT);
/* BRLOC - PO - GTM - 08/12/03 - END - ICE Resoltuion ID: 147481 */
SetDefault(FRGHT_PRORATE_PBL);
SetDefault(OTHER_PRORATE_PBL);
/* Grays header fields */
Gray(IPITAX_BRL_AMT);
Gray(FREIGHT_AMT);
Gray(INSURANCE_BRL_AMT);
Gray(OTHEREXP_BRL_AMT);
Gray(FRGHT_PRORATE_PBL);
Gray(OTHER_PRORATE_PBL);
End-Function;
Function ungray_hdr_data();
/* Ungrays header fields */
UnGray(IPITAX_BRL_AMT);
UnGray(FREIGHT_AMT);
UnGray(INSURANCE_BRL_AMT);
UnGray(OTHEREXP_BRL_AMT);
UnGray(FRGHT_PRORATE_PBL);
UnGray(OTHER_PRORATE_PBL);
End-Function;
Function Gray_hdr_ICMSSUB_data();
SetDefault(ICMSSUB_BRL_AMT);
SetDefault(ICMSSUB_BRL_BSS);
SetDefault(ICMSSUB_BRL_BSE);
Gray(ICMSSUB_BRL_AMT);
Gray(ICMSSUB_BRL_BSS);
Gray(ICMSSUB_BRL_BSE);
End-Function;
Function UnGray_hdr_ICMSSUB_data();
UnGray(ICMSSUB_BRL_AMT);
UnGray(ICMSSUB_BRL_BSS);
UnGray(ICMSSUB_BRL_BSE);
End-Function;
Function gray_line_data(&ROW1);
/* Cleans line fields */
UpdateValue(NF_LN_BRL.TAX_CLASS_BRL, &ROW1, "");
UpdateValue(NF_LN_BRL.IPITAX_BRL_PCT, &ROW1, 0);
UpdateValue(NF_LN_BRL.IPITAX_BRL_AMT, &ROW1, 0);
UpdateValue(NF_LN_BRL.IPITAX_BRL_BSS, &ROW1, 0);
UpdateValue(NF_LN_BRL.TAX_TYPE_BRL, &ROW1, "");
UpdateValue(NF_LN_BRL.IPI_CRLIM_PCT_PBL, &ROW1, 0);
UpdateValue(NF_LN_BRL.IPI_EXTCR_PCT_PBL, &ROW1, 0);
UpdateValue(NF_LN_BRL.FREIGHT_AMT, &ROW1, 0);
UpdateValue(NF_LN_BRL.INSURANCE_BRL_AMT, &ROW1, 0);
UpdateValue(NF_LN_BRL.OTHEREXP_BRL_AMT, &ROW1, 0);
UpdateValue(NF_LN_BRL.ICMS_COMPL_FLG_PBL, &ROW1, "N");
/* Grays line fields */
Gray(NF_LN_BRL.TAX_CLASS_BRL, &ROW1);
Gray(NF_LN_BRL.IPITAX_BRL_PCT, &ROW1);
Gray(NF_LN_BRL.IPITAX_BRL_AMT, &ROW1);
Gray(NF_LN_BRL.IPITAX_BRL_BSS, &ROW1);
Gray(NF_LN_BRL.TAX_TYPE_BRL, &ROW1);
Gray(NF_LN_BRL.IPI_CRLIM_PCT_PBL, &ROW1);
Gray(NF_LN_BRL.IPI_EXTCR_PCT_PBL, &ROW1);
Gray(NF_LN_BRL.FREIGHT_AMT, &ROW1);
Gray(NF_LN_BRL.INSURANCE_BRL_AMT, &ROW1);
Gray(NF_LN_BRL.OTHEREXP_BRL_AMT, &ROW1);
Gray(NF_LN_BRL.ICMS_COMPL_FLG_PBL, &ROW1);
End-Function;
Function ungray_line_data(&ROW1);
/* Ungrays line fields */
UnGray(NF_LN_BRL.TAX_CLASS_BRL, &ROW1);
UnGray(NF_LN_BRL.IPITAX_BRL_PCT, &ROW1);
UnGray(NF_LN_BRL.IPITAX_BRL_AMT, &ROW1);
UnGray(NF_LN_BRL.IPITAX_BRL_BSS, &ROW1);
UnGray(NF_LN_BRL.TAX_TYPE_BRL, &ROW1);
UnGray(NF_LN_BRL.IPI_CRLIM_PCT_PBL, &ROW1);
UnGray(NF_LN_BRL.IPI_EXTCR_PCT_PBL, &ROW1);
UnGray(NF_LN_BRL.ICMS_COMPL_FLG_PBL, &ROW1);
UnGray(NF_LN_BRL.FREIGHT_AMT, &ROW1);
End-If;
If OTHER_PRORATE_PBL = "M" Then
UnGray(NF_LN_BRL.INSURANCE_BRL_AMT, &ROW1);
UnGray(NF_LN_BRL.OTHEREXP_BRL_AMT, &ROW1);
End-If;
End-Function;
Function Gray_Line_ICMSSUB_Data(&ROW1);
UpdateValue(NF_LN_BRL.ICMSSUB_BRL_AMT, &ROW1, 0);
Gray(NF_LN_BRL.ICMSSUB_BRL_AMT, &ROW1);
End-Function;
Function UnGray_Line_ICMSSUB_Data(&ROW1);
UnGray(NF_LN_BRL.ICMSSUB_BRL_AMT, &ROW1);
End-Function;
Function gray_acctg_data(&ROW1, &ROW2);
/*** BRLOC-PO-AO-24/04/2002 - ICE Resolution 100957 - Alterado de MERCHANDISE
_AMT para MERCH_ORIG_AMT_PBL **/
/* Cleans accounting fields */
UpdateValue(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.MERCH_ORIG_AMT_PBL, &ROW2
, 0);
UpdateValue(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.ACCOUNT, &ROW2, "");
UpdateValue(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.DEPTID, &ROW2, "");
UpdateValue(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.PRODUCT, &ROW2, "");
UpdateValue(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.PROJECT_ID, &ROW2, "");
/* Grays accounting fields */
Gray(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.MERCH_ORIG_AMT_PBL, &ROW2);
Gray(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.ACCOUNT, &ROW2);
Gray(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.DEPTID, &ROW2);
Gray(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.PRODUCT, &ROW2);
Gray(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.PROJECT_ID, &ROW2);
End-Function;
Function ungray_acctg_data(&ROW1, &ROW2);
/*** BRLOC-PO-AO-24/04/2002 - ICE Resolution 100957 - Alterado de MERCHANDISE
_AMT para MERCH_ORIG_AMT_PBL **/
/* Ungrays accounting fields */
UnGray(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.MERCH_ORIG_AMT_PBL, &ROW2);
UnGray(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.ACCOUNT, &ROW2);
UnGray(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.DEPTID, &ROW2);
UnGray(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.PRODUCT, &ROW2);
UnGray(Record.NF_LN_BRL, &ROW1, BRL_DISTRIB_LN.PROJECT_ID, &ROW2);
End-Function;
/****************************** Main Program *****************************/
If NF_TYPE_BRL.NF_BRL_TYPE_FLG <> "Y" Then
Gray(RECV_HD_WRK_PBL.NF_MULTI_BRL_PB);
Else
/* BRLPO-HAT-8.01-10/07/01 - Alterado para NF_TYPE_BRL.NF_BRL_TYPE_FLG - tof
por linha */
/* If TOF_TYPE_PBL.TOF_VOUCHER_PBL = "N" Then */
If NF_TYPE_BRL.NF_BRL_TYPE_FLG = "N" Then
/* BRLPO-HAT-8.01-10/07/01 - END */
Else
UnGray(RECV_HD_WRK_PBL.NF_MULTI_BRL_PB);
End-If;
/*Sum to Header some fields from Recv Line Ship
Calc_SumToHeader();
/* Calculates Gross Amount
Calc_Gross_Amt();*/
End-If;
/* BRLOC-PO-SAM-Release 8-14/09/2001-SAOKI-3J9WQ-NEW-BEGIN */
If NF_TYPE_BRL.DOC_CLASS_BBL = "CT" Then
gray_trsp_data();
gray_hdr_data();
If NF_TYPE_BRL.NF_BRL_SUBST_FLG = "Y" Then
Gray_hdr_ICMSSUB_data();
Else
UnGray_hdr_ICMSSUB_data();
End-If;
For &I = 1 To ActiveRowCount(Record.NF_LN_BRL);
gray_line_data(&I);
Gray_Line_ICMSSUB_Data(&I);
Else
UnGray_Line_ICMSSUB_Data(&I);
End-If;
End-For;
Else
ungray_trsp_data();
ungray_hdr_data();
ungray_line_data(&I);
End-For;
End-If;
/* BRLOC-PO-SAM-Release 8-14/09/2001-SAOKI-3J9WQ-NEW-END */
/*BRLOC-PO - HAT - Takes InterUnit Flag value from nf type. */
INTERUNIT_FLG = NF_TYPE_BRL.INTERUNIT_FLG;
/*BRLOC-PO- HAT - END*/
/* BRLOC - PO - NAS - 8.00 - 03/09/01 - BEGIN */
If INTERUNIT_FLG = "Y" Then
UnHide(BUSINESS_UNIT_IN);
Else
Hide(BUSINESS_UNIT_IN);
End-If;
/* BRLOC - PO - NAS - 8.00 - 03/09/01 - END */
/*** BRLOC-PO-AO-24/07/2001 - Habilita/desabilita link para ajuste de custo
********************************************************************************
******/
If NF_TYPE_BRL.ADJ_COST_FLG_PBL = "Y" Then
&ADJ_COST = True;
Else
&ADJ_COST = False;
End-If;
&RS_NF_LN_BRL = GetRowset().GetRow(1).GetRowset(Scroll.NF_LN_BRL);
For &ROW_LN = 1 To &RS_NF_LN_BRL.ActiveRowCount
&RS_BRL_DISTRIB = &RS_NF_LN_BRL(&ROW_LN).GetRowset(Scroll.BRL_DISTRIB_LN);
For &ROW_DS = 1 To &RS_BRL_DISTRIB.ActiveRowCount
&RS_BRL_DISTRIB(&ROW_DS).NF_DIST_PBL_WRK.NF_GOTO_INV_PBL.Enabled = &ADJ_CO
ST;
End-For;
End-For;
/***************************** End Localization ***************************/

/**** INICIO - AUGUSTO VILARINHO NETO - 24/11/2005 - Verifica se existe o docum
ento fiscal para o fornecedor especificado ****/
/**** Atualmente No Considera a data de emissao do documento fiscal - para evi
tar de erros na entrada de dados ****/
SQLExec("Select 'X' from PS_NF_HDR_BRL A, PS_VNDR_ADDR_SCROL B where A.NF_BRL
= :1 and A.NF_BRL_SERIES = :2 AND A.VENDOR_SETID = B.SETID AND A.VENDOR_ID = B.
VENDOR_ID and A.ADDRESS_SEQ_NUM = B.ADDRESS_SEQ_NUM AND B.CGC_BRL = :3 and A.NF_
BRL_STATUS <> 'X' AND A.NF_BRL_ID <> :4", NF_BRL, NF_BRL_SERIES, NF_HDR_INFO_WRK
.CGC_BRL, NF_BRL_ID, &RETURN);
Error MsgGet(30000, 121, "This Fiscal Document already exists.");
End-If;
/**** Comentado - Fiscalmente correto - Considera a data de emissao do docume
nto fiscal
SQLExec("Select 'X' from PS_NF_HDR_BRL A, PS_VNDR_ADDR_SCROL B where A.NF_
BRL = :1 and A.NF_BRL_SERIES = :2 AND A.VENDOR_SETID = B.SETID AND A.VENDOR_ID =
B.VENDOR_ID and A.ADDRESS_SEQ_NUM = B.ADDRESS_SEQ_NUM AND B.CGC_BRL = :3 and A.
NF_BRL_STATUS <> 'X' AND NF_BRL_DATE = %DATEIN(:4)", NF_BRL, NF_BRL_SERIES, NF_H
DR_INFO_WRK.CGC_BRL, NF_BRL_DATE, &RETURN);
End-If;
*****/
End-If
/**** FIM - AUGUSTO VILARINHO NETO - 24/11/2005 - Verifica se existe o document
o fiscal para o fornecedor especificado ****/
[NF_HDR_BRL.NF_BRL_TYPE.RowInit]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/* BRLOC-PO-SAM-Release 8-14/09/2001-SAOKI-3J9WQ-NEW-BEGIN */
Declare Function gray_trsp_data PeopleCode NF_BRL_TYPE FieldChange;
Declare Function gray_hdr_data PeopleCode NF_BRL_TYPE FieldChange;
Declare Function gray_line_data PeopleCode NF_BRL_TYPE FieldChange;
Declare Function ungray_trsp_data PeopleCode NF_BRL_TYPE FieldChange;
Declare Function ungray_hdr_data PeopleCode NF_BRL_TYPE FieldChange;
Declare Function ungray_line_data PeopleCode NF_BRL_TYPE FieldChange;
Declare Function Gray_hdr_ICMSSUB_data PeopleCode NF_BRL_TYPE FieldChange;
Declare Function UnGray_hdr_ICMSSUB_data PeopleCode NF_BRL_TYPE FieldChange;
Declare Function Gray_Line_ICMSSUB_Data PeopleCode NF_BRL_TYPE FieldChange;
Declare Function UnGray_Line_ICMSSUB_Data PeopleCode NF_BRL_TYPE FieldChange;
%Component = Component.NF_RECV_PBL Then
If NF_TYPE_BRL.NF_BRL_TYPE_FLG = "Y" Then

Else
End-If;
gray_trsp_data();
gray_hdr_data();
Else
End-If;
gray_line_data(&I);
Else
End-If;
End-For;
Else
ungray_trsp_data();
ungray_hdr_data();
End-For;
End-If;
/* Else
ungray_trsp_data();
ungray_hdr_data();
End-For;
End-If; */
End-If;
/* BRLOC-PO-SAM-Release 8-14/09/2001-SAOKI-3J9WQ-NEW-END */
/******************************** mmcb.sds5100 sn ******************************
**/
If NF_BRL_TYPE <> "NFC" Then
Gray(MMC_NF_ALT_WRK.NF_NAV_L1);
End-If;
End-If;
/******************************** mmcb.sds5100 en ******************************
**/
[NF_HDR_BRL.NF_BRL_TYPE.SaveEdit]
/*******************************************************************************
*****
*
* Adicinar o criterio nf_brl_date na verificao Documento Fiscal existe.
*
********************************************************************************
****/
/******************************************************************************
*Rafael Taveira - MMC - 22/05/2012 - mmcb.sds3808
*Verifica se o usurio tem permisso para salvar o documento
*******************************************************************************
******/
/**** INICIO - AUGUSTO VILARINHO NETO - 24/11/2005 - Verifica se existe o docum
ento fiscal para o fornecedor especificado ****/
/**** Atualmente No Considera a data de emissao do documento fiscal - para evi
tar de erros na entrada de dados ****/
/********************************************* mmcb.hd59717.so **************
*******************************/
/*
SQLExec("SELECT 'X' FROM PS_NF_HDR_BRL WHERE VENDOR_ID = :1 AND NF_BRL = :2 A
ND NF_BRL_SERIES = :3 AND NF_BRL_ID <> :4 AND ADDRESS_SEQ_NUM = :5 AND NF_BRL_ST
ATUS <> 'X'", VENDOR_ID, NF_BRL, NF_BRL_SERIES, NF_BRL_ID, ADDRESS_SEQ_NUM, &RET
URN);
*/
/********************************************* mmcb.hd59717.eo **************
*******************************/
/********************************************* mmcb.hd59717.sn **************
*******************************/
SQLExec("SELECT 'X' FROM PS_NF_HDR_BRL WHERE VENDOR_ID = :1 AND NF_BRL = :2 A
ND NF_BRL_SERIES = :3 AND NF_BRL_ID <> :4 AND ADDRESS_SEQ_NUM = :5 AND NF_BRL_ST
ATUS <> 'X' AND NF_BRL_DATE = %DATEIN(:6) ", VENDOR_ID, NF_BRL, NF_BRL_SERIES, N
F_BRL_ID, ADDRESS_SEQ_NUM, NF_BRL_DATE, &RETURN);
/********************************************* mmcb.hd59717.en **************
*******************************/
End-If;
/**** Comentado - Fiscalmente correto Considera a data de emissao do document
o fiscal
SQLExec("Select 'X' from PS_NF_HDR_BRL A, PS_VNDR_ADDR_SCROL B where A.NF_
BRL = :1 and A.NF_BRL_SERIES = :2 AND A.VENDOR_SETID = B.SETID AND A.VENDOR_ID =
B.VENDOR_ID and A.ADDRESS_SEQ_NUM = B.ADDRESS_SEQ_NUM AND B.CGC_BRL = :3 and A.
NF_BRL_STATUS <> 'X' AND NF_BRL_DATE = %DATEIN(:4)", NF_BRL, NF_BRL_SERIES, NF_H
DR_INFO_WRK.CGC_BRL, NF_BRL_DATE, &RETURN);
End-If;
*****/
End-If;
/**** FIM - AUGUSTO VILARINHO NETO - 24/11/2005 - Verifica se existe o document
o fiscal para o fornecedor especificado ****/
/********************************************* mmcb.hd59717.sn ****************

*****************************/
/********************************************* mmcb.sds3808.sn
**********************************************/
If All(NF_BRL_TYPE) Then
&VALIDA = " ";
&RECEBIMENTO = " ";
SQLExec("SELECT DISTINCT 'Y' FROM PS_MMC_ACES_REC_LN LN,PS_MMC_ACES_REC_HD
HD WHERE HD.BUSINESS_UNIT = :1 AND LN.BUSINESS_UNIT = :1 AND HD.STATUS = 'A' AN
D LN.OPRID = HD.OPRID AND HD.OPRID =(SELECT REC.OPRID FROM PS_RECV_HDR REC WHERE
REC.BUSINESS_UNIT = :1 AND REC.RECEIVER_ID = :5 AND REC.NF_BRL = :2 AND REC.NF_
BRL_SERIES = :3) AND LN.NF_BRL_TYPE = :4", BUSINESS_UNIT, NF_BRL, NF_BRL_SERIES,
NF_BRL_TYPE, RECEIVER_ID, &VALIDA);
SQLExec("SELECT DISTINCT RECEIVER_TYPE FROM PS_MMC_ACES_REC_LN LN,PS_MMC_A
CES_REC_HD HD WHERE HD.BUSINESS_UNIT = :1 AND LN.BUSINESS_UNIT = :1 AND HD.STATU
S = 'A' AND LN.OPRID = HD.OPRID AND HD.OPRID =(SELECT REC.OPRID FROM PS_RECV_HDR
REC WHERE REC.BUSINESS_UNIT = :1 AND REC.RECEIVER_ID = :5 AND REC.NF_BRL = :2 A
ND REC.NF_BRL_SERIES = :3)", BUSINESS_UNIT, NF_BRL, NF_BRL_SERIES, NF_BRL_TYPE,
RECEIVER_ID, &RECEBIMENTO);
If &RECEBIMENTO = "02" And
&VALIDA <> "Y" Then
Error MsgGet(9999, 99, "Usurio no autorizado a efetuar recebimento!");
End-If;
End-If;
End-If;
/********************************************* mmcb.sds3808.sn
**********************************************/
[NF_HDR_BRL.NF_BRL_TYPE.SavePreChange]
/* Desassocia as NFs vinculadas ao alterar o tipo de doc. fiscal */
&MULTIID = FetchValue(NF_MULTI_BRL.NF_BRL_MULTI_ID, 1);
If NF_TYPE_BRL.NF_BRL_TYPE_FLG = "N" And
All(&MULTIID) Then
GetLevel0()(1).GetRowset(Scroll.NF_MULTI_BRL).Flush();
End-If;
End-If;
[NF_HDR_BRL.ORIGIN_METHOD.SaveEdit]
/* Determina Origin Method baseado no panelgroup */
/* Fabiano cunha 21/10/2005 - Adequao da verso 7 para 8 */
If %Mode = "A" Then

When PanelGroup.NF_INFO_PBL
ORIGIN_METHOD = "P";
When PanelGroup.MMC_LANC_GAR /* Foi incluido o painel group - Fc800958 - 21/1
0/2005 */
ORIGIN_METHOD = "P";
End-Evaluate;
End-If;
/* BRLOC-PO-APP-8.00-11/12/00-END*/
[NF_HDR_BRL.OTHEREXP_BRL_AMT.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
Formula;
If OTHER_PRORATE_PBL = "A" Then
End-If;
/*BRLOC-PO-APP-8.00-02/04/01-END */
[NF_HDR_BRL.OTHEREXP_BRL_AMT.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.OTHEREXP_BRL_AMT";
&valor_hdr = OTHEREXP_BRL_AMT;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.OTHER_PRORATE_PBL.FieldChange]
Declare Function UnGray_Other_Amt PeopleCode FUNCLIB_PBL.EXP_PRORATE_PBL FieldFo
rmula;
Declare Function Gray_Other_Amt PeopleCode FUNCLIB_PBL.EXP_PRORATE_PBL FieldForm
ula;
Formula;
/*
UnGrays Other Expenses/Insurance fields if Prorate = "Manual" else
Grays Other Expenses/Insurance fields and Calculate Prorate */
UnGray_Other_Amt();
Else
Gray_Other_Amt();
End-If;
/*BRLOC-PO-APP-8.00-02/04/01-END */
[NF_HDR_BRL.OTHER_PRORATE_PBL.RowInit]
Declare Function UnGray_Other_Amt PeopleCode FUNCLIB_PBL.EXP_PRORATE_PBL FieldFo
rmula;
Declare Function Gray_Other_Amt PeopleCode FUNCLIB_PBL.EXP_PRORATE_PBL FieldForm
ula;
Formula;
*/
/* Desabilita campos de rateio de frete, seguro e outras despesas, quando
recebimento fiscal for relacionado a um recebimento fsico com Ordem de Compra*/
&LINE_MAXROW = ActiveRowCount(Record.NF_LN_BRL);
For &LINE_ROW = 1 To &LINE_MAXROW
&po_id = FetchValue(NF_LN_BRL.PO_ID, &LINE_ROW);
If All(&po_id) Then
REM Gray(OTHER_PRORATE_PBL);
Else
UnGray(OTHER_PRORATE_PBL);
End-If;
End-For;
/*
UnGrays Other Expenses/Insurance fields if Prorate = "Manual" el
se
Grays Other Expenses/Insurance fields and Calculate Prorate */

UnGray_Other_Amt();
Else
Gray_Other_Amt();
End-If;
/*BRLOC-PO-APP-8.00-10/01/01-END */
End-If;
End-If
[NF_HDR_BRL.PAYTRMS_DT_BSE_PBL.RowInit]
/* Campo somente disponvel para entrada de dados quando o campo de data base esti
ver setado como especificao do usurio */
/*Hide(PAYTRMS_DT_BSE_PBL);*/
/*BRLOC-PO-APP-8.00-04/04/01-END */
[NF_HDR_BRL.PAY_TRM_BSE_DT_OPT.FieldChange]
If PAY_TRM_BSE_DT_OPT = "U" Then
UnHide(PAYTRMS_DT_BSE_PBL);
Else
SetDefault(PAYTRMS_DT_BSE_PBL);
Hide(PAYTRMS_DT_BSE_PBL);
End-If;
/*BRLOC-PO-APP-8.00-04/04/01-END */
[NF_HDR_BRL.PISTAX_BRL_AMT.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
If PISTAX_BRL_AMT = 0 Then
UpdateValue(NF_LN_BRL.PIS_PCT_BBL, &LINE_ROW, 0);
UpdateValue(NF_LN_BRL.PIS_BSS_AMT_BBL, &LINE_ROW, 0);
UpdateValue(NF_LN_BRL.PISTAX_BRL_AMT, &LINE_ROW, 0);
End-For;
End-If;
End-If;
/**********mmcb.sds5100.e.n**********/
/*BRLOC - PO - GTM - 19/05/04 - MP164 - ICE Resoltuion ID: 157028 - BEGIN*/
If All(PISTAX_BRL_AMT) And
PISTAX_BRL_AMT > GROSS_AMT Then
Error MsgGet(28000, 11, "Valor no pode ser maior que o valor da Nota");
End-If;
/*BRLOC - PO - GTM - 19/05/04 - MP164 - ICE Resoltuion ID: 157028 - END*/
[NF_HDR_BRL.PISTAX_BRL_AMT.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.PISTAX_BRL_AMT";
&valor_hdr = PISTAX_BRL_AMT;
If PISTAX_BRL_AMT <> 0 And
None(COFINSTAX_BRL_AMT) Or
None(PISTAX_BRL_AMT) And
COFINSTAX_BRL_AMT <> 0 Then
Error ("Os campos de PIS/Cofins devem estar nas mesmas condies.")
End-If;
If PIS_AMT_BSE_BBL <> 0 And
None(COFINS_AMT_BSE_BBL) Or
None(PIS_AMT_BSE_BBL) And
COFINS_AMT_BSE_BBL <> 0 Then
Error ("Os campos de PIS/Cofins devem estar nas mesmas condies.")
End-If;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.PIS_AMT_BSE_BBL.SavePreChange]
/*******************************************************************************
*******
*

*
********************************************************************************
*******/
/*** BRLOC-PO-AFF-17/10/2002 - ICE Resolution 110787 - Soma PIS para a Header **
*/
/* FABIANO CUNHA - 21/10/2005 - ADEQUACAO DA VERSAO 7 PARA 8 - Incluso do panelgr
oup mmc_lanc_gar */
%PanelGroup = PanelGroup.DFI_TYP_WRT_PBL_PG Or
%PanelGroup = PanelGroup.MMC_LANC_GAR Then
&PIS_AMT = 0;
&PIS_BSS = 0;
For &I = 1 To ActiveRowCount(NF_LN_BRL.NF_BRL_ID)
&PIS_AMT = &PIS_AMT + FetchValue(NF_LN_BRL.PIS_AMT_BBL, &I);
&PIS_BSS = &PIS_BSS + FetchValue(NF_LN_BRL.PIS_BSS_AMT_BBL, &I);
End-For;
PIS_AMT_BSE_BBL = &PIS_AMT;
PIS_BSS_AMT_BBL = &PIS_BSS;
End-If;
/**********mmcb.sds5100.s.n**********/
&campo = "NF_LN_BRL.PIS_AMT_BBL";
&valor_hdr = PIS_AMT_BSE_BBL;
End-If;
/**********mmcb.sds5100.e.n**********/
[NF_HDR_BRL.PIS_BRL_RETENT.FieldEdit]
than gross amt */
If All(PIS_BRL_RETENT) And
PIS_BRL_RETENT > GROSS_AMT Then
Error MsgGet(28000, 60, "Valor do PIS no pode ser maior que o valor da Nota");
End-If;
[NF_HDR_BRL.PURCH_PROP_BRL.FieldChange]
/* BRLOC PM - 05/NOV/97 - Default to lines */
UpdateValue(NF_LN_BRL.PURCH_PROP_BRL, 1, PURCH_PROP_BRL);
[NF_HDR_BRL.PYMNT_TERMS_CD.FieldChange]
If %PanelGroup = "RECV_PO" Then
/*** JC800888 - JEISON CALDAS - 30/07/2006 - Atividade 1713 - Busca primeiro
a parametrizao dentro do cadastro de compras, caso no encontre faz busca original Inicio ***/
SQLExec("SELECT TMG_DAY_INCR_VAL FROM PS_PYMT_TRMS_NET A, PS_PYMT_TRMS_TIME B

WHERE A.SETID = B.SETID AND A.NET_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID AND A.P
YMNT_TERMS_CD = :1", PYMNT_TERMS_CD, &DAY_INCREMENT);
REM Atividade 1713 - FIM;
SQLExec("SELECT C.DAY_INCREMENT FROM PS_PAY_TRMS_TBL A, PS_PAY_TRM_BRL_MU
L B, PS_PAY_TRMS_TIME C WHERE A.PYMNT_TERMS_CD = :1 AND A.SETID = B.SETID AND
A.PYMNT_TERMS_CD = B.PYMNT_TERMS_CD AND B.SEQ_NUM = 1 AND B.SETID = C.SETID AND
B.PYMNT_TRM_BRL_REF = C.PAY_TRMS_TIME_ID", PYMNT_TERMS_CD, &DAY_INCREMENT);
SQLExec("SELECT B.DAY_INCREMENT FROM PS_PAY_TRMS_NET A, PS_PAY_TRMS_TIM
E B WHERE A.SETID = 'MMCSA' AND A.PYMNT_TERMS_CD= :1 AND A.SETID = B.SETID AND
A.PAY_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID", PYMNT_TERMS_CD, &DAY_INCREMENT);
End-If;
End-If;
End-If;
[NF_HDR_BRL.PYMNT_TERMS_CD.RowInit]
/*******************************************************************************
*****************
*
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
eiros
*
* Buscar condio de pagamento automaticamente.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
* Implementacao Interface GKO para People.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Renato/Rosangela Enc.Vinicius Favero mmc.hd170222
24/04/2013
*
* Ajustar a data para criao da condio de pagamento ajustando o prazo de 3 para 1
*
*******************************************************************************
*****************/
b.sds3239.ln */
&SETID = BUSCA_SETID(); /* mmcb.sds3239.ln */
/*** JEISON CALDAS - 27/09/05 - Customizao de condio de pagamento da OC para recebim
ento - INICIO ***/

SQLExec("SELECT PO_ID FROM PS_RECV_LN_SHIP WHERE BUSINESS_UNIT = :1 AND RECEI
VER_ID = :2 ", BUSINESS_UNIT, RECEIVER_ID, &JPO_ID);
SQLExec("SELECT PYMNT_TERMS_CD FROM PS_PO_HDR WHERE BUSINESS_UNIT = :1 AND PO
_ID = :2", BUSINESS_UNIT, &JPO_ID, &JPYMNT_TERM);
If All(&JPYMNT_TERM) Then
PYMNT_TERMS_CD = &JPYMNT_TERM;
Gray(PYMNT_TERMS_CD);
REM FAZ TRATAMENTO PARA DATA DE VENCIMENTO SUGERIDO;
/*** JC800888 - JEISON CALDAS - 30/07/2006 - Atividade 1713 - Busca primei
ro a parametrizao dentro do cadastro de compras, caso no encontre faz busca origina
l - Inicio ***/
/*************************************************************************
******* Fabiano Cunha - MMC - 17/10/2006 - mmcb.HD26117 - Alterando o programa
que busca o numero de dias para considerar, ano e mes e nao somente dias ******
********************************************************************************
*****************************************/
/********* mmcb.HD26117 - s.n ***********/
SQLExec("SELECT (B.TMG_DAY_INCR_VAL + (b.TMG_MONTH_INCR_VAL*30)+ (b.TMG_YE
AR_INCR_VAL *356)) FROM sysadm.PS_PYMT_TRMS_NET A, sysadm.PS_PYMT_TRMS_TIME B WH
ERE A.SETID = B.SETID AND A.NET_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID AND A.PYMNT_T
ERMS_CD = :1", PYMNT_TERMS_CD, &DAY_INCREMENT);
/********* mmcb.HD26117 - e.n ***********/
/********* mmcb.HD26117 - s.o ***********
SQLExec("SELECT TMG_DAY_INCR_VAL FROM PS_PYMT_TRMS_NET A, PS_PYMT_TRMS_
TIME B WHERE A.SETID = B.SETID AND A.NET_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID A
ND A.PYMNT_TERMS_CD = :1", PYMNT_TERMS_CD, &DAY_INCREMENT);
End-If; ********* mmcb.HD26117 - e.o ***********/
REM Atividade 1713 - FIM ;
SQLExec("SELECT C.DAY_INCREMENT FROM PS_PAY_TRMS_TBL A, PS_PAY_TRM_BRL
_MUL B, PS_PAY_TRMS_TIME C WHERE A.PYMNT_TERMS_CD = :1 AND A.SETID = B.SETID A
ND A.PYMNT_TERMS_CD = B.PYMNT_TERMS_CD AND B.SEQ_NUM = 1 AND B.SETID = C.SETID A
ND B.PYMNT_TRM_BRL_REF = C.PAY_TRMS_TIME_ID", PYMNT_TERMS_CD, &DAY_INCREMENT);
/********************** mmcb.sds3239.so **********************/
/*
SQLExec("SELECT B.DAY_INCREMENT FROM PS_PAY_TRMS_NET A
, PS_PAY_TRMS_TIME B WHERE A.SETID = 'MMCSA' AND A.PYMNT_TERMS_CD= :1 AND A.SET
ID = B.SETID AND A.PAY_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID", PYMNT_TERMS_CD, &DAY_
INCREMENT);
*/
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.sds3239.sn **********************/
SQLExec("SELECT B.DAY_INCREMENT FROM PS_PAY_TRMS_NET A, PS_PAY_TRMS_
TIME B WHERE A.SETID = :1 AND A.PYMNT_TERMS_CD= :2 AND A.SETID = B.SETID AND A.
PAY_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID", &SETID, PYMNT_TERMS_CD, &DAY_INCREMENT);
/********************** mmcb.sds3239.en **********************/
End-If;
End-If;
Else
UnGray(PYMNT_TERMS_CD);
End-If;
End-If;
/*** JEISON CALDAS - 27/09/05 - Customizao de condio de pagamento da OC para recebim

ento - FIM
***/
REM JC800888 - 14/08/06 - Acrescentado cdigo para j trazer condio de pagamento valid
a para o contas a pagar.;
VOUCHER_FLOW_PBL <> "N" And
PYMNT_TERMS_CD <> "PERMU" And
PYMNT_TERMS_CD <> "PATRO" Then
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_GKO_NF_IF WHERE MMC_GKO_BU_NF_FRET = :
1 AND MMC_GKO_ID_NF_FRET = :2 ", BUSINESS_UNIT, NF_BRL_ID, &RECEBIMENTO_FRETE);
/* mmcb.sds3445.ln */
If None(&RECEBIMENTO_FRETE) Then /* mmcb.sds3445.ln */
/******************************hd170222.so******************************
&DT_PGTO = AddToDate(%Date, 0, 0, 3);
******************************hd170222.eo******************************/
/******************************hd170222.sn******************************/
/******************************hd170222.en******************************/
Else /* mmcb.sds3445.sn */
SQLExec("SELECT TMG_DAY_INCR_VAL FROM SYSADM.PS_PYMT_TRMS_TIME PT WHERE PT
.SETID = :1 AND PT.PAY_TRMS_TIME_ID = :2", &SETID, PYMNT_TERMS_CD, &DIAS_ADICAO)
;
If All(&DIAS_ADICAO) Then
&DT_PGTO = AddToDate(NF_BRL_DATE, 0, 0, &DIAS_ADICAO);
End-If;
End-If; /* mmcb.sds3445.en */
If None(MMC_TEMP.END_DATE) Then
MMC_TEMP.END_DATE = NF_BRL_DATE;
End-If;
If MMC_TEMP.END_DATE < &DT_PGTO Then
&COND_INC = (&DT_PGTO - MMC_TEMP.END_DATE) + (MMC_TEMP.END_DATE - NF_BRL_D
ATE);
REM BUSCA NOVA CONDIO DE PAGAMENTO SATISFATORIA;
/********************** mmcb.sds3239.so **********************/
/*
SQLExec("SELECT A.PYMNT_TERMS_CD, B.DAY_INCREMENT FROM PS_PAY_TRMS_NET A,
PS_PAY_TRMS_TIME B, PS_PYMT_TR_EFF_VW C WHERE A.SETID = 'MMCSA' AND A.SETID = B.
SETID AND A.PAY_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID AND A.SETID = C.SETID AND A.P
YMNT_TERMS_CD = C.PYMNT_TERMS_CD AND B.DAY_INCREMENT >= :1 ORDER BY B.DAY_INCREM
ENT", &COND_INC, &NEW_PYMNT, &DAY_INC);
*/
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.sds3239.sn **********************/
PS_PAY_TRMS_TIME B, PS_PYMT_TR_EFF_VW C WHERE A.SETID = :1 AND A.SETID = B.SETID
AND A.PAY_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID AND A.SETID = C.SETID AND A.PYMNT_
TERMS_CD = C.PYMNT_TERMS_CD AND B.DAY_INCREMENT >= :2 ORDER BY B.DAY_INCREMENT",
&SETID, &COND_INC, &NEW_PYMNT, &DAY_INC);
/********************** mmcb.sds3239.en **********************/
If All(&NEW_PYMNT) Then
PYMNT_TERMS_CD = &NEW_PYMNT;
MMC_TEMP.END_DATE = AddToDate(NF_BRL_DATE, 0, 0, &DAY_INC);
Else
REM BUSCA PARAMETRIZAO DOS CADASTROS DE COMPRA;
/**********************************************************************
********** Fabiano Cunha - MMC - 17/10/2006 - mmcb.HD26117 - Alterando o progra
ma que busca o numero de dias para considerar, ano e mes e nao somente dias ****
********************************************************************************
*******************************************/
/********* mmcb.HD26117 - s.n ***********/
SQLExec("SELECT A.PYMNT_TERMS_CD, (B.TMG_DAY_INCR_VAL + (b.TMG_MONTH_IN
CR_VAL*30)+ (b.TMG_YEAR_INCR_VAL *356)) FROM sysadm.PS_PYMT_TRMS_NET A, sysadm.P
S_PYMT_TRMS_TIME B WHERE A.SETID = B.SETID AND A.NET_TRMS_TIME_ID = B.PAY_TRMS_
TIME_ID AND (B.TMG_DAY_INCR_VAL + (b.TMG_MONTH_INCR_VAL*30)+ (b.TMG_YEAR_INCR_VA
L *356)) >= :1 ORDER BY (B.TMG_DAY_INCR_VAL + (b.TMG_MONTH_INCR_VAL*30) + (b.TMG
_YEAR_INCR_VAL *356))", &COND_INC, &NEW_PYMNT, &DAY_INC);
/********* mmcb.HD26117 - e.n ***********/
/********* mmcb.HD26117 - s.o **********
SQLExec("SELECT A.PYMNT_TERMS_CD, B.TMG_DAY_INCR_VAL FROM PS_PYMT_TR
MS_NET A, PS_PYMT_TRMS_TIME B WHERE A.SETID = B.SETID AND A.NET_TRMS_TIME_ID = B
.PAY_TRMS_TIME_ID AND B.TMG_DAY_INCR_VAL >= :1 ORDER BY B.TMG_DAY_INCR_VAL", &CO
ND_INC, &NEW_PYMNT, &DAY_INC);
End-If; ********* mmcb.HD26117 - e.o ***********/
End-If;
End-If;
End-If;
End-If;
/***************************** mmcb.sds3425.sn *****************************/
If %Page = "NF_INFO_HDR_PBL" And
ADDR_SEQ_NUM = A.ADDRESS_SEQ_NUM AND A.CGC_BRL=:1", MMC_TE_RECV_WRK.CGC_BRL, PYM
NT_TERMS_CD);
End-If;
End-If;
/***************************** mmcb.sds3425.en *****************************/
[NF_HDR_BRL.PYMNT_TERMS_CD.SaveEdit]
/*** JEISON CALDAS - VALIDAO DE CONDIO DE PAGAMENTO DA NF DENTRO DO PRAZO - INICIO *
**/
/*******************************************************************************
*********
* Renato/Rosangela Enc.Vinicius Favero mmc.hd170222
24/04/2013
*
* Ajustar a data para criao da condio de pagamento ajustando o prazo de 3 para 1
*
********************************************************************************
********/
VOUCHER_FLOW_PBL <> "N" And
PYMNT_TERMS_CD <> "PERMU" And
PYMNT_TERMS_CD <> "PATRO" Then
/******************************hd170222.so******************************
******************************hd170222.eo******************************/
/******************************hd170222.sn******************************/
/******************************hd170222.en******************************/
If None(MMC_TEMP.END_DATE) Then
MMC_TEMP.END_DATE = NF_BRL_DATE;
End-If;
If MMC_TEMP.END_DATE < &DT_PGTO Then
&COND_INC = (&DT_PGTO - MMC_TEMP.END_DATE) + (MMC_TEMP.END_DATE - NF_BRL_D
ATE);
REM BUSCA NOVA CONDIO DE PAGAMENTO SATISFATORIA;
PS_PAY_TRMS_TIME B, PS_PYMT_TR_EFF_VW C WHERE A.SETID = 'MMCSA' AND A.SETID = B.
SETID AND A.PAY_TRMS_TIME_ID = B.PAY_TRMS_TIME_ID AND A.SETID = C.SETID AND A.P
YMNT_TERMS_CD = C.PYMNT_TERMS_CD AND B.DAY_INCREMENT >= :1 ORDER BY B.DAY_INCREM
ENT", &COND_INC, &NEW_PYMNT, &DAY_INC);
Else
REM BUSCA PARAMETRIZAO DOS CADASTROS DE COMPRA;
/**********************************************************************
********** Fabiano Cunha - MMC - 17/10/2006 - mmcb.HD26117 - Alterando o progra
ma que busca o numero de dias para considerar, ano e mes e nao somente dias ****
********************************************************************************
*******************************************/
/********* mmcb.HD26117 - s.n ***********/
SQLExec("SELECT A.PYMNT_TERMS_CD, (B.TMG_DAY_INCR_VAL + (b.TMG_MONTH_IN
CR_VAL*30)+ (b.TMG_YEAR_INCR_VAL *356)) FROM sysadm.PS_PYMT_TRMS_NET A, sysadm.P
S_PYMT_TRMS_TIME B WHERE A.SETID = B.SETID AND A.NET_TRMS_TIME_ID = B.PAY_TRMS_
TIME_ID AND (B.TMG_DAY_INCR_VAL + (b.TMG_MONTH_INCR_VAL*30)+ (b.TMG_YEAR_INCR_VA
L *356)) >= :1 ORDER BY (B.TMG_DAY_INCR_VAL + (b.TMG_MONTH_INCR_VAL*30) + (b.TMG
_YEAR_INCR_VAL *356))", &COND_INC, &NEW_PYMNT, &DAY_INC);
/********* mmcb.HD26117 - e.n ***********/
/********* mmcb.HD26117 - s.o **********
SQLExec("SELECT A.PYMNT_TERMS_CD, B.TMG_DAY_INCR_VAL FROM PS_PYMT_TR
MS_NET A, PS_PYMT_TRMS_TIME B WHERE A.SETID = B.SETID AND A.NET_TRMS_TIME_ID = B
.PAY_TRMS_TIME_ID AND B.TMG_DAY_INCR_VAL >= :1 ORDER BY B.TMG_DAY_INCR_VAL", &CO
ND_INC, &NEW_PYMNT, &DAY_INC);
End-If; ******** mmcb.HD26117 - e.o ***********/
Else
Error ("Condio de pagamento insuficiente para pagamento do voucher den
tro do vencimento!");
End-If;
End-If;
End-If;
End-If;
/*** JEISON CALDAS - VALIDAO DE CONDIO DE PAGAMENTO DA NF DENTRO DO PRAZO - FIM ***/
[NF_HDR_BRL.RECEIVER_ID.RowInit]
/*BRLOC - PO - APP - 8.00 - 06/12/00 */
/*Descrio: Inibir o Recevier_id para a entrada direta de documento fiscal */
Hide(RECEIVER_ID)
End-If;
/*** JEISON CALDAS - ATIV.1950 - 25/09/2007 - Automatizao do Rateio de NF Compleme
ntar - Inicio ***/
/*** JEISON CALDAS - ATIV.XXXX - 28/04/2008 - Processo alterado para s rateio qua
ndo processo estiver completo
If %Component = "NF_RECV_PBL" And
%Mode = "A" Then
SQLExec("SELECT B.DESCR254_MIXED FROM SYSADM.PS_RECV_LN_DISTRIB A, SYSADM.PS_
RECV_LN_SHIP B, SYSADM.PS_MMC_ACCOUNT_AVR C WHERE A.BUSINESS_UNIT = :1 AND A.REC
EIVER_ID = :2 AND A.BUSINESS_UNIT = B.BUSINESS_UNIT AND A.RECEIVER_ID = B.RECEIV
ER_ID AND A.RECV_LN_NBR = B.RECV_LN_NBR AND A.RECV_SHIP_SEQ_NBR = B.RECV_SHIP_SE
Q_NBR AND A.ACCOUNT = C.ACCOUNT AND C.STATUS = 'A'", BUSINESS_UNIT, RECEIVER_ID
, &PROCESSO);
If All(&PROCESSO) Then
ScrollFlush(Record.MMC_R_FRETEN);
ScrollSelectNew(1, Record.MMC_R_FRETEN, Record.MMC_ACCO_AVR_VW, "WHERE BUS
INESS_UNIT = :1 AND RECEIVER_ID = :2", BUSINESS_UNIT, RECEIVER_ID);
End-If;
End-If;
***/
ntar - Fim ***/
[NF_HDR_BRL.RECEIVER_ID.SavePostChange]
/*******************************************************************************
*
- mmcb.sds3239
*
*******************************************************************************
*/
/*******************************************************************************
*
* Mauri R. Back - MMCB - 04/04/2012
- mmcb.hd135384
*
* No ratear itens que so veiculos.
*
*******************************************************************************
*/
/************************************************************************
*
*
*************************************************************************/
/************************************************************************
* Wagner Sorio - MMCB - 30/03/2015 mmcb.hd235084
*
* O programa que gera as notas fiscais no est obedecendo
*
* a separao de empresas.
*
************************************************************************/
mmcb.sds4689.lo */
ntar - Inicio ***/
REM PEGA TOTAL DE LINHAS DO RECEBIMENTO FISICO;
SQLExec("SELECT COUNT(*) FROM PS_RECV_LN_SHIP WHERE BUSINESS_UNIT = :1 AND RE
CEIVER_ID = :2", BUSINESS_UNIT, RECEIVER_ID, &LINHAS_RECEB);
For &LN = 1 To &LINHAS_RECEB
REM LIMPA VARIAVEIS;
&ITEM = " ";
&DESCR = " ";
&BU_PO = " ";
&NF_BRL_ID_MAE = " ";
REM BUSCA CONTA CONTABIL, PROCESSO E CD.DO ITEM DO RECEBIMENTO FISICO;
SQLExec("SELECT A.ACCOUNT, B.DESCR254_MIXED, B.INV_ITEM_ID FROM PS_RECV_LN
_DISTRIB A, PS_RECV_LN_SHIP B WHERE A.BUSINESS_UNIT = B.BUSINESS_UNIT AND A.RECE
IVER_ID = B.RECEIVER_ID AND A.RECV_LN_NBR = B.RECV_LN_NBR AND A.BUSINESS_UNIT =
:1 AND A.RECEIVER_ID = :2 AND A.RECV_LN_NBR = :3", BUSINESS_UNIT, RECEIVER_ID,
&LN, &ACCOUNT, &DESCR, &ITEM);
REM VALIDA SE CONTA REFERE-SE A DESPESA DE IMPORTAO;
SQLExec("SELECT 'Y' FROM PS_MMC_ACCOUNT_AVR WHERE STATUS = 'A' AND ACCOUNT
= :1", &ACCOUNT, &NF_RAT);
&IMP_PROCESS = Substring(&DESCR, 1, 3);
&IMP_PROCESS_SUZ = Substring(&DESCR, 1, 2);
If &NF_RAT = "Y" And
&IMP_PROCESS <> "MJE" And
&IMP_PROCESS_SUZ <> "BN" And
&IMP_PROCESS_SUZ <> "BT" Then
SQLExec("SELECT 'Y' FROM PS_MMC_RAT_CONT_IM WHERE BUSINESS_UNIT = :1 AN
D MMC_NF_BRL_ID_SERV = :2 AND RECEIVER_ID = :3 AND RECV_LN_NBR = :4", BUSINESS_U
NIT, NF_BRL_ID, RECEIVER_ID, &LN, &JA_LANCADA);
If &JA_LANCADA <> "Y" Then
REM VERIFICA SE POPULOU VIEW DE RATEIO(POSSUI NF MAE/IMPORTACAO);
/************************** mmcb.sds4689.so ************************
**/
/*
SQLExec("SELECT BUSINESS_UNIT, NF_BRL_ID FROM PS_NF_HD
R_BRL WHERE NF_BRL_DATE > TO_CHAR(SYSDATE - 90, 'DD/MM/YYYY') AND BUSINESS_UNIT
IN (:1, :2, :3) AND DESCR100 = :4", BU_SETID("CPNA1"), BU_SETID("CPID1"), BU_SET
ID("CPRV1"), &DESCR, &BU_PO, &NF_BRL_ID_MAE); */
/************************** mmcb.sds4689.eo ************************
**/
/************************** mmcb.hd235084.so ***********************
***/
/* SQLExec("SELECT A.BUSINESS_UNIT, A.NF_BRL_ID FROM SYSADM.PS_NF_HD
R_BRL A , SYSADM.PS_BUS_UNIT_TBL_PM B WHERE A.NF_BRL_DATE > TO_CHAR(SYSDATE - 90
, 'DD/MM/YYYY') AND A.BUSINESS_UNIT IN ( SELECT BUSINESS_UNIT FROM SYSADM.PS_MMC
_BUS_UNIT WHERE MMC_BUS_UNIT_TIPO IN ('POPROD' , 'POINDI' , 'POREVE') AND STATU
S = 'A' ) AND A.DESCR100 = :1 AND B.BUSINESS_UNIT_GL = A.BUSINESS_UNIT_GL AND B.
BUSINESS_UNIT = :2 ", &DESCR, BUSINESS_UNIT, &BU_PO, &NF_BRL_ID_MAE); */
/************************** mmcb.sds4689.eo ************************
**/
/************************** mmcb.hd235084.sn ***********************
***/
&SQL = "
SELECT A.BUSINESS_UNIT, A.NF_BRL_ID

";
&SQL = &SQL | " FROM SYSADM.PS_NF_HDR_BRL A
";
&SQL = &SQL | " WHERE A.NF_BRL_DATE
> TO_CHAR (SYSDATE - 90, '
DD/MM/YYYY')
";
&SQL = &SQL | "
AND A.BUSINESS_UNIT IN ( SELECT BUSINESS_UNIT
";
&SQL = &SQL | "
FROM SYSADM.PS_MMC_B
US_UNIT
";
&SQL = &SQL | "
WHERE MMC_BUS_UNIT_TI
PO IN ('POPROD', 'POINDI', 'POREVE')
";
&SQL = &SQL | "
AND STATUS = 'A')
";
&SQL = &SQL | "
AND A.DESCR100
= :1
";
&SQL = &SQL | "
AND A.BUSINESS_UNIT IN (
SELECT XA.BUSINES
S_UNIT
";
&SQL = &SQL | "
FROM SYSADM.PS_
BUS_UNIT_TBL_PM XA
";
&SQL = &SQL | "
WHERE XA.LOCATIO
N IN (
";
&SQL = &SQL | "
SELECT XB.LOCATION
";
&SQL = &SQL | "
FROM SYSADM.PS_BUS_UNIT_TBL_PM XB ";
&SQL = &SQL | "
WHERE XB.BUSINESS_UNIT = :2
";
&SQL = &SQL | "
)
";
&SQL = &SQL | "
)
";
SQLExec(&SQL, &DESCR, BUSINESS_UNIT, &BU_PO, &NF_BRL_ID_MAE);
/************************** mmcb.hd235084.en ***********************
***/
/*************** mmcb.hd135384.sn ***************/
REM VERIFICA SE O ITEM FOR VEICULO NAO DEVE INSERIR NA TABELA MMC_RA
T_CONT_IM PARA NAO REALIZAR O RATEIO
SQLExec("SELECT 'Y' FROM PS_NF_LN_BRL A, PS_MMC_ITEM_EOPC B WHERE A.IT
M_SETID = B.SETID AND A.INV_ITEM_ID = B.INV_ITEM_ID AND A.BUSINESS_UNIT = :1 AND
A.NF_BRL_ID = :2 AND MMC_VEICULO = 'Y'", &BU_PO, &NF_BRL_ID_MAE, &ITEM_VEICULO)
;
/*************** mmcb.hd135384.en ***************/
If &ITEM_VEICULO <> "Y" Then /*mmcb.hd135384.ln*/
SQLExec("INSERT INTO PS_MMC_RAT_CONT_IM (BUSINESS_UNIT, MMC_NF_BR

L_ID_SERV, RECEIVER_ID, RECV_LN_NBR, INV_ITEM_ID, DESCR254_MIXED, BUSINESS_UNIT_
PO, NF_BRL_ID, BUSINESS_UNIT_BI, MMC_NF_BRL_ID_BI, FLG_RATEIO_BRL, MMC_DUP_FLG_I
MPRES) VALUES (:1, :2, :3, :4, :5, :6, :7, :8, :9, :10, :11, :12)", BUSINESS_UNI
T, NF_BRL_ID, RECEIVER_ID, &LN, &ITEM, &DESCR, &BU_PO, &NF_BRL_ID_MAE, " ", " ",
"N", "N");
End-If; /*mmcb.hd135384.ln*/
End-If;
End-If;
End-For
End-If;
ntar - Fim ***/
[NF_HDR_BRL.SHIPTO_ID.FieldChange]
/*******************************************************************************
*
*
*******************************************************************************
*/
/************************************************************************
* Itamar Junior - MMCB - mmcb.hd75050 - 28/09/2009
* Adicionando novo local de destino fixo no programa.
************************************************************************/
/*BRLOC - PO - APP - 8.00 - 16/01/01 - BEGIN */
/* Busca Estado Destino */
Declare Function get_ship_to_state PeopleCode FUNCLIB_PBL.SHIPTO_ID FieldFormula
;
Declare Function get_ef_loc_brl PeopleCode FUNCLIB_PBL.SHIPTO_ID FieldFormula;
b.sds3239.ln */
/*******************************************************************************
*
- mmcb.sds3239
*
*******************************************************************************
*/
&SETID_DEF = BUSCA_SETID(); /* mmcb.sds3239.ln */
/* Fabiano Cunha - 18/10/2005 - FC800958 - Adequao da Verso 7 para 8 */
/* If %PanelGroup = PanelGroup.NF_INFO_PBL Then */
If %PanelGroup = PanelGroup.NF_INFO_PBL Or
%PanelGroup = "MMC_LANC_GAR" Then
&SETID = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "SHIPTO_TBL", "");
&STATE_BRL = get_ship_to_state(&SETID, SHIPTO_ID);
If None(&STATE_BRL) Then
SetDefault(SHIP_BRL_TO_STATE);
Else
SHIP_BRL_TO_STATE = &STATE_BRL;
End-If;
End-If;
/* Busca estabelecimento fiscal */
&EF_LOC_BRL = get_ef_loc_brl(&SETID, SHIPTO_ID);
EF_LOC_BRL = &EF_LOC_BRL;
/* Inibe boto de recalculo quando o SHIPTO alterado, pois o sistema deve pegar no
vamente os dados do setup, para fazer os clculos dos impostos */
/*Gray(RECV_HD_WRK_PBL.NF_RECALC_PBL);*/
/*BRLOC - PO - APP - 8.00 - 16/01/01 - END */
/*
/*
/*
/*
/*
If
BRLOC-IN-NAS - RELEASE 8.0 - BEGIN - 24/04/01 */

Ensures that distribution business unit has been filled when */
InterUnit Flag is 'Y' or at last one stockable inventory item exists. */
Fabiano Cunha - 18/10/2005 - FC800958 - Adequao da Verso 7 para 8 */
If %PanelGroup = PanelGroup.NF_INFO_PBL Then */
%PanelGroup = PanelGroup.NF_INFO_PBL Or
&SETID = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "NF_TYPE_BRL", "");
SQLExec("SELECT BUSINESS_UNIT_IN FROM PS_SHIPTO_TBL WHERE SETID = :1 AND SHIP
TO_ID = :2 AND EFFDT = (SELECT MAX(EFFDT) FROM PS_SHIPTO_TBL A WHERE SETID = :1
AND SHIPTO_ID = :2 AND EFFDT <= %DATEIN(:3))", &SETID, SHIPTO_ID, NF_BRL_DATE, &
BU_IN_REL_SHIPTO);
BUSINESS_UNIT_IN = &BU_IN_REL_SHIPTO;
End-If;
/* BRLOC-IN-NAS - RELEASE 8.0 - END - 24/04/01 */
All(NF_HDR_INFO_WRK.TOF_PBL) And
All(SHIPTO_ID) Then
/********************** mmcb.sds3239.so **********************/
/*
SQLExec("SELECT STATE, COUNTRY FROM PS_VENDOR_ADDR WHERE SETID = 'MMCSA' AND
VENDOR_ID = :1 AND ADDRESS_SEQ_NUM = :2 AND EFF_STATUS = 'A'", VENDOR_ID, ADDRES
S_SEQ_NUM, &STATE, &COUNTRY);
*/
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.sds3239.sn **********************/
SQLExec("SELECT STATE, COUNTRY FROM PS_VENDOR_ADDR WHERE SETID = :1 AND VENDO
R_ID = :2 AND ADDRESS_SEQ_NUM = :3 AND EFF_STATUS = 'A'", &SETID_DEF, VENDOR_ID,
ADDRESS_SEQ_NUM, &STATE, &COUNTRY);
/********************** mmcb.sds3239.en **********************/
/********************** mmcb.sds3239.sn **********************/
SQLExec("SELECT b.state FROM sysadm.ps_shipto_tbl a, sysadm.ps_location_tbl
b WHERE a.setid = :1
AND a.shipto_id = :2 AND a.effdt = (SELECT MAX (a_e.ef
fdt) FROM sysadm.ps_shipto_tbl a_e WHERE a_e.setid = a.setid AND a_e.shipto_id =
a.shipto_id AND a_e.effdt <= TO_DATE (SYSDATE) AND a_e.eff_status = 'A') AND a.
setid = b.setid AND b.LOCATION = a.crtl_location_bbl AND b.effdt = (SELECT MAX (
b_e.effdt) FROM sysadm.ps_location_tbl b_e WHERE b_e.setid = b.setid AND b_e.LOC
ATION = b.LOCATION AND b_e.effdt <= TO_DATE (SYSDATE) AND b_e.eff_status = 'A')
", &SETID_DEF, SHIPTO_ID, &ENTREGA);

/********************** mmcb.sds3239.en **********************/
/********************** mmcb.sds3239.so **********************/
If (SHIPTO_ID = "LCPTS" Or
SHIPTO_ID = "LDEFS" Or
SHIPTO_ID = "LINDS" Or
SHIPTO_ID = "LOVIN" Or
SHIPTO_ID = "LVEIN" Or
SHIPTO_ID = "LVPEC" Or
SHIPTO_ID = "LVVEI" Or
SHIPTO_ID = "LMKTS" Or
SHIPTO_ID = "LREVS" Or
SHIPTO_ID = "LCPTS" Or
SHIPTO_ID = "LMOGI" Or
SHIPTO_ID = "SO PAULO") Then
&ENTREGA = "SP";
Else
&ENTREGA = "GO";
End-If;
/********************** mmcb.sds3239.eo **********************/
L FROM PS_TOF_TYPE_PBL WHERE TOF_PBL = :1 AND EFF_STATUS = 'A'", NF_HDR_INFO_WRK
.TOF_PBL, &CFOP_INTERNO, &CFOP_EXTERNO, &CFOP_EXTERIOR, &FINALIDADE);
Else
If All(&STATE) And
All(&ENTREGA) Then
Else
End-If;
End-If;
End-If;
REM TRATA VALORIZAO DOS CAMPOS ;
If NF_HDR_INFO_WRK.TOF_PBL = "PSERV" Or
NF_HDR_INFO_WRK.TOF_PBL = "PSERC" Or
NF_HDR_INFO_WRK.TOF_PBL = "EGAR3" Or
NF_HDR_INFO_WRK.TOF_PBL = "EGAR4" Or
NF_HDR_INFO_WRK.TOF_PBL = "EGAR5" Then
UpdateValue(NF_LN_BRL.ICMSTAX_STS_BBL, &LN_ROW,
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_BSS, &LN_ROW,
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_PCT, &LN_ROW,
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_RED, &LN_ROW,
"");
0);
0);
0);
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_AMT, &LN_ROW, 0);

UpdateValue(NF_LN_BRL.ICMSSUB_BRL_AMT, &LN_ROW, 0);
UpdateValue(NF_LN_BRL.ICMS_COMPL_AMT_PBL, &LN_ROW, 0);
UpdateValue(NF_LN_BRL.COEF_BASE_ICMS_PBL, &LN_ROW, 0);
UpdateValue(NF_LN_WRK_PBL.ICMS_COMPL_PCT_PBL, &LN_ROW, 0);
Gray(NF_LN_BRL.ICMSTAX_STS_BBL, &LN_ROW);
Gray(NF_LN_BRL.ICMSTAX_BRL_BSS, &LN_ROW);
Gray(NF_LN_BRL.ICMSTAX_BRL_PCT, &LN_ROW);
Gray(NF_LN_BRL.ICMSTAX_BRL_RED, &LN_ROW);
Gray(NF_LN_BRL.ICMSTAX_BRL_AMT, &LN_ROW);
Gray(NF_LN_BRL.ICMSSUB_BRL_AMT, &LN_ROW);
Else
UnGray(NF_LN_BRL.ICMSTAX_STS_BBL, &LN_ROW);
UnGray(NF_LN_BRL.ICMSTAX_BRL_BSS, &LN_ROW);
UnGray(NF_LN_BRL.ICMSTAX_BRL_PCT, &LN_ROW);
UnGray(NF_LN_BRL.ICMSTAX_BRL_RED, &LN_ROW);
UnGray(NF_LN_BRL.ICMSTAX_BRL_AMT, &LN_ROW);
UnGray(NF_LN_BRL.ICMSSUB_BRL_AMT, &LN_ROW);
End-If;
End-For;
End-If;
/*** JEISON CALDAS - 19/12/06 - ATIV.1899 - Como customizao de terceiros no preench
ia o campo de estado de origem o campo de valor de ICMS no estava sendo calculado
***/
If %PanelGroup = PanelGroup.NF_INFO_PBL And
/*BUSINESS_UNIT = "POTER" Then */ /* mmcb.sds3239.lo */
BUSINESS_UNIT = "POTER" Then /* mmcb.sds3239.ln */
End-If;
[NF_HDR_BRL.SHIPTO_ID.RowInit]
/*** JEISON CALDAS - 12/11/05 - CARREGA LOCAL DE ENTREGA BASEADO NA PARAMETRIZAO P
OR USUARIO DA TABELA MMC_PARM_ENTREG - INICIO ***/
Declare Function get_ship_to_state PeopleCode FUNCLIB_PBL.SHIPTO_ID FieldFormula
;
Declare Function get_ef_loc_brl PeopleCode FUNCLIB_PBL.SHIPTO_ID FieldFormula;
SQLExec("SELECT SHIPTO_ID FROM PS_MMC_PARM_ENTREG WHERE BUSINESS_UNIT = :1 AN
D OPRID = :2 AND STATUS = 'A'", BUSINESS_UNIT, &OPRID, &SHIPTO);
If All(&SHIPTO) Then
SHIPTO_ID = &SHIPTO;
&SETID = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "", "");
&STATE_BRL = get_ship_to_state(&SETID, SHIPTO_ID);
If None(&STATE_BRL) Then
SetDefault(SHIP_BRL_TO_STATE);
Else
SHIP_BRL_TO_STATE = &STATE_BRL;
End-If;
/* Busca estabelecimento fiscal */
&EF_LOC_BRL = get_ef_loc_brl(&SETID, SHIPTO_ID);
EF_LOC_BRL = &EF_LOC_BRL;
/* BRLOC-IN-NAS - RELEASE 8.0 - BEGIN - 24/04/01 */
/* Ensures that distribution business unit has been filled when */
/* InterUnit Flag is 'Y' or at last one stockable inventory item exists. *
/
&SETID = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "NF_TYPE_BRL", "");
SQLExec("SELECT BUSINESS_UNIT_IN FROM PS_SHIPTO_TBL WHERE SETID = :1 AND S
HIPTO_ID = :2 AND EFFDT = (SELECT MAX(EFFDT) FROM PS_SHIPTO_TBL A WHERE SETID =
:1 AND SHIPTO_ID = :2 AND EFFDT <= %DATEIN(:3))", &SETID, SHIPTO_ID, NF_BRL_DATE
, &BU_IN_REL_SHIPTO);
BUSINESS_UNIT_IN = &BU_IN_REL_SHIPTO;
End-If;
End-If;
[NF_HDR_BRL.TRANSPORT_CD.FieldChange]
Function gray_trsp_data();
Gray(NAME1);
Gray(ZIP);
Gray(ADDRESS1);
Gray(ADDRESS2);
Gray(CITY);
Gray(STATE);
Gray(CGC_BRL);
Gray(IE_BRL);
End-Function;
Function setdef_trsp_data();
SetDefault(NAME1);
SetDefault(ZIP);
SetDefault(CITY);
SetDefault(STATE);
SetDefault(IE_BRL);
End-Function;
Function ungray_trsp_data();
UnGray(NAME1);
UnGray(ZIP);
UnGray(ADDRESS1);
UnGray(ADDRESS2);
UnGray(CITY);
UnGray(STATE);
UnGray(CGC_BRL);
UnGray(IE_BRL);
End-Function;
If All(TRANSPORT_CD) Then
setdef_trsp_data();
gray_trsp_data();
Else
ungray_trsp_data();
End-If;
/* BRLOC - PO - APP - 8.00 - 10/01/01 - END */
[NF_HDR_BRL.TRANSPORT_CD.RowInit]
Declare Function gray_trsp_data PeopleCode TRANSPORT_CD FieldChange;
/* BRLOC - PO - APP - 8.00 10/01/01 - BEGIN */
/* Com o cdigo da transportadora, alguns campos no so necessrios */
If All(TRANSPORT_CD) Then
gray_trsp_data();
End-If;
End-If;
/* BRLOC - PO - APP - 8.00 10/01/01 - END */
[NF_HDR_BRL.TRANSPORT_CD.SavePreChange]
/*******************************************************************************
***
*
*
*******************************************************************************
***/
/*******************************************************************************
***********
* Mauri Rodrigo Back - MMC - 22/12/2011 - mmcb.sds4041
*
* Desabilita o cdigo pois nao esta informando a mensagem (ja comentada) e estava
dando *
* problema no redespacho
*
*******************************************************************************
**********/
/* MMCB.SDS4041.SO */
/*
If ((%Component = "NF_INFO_PBL" Or
(%Menu = "MANAGE_NF")) Then
If None(TRANSPORT_CD) Then
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_GKO_NFTP_OT O, SYSADM.PS_MMC_INSTAL
L M WHERE O.SETID = M.SETID AND O.EFFDT = ( SELECT MAX(OI.EFFDT) FROM SYSADM.PS_
MMC_GKO_NFTP_OT OI WHERE O.SETID = OI.SETID AND O.NF_BRL_TYPE = OI.NF_BRL_TYPE)
AND O.NF_BRL_TYPE = :1 AND O.MMC_GKO_NF_TYPE_OT = 'Y'", NF_BRL_TYPE, &EXIGE_TRAN
SPORTADORA);
If (All(&EXIGE_TRANSPORTADORA) And
&EXIGE_TRANSPORTADORA = "Y") Then
rem WinMessage("A Transportadora deve ser informada!");
End-If;
End-If;
End-If;
*/
/* MMCB.SDS4041.EO */
[NF_HDR_BRL.VENDOR_ID.FieldChange]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - Preenche automaticamente o codigo do forneced
or
*
* Pagina de Industrializao.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
*
*******************************************************************************
*****************
* Bleno L Sampaio (Enc. Filipe) - MMCB - 28/11/2011 - mmcb.hd129436
*
* Ajustar select para buscar apenas endereos ativos.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Filipe Rehder - MMCB - 10/09/2013 - mmcb.hd182991
*
* Corrigir campo de local default do fornecedor
*
*******************************************************************************
*****************/
Declare Function GetPayTrm PeopleCode VENDOR_ID FieldFormula;
/*************************************** mmcb.sds3445.sn ***********************
****************/
Function Carrega_Redespacho_Fornecedor()
/* If %Component = "NF_INFO_PBL" Or
If %Mode = "A" Then
&ROWSET_REDESP = GetRowset(Scroll.MMC_GKO_REDESP);
&ROWSET_REDESP.Flush();
For &N1 = 1 To &ROWSET_REDESP.ActiveRowCount
&ROWSET_REDESP.DeleteRow(&N1);
End-For;
If None(ADDRESS_SEQ_NUM) Then
End-If;
&SQL = CreateSQL("SELECT P.MMC_GKO_NOORDEM, P.CARRIER_ID, P.TRNSPORT_RE
SP_BBL, P.FRGHT_PMT_RESP_BBL, P.TRANSPORT_MODE FROM SYSADM.PS_MMC_GKO_PARRD_E P
WHERE P.SETID = (SELECT SETID FROM SYSADM.PS_MMC_INSTALL) AND P.EFFDT = (SELECT
MAX(PI.EFFDT) FROM SYSADM.PS_MMC_GKO_PARRD_E PI WHERE P.SETID = PI.SETID AND P.V
ENDOR_ID = PI.VENDOR_ID AND P.ADDRESS_SEQ_NUM = PI.ADDRESS_SEQ_NUM AND P.MMC_GK
O_NOORDEM = PI.MMC_GKO_NOORDEM AND PI.EFFDT <= TO_DATE(SYSDATE)) AND P.EFF_STATU
S = 'A' AND P.VENDOR_ID = :1 AND P.ADDRESS_SEQ_NUM = :2 ORDER BY MMC_GKO_NOORDEM
", VENDOR_ID, ADDRESS_SEQ_NUM);
While &SQL.Fetch(&P_MMC_GKO_NOORDEM, &P_CARRIER_ID, &P_TRNSPORT_RESP_BB
L, &P_FRGHT_PMT_RESP_BBL, &P_TRANSPORT_MODE)
&P_MODO_FRETE = " ";
If (&P_TRANSPORT_MODE = "RODOV") Then
&P_MODO_FRETE = "ROAD";
End-If;
If (&P_TRANSPORT_MODE = "AEREO") Then
&P_MODO_FRETE = "AIR";
End-If;
If (&P_TRANSPORT_MODE = "SEA") Then
&P_MODO_FRETE = "SEA";
End-If;
&ROWSET_REDESP.InsertRow(&P_MMC_GKO_NOORDEM);
&ROWSET_REDESP.GetRow(&P_MMC_GKO_NOORDEM).MMC_GKO_REDESP.BUSINESS_UN
IT.VALUE = BUSINESS_UNIT;
&ROWSET_REDESP.GetRow(&P_MMC_GKO_NOORDEM).MMC_GKO_REDESP.NF_BRL_ID.V
ALUE = NF_BRL_ID;
&ROWSET_REDESP.GetRow(&P_MMC_GKO_NOORDEM).MMC_GKO_REDESP.MMC_GKO_NOO
RDEM.VALUE = &P_MMC_GKO_NOORDEM;
&ROWSET_REDESP.GetRow(&P_MMC_GKO_NOORDEM).MMC_GKO_REDESP.MMC_GKO_CDT
RPREDES.VALUE = &P_CARRIER_ID;
&ROWSET_REDESP.GetRow(&P_MMC_GKO_NOORDEM).MMC_GKO_REDESP.MMC_GKO_DSL
OTE.VALUE = " ";
&ROWSET_REDESP.GetRow(&P_MMC_GKO_NOORDEM).MMC_GKO_REDESP.MMC_GKO_MEI
OTRP.VALUE = &P_MODO_FRETE;
End-While;
End-If;
End-If;
*/
End-Function;
/*************************************** mmcb.sds3445.en ***********************
****************/
/* Inibe boto de recalculo quando o fornecedor alterado, pois o sistema deve pega
r novamente os dados do setup, para fazer os clculos dos impostos */
/* Obtem CGC e endereo */
/* FABIANO CUNHA - FC800958 - 18/10/2005 - Adequacao da versao 7 pra 8 */
/*** JEISON CALDAS - 25/03/06 - SELECT ABAIXO ALTERADO POR PEGAR SEQUENCIA
DO ENDEREO DO CABEALHO
SQLExec("Select A.CGC_BRL, B.ADDR_SEQ_NUM_ORDR, A.PAY_TRMS_DIV_PBL, B.COLL
ECT_COD_BRL, B.DEFAULT_LOC FROM PS_VNDR_ADDR_SCROL A, PS_VENDOR B where A.SETID
= B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = :1 and A.VENDOR_ID = :2",
VENDOR.SETID, VENDOR_ID, NF_HDR_INFO_WRK.CGC_BRL, ADDRESS_SEQ_NUM, &PAY_TRMS, CO
LLECT_COD_BRL, VNDR_LOC); ***/
/*************************************** mmcb.hd129436.so ****************
***********************/
/* Valmir Tavares - MMCB - Select alterado para trazer o CPF do fornecedor
- Inicio */
/*SQLExec("Select A.CGC_BRL, A.CPF_BRL, A.ADDRESS_SEQ_NUM, A.PAY_TRMS_DIV_
PBL, B.COLLECT_COD_BRL, A.DESCR FROM PS_VNDR_ADDR_SCROL A, PS_VENDOR B where A.S
ETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = :1 and A.VENDOR_ID =
:2", VENDOR.SETID, VENDOR_ID, NF_HDR_INFO_WRK.CGC_BRL, NF_HDR_INFO_WRK.CPF_BRL,
ADDRESS_SEQ_NUM, &PAY_TRMS, COLLECT_COD_BRL, VNDR_LOC); */
/* Valmir Tavares - MMCB - Select alterado para trazer o CPF do fornecedor

- Fim */
/*************************************** mmcb.hd129436.eo ****************
***********************/
/*************************************** mmcb.hd129436.sn ****************
***********************/
/*************************************** mmcb.hd182991.so ****************
***********************
SQLExec("SELECT A.CGC_BRL, A.CPF_BRL, A.ADDRESS_SEQ_NUM, A.PAY_TRMS_DIV_PB
L, B.COLLECT_COD_BRL, A.DESCR FROM SYSADM.PS_VNDR_ADDR_SCROL A, SYSADM.PS_VENDOR
B, SYSADM.PS_VENDOR_ADDR C WHERE A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR
_ID AND A.SETID = C.SETID AND A.VENDOR_ID = C.VENDOR_ID AND A.ADDRESS_SEQ_
NUM = C.ADDRESS_SEQ_NUM AND C.EFF_STATUS = 'A' AND A.SETID = :1 AND A.VEND
OR_ID = :2", VENDOR.SETID, VENDOR_ID, NF_HDR_INFO_WRK.CGC_BRL, NF_HDR_INFO_WRK.C
PF_BRL, ADDRESS_SEQ_NUM, &PAY_TRMS, COLLECT_COD_BRL, VNDR_LOC);
*************************************** mmcb.hd182991.eo ****************
***********************/
/*************************************** mmcb.hd129436.en ****************
***********************/
/*************************************** mmcb.hd182991.sn ****************
***********************/
SQLExec("SELECT A.CGC_BRL, A.CPF_BRL, A.ADDRESS_SEQ_NUM, A.PAY_TRMS_DIV_PB
L, B.COLLECT_COD_BRL, B.DEFAULT_LOC FROM SYSADM.PS_VNDR_ADDR_SCROL A, SYSADM.PS_
VENDOR B, SYSADM.PS_VENDOR_ADDR C WHERE A.SETID = B.SETID AND A.VENDOR_ID = B.
VENDOR_ID AND A.SETID = C.SETID AND A.VENDOR_ID = C.VENDOR_ID AND A.ADDRES
S_SEQ_NUM = C.ADDRESS_SEQ_NUM AND C.EFF_STATUS = 'A' AND A.SETID = :1 AND
A.VENDOR_ID = :2", VENDOR.SETID, VENDOR_ID, NF_HDR_INFO_WRK.CGC_BRL, NF_HDR_INFO
_WRK.CPF_BRL, ADDRESS_SEQ_NUM, &PAY_TRMS, COLLECT_COD_BRL, VNDR_LOC);
/*************************************** mmcb.hd182991.en ****************
***********************/
End-If;
End-If;
/* BRLOC PO-APP-8.00- 11/12/00 - END*/
/* BRLOC-PO-APP-8.00-24/08/01-BEGIN */
/* Busca cdigo de withholding do fornecedor */
SQLExec("SELECT A.WTHD_CD FROM PS_VENDOR_LOC A WHERE A.SETID = :1 AND A.VENDOR_I
D = :2 AND A.VNDR_LOC = :3 AND A.EFFDT = (SELECT MAX(EFFDT) FROM PS_VENDOR_LOC B
WHERE A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.VNDR_LOC = B.VNDR_L
OC AND B.EFFDT <= %DATEIN(:4))", VENDOR.SETID, VENDOR_ID, VNDR_LOC, NF_BRL_DATE,
&WTHD_CD);
For &I = 1 To ActiveRowCount(Record.NF_LN_BRL)
UpdateValue(NF_LN_BRL.WTHD_CD, &I, &WTHD_CD);
End-For;
/*
/*
/*
If
BRLOC-PO-APP-8.00-24/08/01-END */
BRLOC-PO-APP-8.00-16/01/01-BEGIN*/
Habilita ou no o link para entrada de parcelas de pagamento */
&PAY_TRMS = "Y" Then
UnGray(RECV_HD_WRK_PBL.XFR_TERMS_PB);
Else
Gray(RECV_HD_WRK_PBL.XFR_TERMS_PB);
End-If;
/* Altera campo work de acordo com o fornecedor */
RECV_HD_WRK_PBL.CRT_ESTABID_PBL = VENDOR.ESTABID;
FRGHT_PRORATE_PBL = VENDOR.FRGHT_PRORATE_PBL;
OTHER_PRORATE_PBL = VENDOR.OTHER_PRORATE_PBL;
/* Busca o Estado Origem */
/* Fabiano Cunha - FC800958

- 18/10/2005 - Adequaco da versao 7 para 8 */
End-If;
/*BRLOC - PO - APP - 8.00 - 16/01/01 - END */
/*Busca o Payment Terms e a data base de pagto. do fornecedor */
GetPayTrm();
/*BRLOC - PO - APP - 8.00 - 16/01/01 - END */
If %Component = "MMC_LANC_GAR" Then
/* O TERMO DE PAGAMENTO DEVE SER EM BRANCO */
PYMNT_TERMS_CD = " ";
RCVHD_WK_PBL_NO.CGC_BRL = NF_HDR_INFO_WRK.CGC_BRL;
RECV_NOPO_WK.VENDOR_NAME_SHORT = VENDOR.VENDOR_NAME_SHORT;
SQLExec("SELECT CUST_ID FROM PS_MMC_CCG_CLI_CC WHERE VENDOR_ID = :1", VENDOR_
ID, &CUST_ID);
MMC_LANC_GAR_WR.CUST_ID = &CUST_ID;
End-If;
/********************** mmcb.at2323.sn **********************/
If None(MMC_TE_OP_OC_WK.VENDOR_ID) Then
MMC_TE_OP_OC_WK.VENDOR_ID = VENDOR_ID;
MMC_TE_OP_OC_WK.ADDRESS_SEQ_NUM = ADDRESS_SEQ_NUM;
MMC_TE_OP_OC_WK.CGC_BRL = NF_HDR_INFO_WRK.CGC_BRL;
MMC_TE_OP_OC_WK.VNDR_LOC = VNDR_LOC;
End-If;
End-If;
End-If;
/********************** mmcb.at2323.en **********************/
Carrega_Redespacho_Fornecedor();
[NF_HDR_BRL.VENDOR_ID.FieldFormula]
Declare Function get_vendor_pymnt PeopleCode FUNCLIB_PBL.VENDOR_ID FieldFormula;
Declare Function get_vendor_dt_base PeopleCode FUNCLIB_PBL.VENDOR_ID FieldFormul
a;
Function GetPayTrm();
&PYMNT_TERMS_CD_LOC = get_vendor_pymnt(VENDOR.SETID, VENDOR_ID, VNDR_LOC);
&PYMNT_DT_BASE = get_vendor_dt_base(VENDOR.SETID, VENDOR_ID, VNDR_LOC);

/*** JEISON CALDAS - CAMPO NO DEVE SER INFORMADO PARA DOC FISCAL DIRETO, ALTER
AO FEITA BASEADA NO HELP DESK DE NUMERO 16773 ***/
If %Component <> "NF_INFO_PBL" Then
If All(&PYMNT_TERMS_CD_LOC) Then
PYMNT_TERMS_CD = &PYMNT_TERMS_CD_LOC;
If &PYMNT_DT_BASE <> "D" Then
PAY_TRM_BSE_DT_OPT = &PYMNT_DT_BASE;
Else
PAY_TRM_BSE_DT_OPT = "";
End-If;
Else
&SETID_OPT = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "BUS_UNIT_OPT_PM"
, "");
SQLExec("SELECT B.PAY_TRM_BSE_DT_OPT, B.PYMNT_TERMS_CD FROM PS_BUS_UNIT
_TBL_PM A, PS_BUS_UNIT_OPT_PM B WHERE A.BUSINESS_UNIT = :1 AND B.PRCS_OPTION_ID
= A.PRCS_OPTION_ID AND B.SETID = :2 AND B.EFFDT = (SELECT MAX(C.EFFDT) FROM PS_B
US_UNIT_OPT_PM C WHERE C.SETID = B.SETID AND C.PRCS_OPTION_ID = B.PRCS_OPTION_ID
AND C.EFFDT <= %DateIn(:3))", BUSINESS_UNIT, &SETID_OPT, NF_BRL_DATE, PAY_TRM_B
SE_DT_OPT, PYMNT_TERMS_CD);
End-If;
End-If;
Else
End-If;
/*BRLOC-PO-NAS-8.00-06/09/01-END */
End-Function;
[NF_HDR_BRL.VENDOR_ID.RowInit]
/*******************************************************************************
*
*
*
*******************************************************************************
*/
/************************************************************************
*
*
*************************************************************************/
mmcb.sds4689.lo */
Global string &BU_CONTROL_REMESSA_TERC;
Global boolean &MMC_ENTRAPOR_ITEM, &MMC_ENTRAPOR_PACABADO, &MMC_ENTRAPOR_PACABAD
ONF, &MMC_ENTRAPOR_TRIANGULACAO;
/* Obtem CGC quando entra com no modo de alterao*/
/* FABIANO CUNHA - 22/10/2005 - Adequao da Verso 7 pra 8 */
%PanelGroup = Component.MMC_LANC_GAR Or
%Component = Component.MMC_LANC_GAR_ND Then
None(ADDRESS_SEQ_NUM) Then
SQLExec("Select A.CGC_BRL FROM PS_VNDR_ADDR_SCROL A, PS_VENDOR B where
A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = :1 and A.VENDOR_ID
= :2 AND A.ADDRESS_SEQ_NUM = B.ADDR_SEQ_NUM_ORDR ", VENDOR.SETID, VENDOR_ID, NF
_HDR_INFO_WRK.CGC_BRL);
Else
SQLExec("Select A.CGC_BRL FROM PS_VNDR_ADDR_SCROL A, PS_VENDOR B where
A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.SETID = :1 and A.VENDOR_ID
= :2 AND A.ADDRESS_SEQ_NUM = :3 ", VENDOR.SETID, VENDOR_ID, ADDRESS_SEQ_NUM, NF
_HDR_INFO_WRK.CGC_BRL);
End-If;
End-If;
End-If;
/* BRLOC PO-APP-8.00- 30/08/01 - END*/
/* WSG */
%Component = Component.MMC_TERC Or
%Component = Component.MMC_TERC_OC Then
MMC_TERC_OC_WRK.VENDOR_ID = VENDOR_ID;
REM DUILIO CROCE - GRUPO QUANAM - 11/04/2006 - CONTROLE DE BOTOES NA PAGE.NF_
INFO_LN_PBL;
MMC_TERC_OC_WRK.MMC_BTN_OC.Visible = False;
MMC_NF_LN_WRK.BUTTON1.Visible = False;
MMC_NF_LN_WRK.MMC_BTN_VINC_REMES.Visible = False;
REM FABIO GetLevel0()(1).MMC_NF_LN_WRK.BUTTON.Visible = False;
If &MMC_ENTRAPOR_ITEM = True Then
REM NO TEM LINK;
REM &MMC_ENTRAPOR_ITEM = False;
End-If;
If &MMC_ENTRAPOR_PACABADO = True Then
REM FABIO GetLevel0()(1).MMC_NF_LN_WRK.BUTTON.Visible = True;
REM &MMC_ENTRAPOR_PACABADO = False;
End-If;
If &MMC_ENTRAPOR_PACABADONF = True Then
MMC_NF_LN_WRK.BUTTON1.Visible = True;
REM FABIO GetLevel0()(1).MMC_NF_LN_WRK.BUTTON.Visible = True;
REM &MMC_ENTRAPOR_PACABADONF = False;
End-If;
If &MMC_ENTRAPOR_TRIANGULACAO = True Then
MMC_TERC_OC_WRK.MMC_BTN_OC.Visible = True;
MMC_NF_LN_WRK.MMC_BTN_VINC_REMES.Visible = True;
REM &MMC_ENTRAPOR_TRIANGULACAO = False;
End-If;
End-If;
REM DUILIO CROCE - GRUPO QUANAM - 11/04/2006 -
DE BOTOES NA PAGE.NF_INFO_LN_PBL;
Else
If %Component = Component.NF_RECV_PBL Then /* FABIO - 06/06/2006 */
MMC_TERC_OC_WRK.MMC_BTN_OC.Visible = False;
MMC_NF_LN_WRK.BUTTON1.Visible = False;
MMC_NF_LN_WRK.MMC_BTN_VINC_REMES.Visible = False;
End-If;
End-If;
/* WSG */
/* Disponibiliza campo Data Base quando tipo de data - User Defined*/
Else
End-If;
/* BRLOC PO-APP-8.00- 30/08/01 - END*/
/*** JEISON CALDAS - 20/10/06 - ATIV. 1784 - CONTROLE DE ADIANTAMENTO PARA FORNE
CEDORES - INICIO ***/
SQLExec("SELECT 'X' FROM PS_MMC_FORNEC_ADTO WHERE VENDOR_ID = :1 AND STATUS =
'A'", VENDOR_ID, &RETURN);
/********************** mmcb.sds4689.so **********************/
/* If &RETURN = "X" And
(BUSINESS_UNIT = "POPRO" Or
BUSINESS_UNIT = "POIND") Then*/
/********************** mmcb.sds4689.eo **********************/
/********************** mmcb.sds4689.sn **********************/
If &RETURN = "X" And
(BUSINESS_UNIT = MMC_BUSINESS_UNIT("POPROD", BUSINESS_UNIT) Or
BUSINESS_UNIT = MMC_BUSINESS_UNIT("POINDI", BUSINESS_UNIT)) Then
/********************** mmcb.sds4689.en **********************/
UnHide(MMC_CONTR_ADTO.MMC_VALOR_ADTO);
UnHide(MMC_CONTR_ADTO.MMC_VALOR);
Else
Hide(MMC_CONTR_ADTO.MMC_VALOR_ADTO);
Hide(MMC_CONTR_ADTO.MMC_VALOR);
End-If;
Else
Hide(MMC_CONTR_ADTO.MMC_VALOR_ADTO);
Hide(MMC_CONTR_ADTO.MMC_VALOR);
End-If;
/*** JEISON CALDAS - 20/10/06 - ATIV. 1784 - CONTROLE DE ADIANTAMENTO PARA FORNE
CEDORES - FIM ***/
[NF_HDR_BRL.VNDR_LOC.FieldChange]
Declare Function GetPayTrm PeopleCode VENDOR_ID FieldFormula;
/* BRLOC-AP - FRG - 21-SET-98 - Obriga o campo "vendor Location"a receber pelo m
enos o valor default para o fornecedor*/
If None(VNDR_LOC) Then
VNDR_LOC = VENDOR.DEFAULT_LOC;
End-If;
GetPayTrm();
/*BRLOC - PO - APP - 8.00 - 16/01/01 - END */
[NF_HDR_BRL.VNDR_LOC.SaveEdit]
/*******************************************************************************
*****************
* Wagner Sorio - MMC - 29/02/2008- mmcb.hd49956 - Sistema Controle Terceiros
*
* No deixar salvar campo VNDR_LOC invalido.
*
*****************************************************************************
*******************/
/*******************************************************************************
*******************
Fabiano Cunha - MMC - SDS 3239 - mmcb3239 - Adequao para Multi-empresa
********************************************************************************
*******************/
/********************** mmcb.hd49956.sn **********************/
MMC_TE_NFLN_WRK.MMC_TERCEIRO_FLG = "Y" And
&SETID = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "VENDOR", ""); /*MMCB.SDS32
39-L.N */
/**************** MMCB.SDS3239-S.O *****************/
REM SQLExec(" SELECT 'Y' FROM SYSADM.PS_VENDOR_LOC A WHERE A.SETID = 'MMCSA'
AND A.VENDOR_ID =:1 AND A.VNDR_LOC =:2 AND A.EFFDT = (SELECT MAX(A_ED.EFFDT) FRO
M SYSADM.PS_VENDOR_LOC A_ED WHERE A.SETID = A_ED.SETID AND A.VENDOR_ID = A_ED.VE
NDOR_ID AND A.VNDR_LOC = A_ED.VNDR_LOC) AND A.EFF_STATUS = 'A' ", VENDOR_ID, VND
R_LOC, &LOCAL_EXISTE);
/**************** MMCB.SDS3239-E.O *****************/
/**************** MMCB.SDS3239-S.N *****************/
SQLExec(" SELECT 'Y' FROM SYSADM.PS_VENDOR_LOC A WHERE A.SETID = :1 AND A.VEN
DOR_ID =:2 AND A.VNDR_LOC =:3 AND A.EFFDT = (SELECT MAX(A_ED.EFFDT) FROM SYSADM.
PS_VENDOR_LOC A_ED WHERE A.SETID = A_ED.SETID AND A.VENDOR_ID = A_ED.VENDOR_ID A
ND A.VNDR_LOC = A_ED.VNDR_LOC) AND A.EFF_STATUS = 'A' ", &SETID, VENDOR_ID, VNDR
_LOC, &LOCAL_EXISTE);
/**************** MMCB.SDS3239-E.N *****************/
If &LOCAL_EXISTE <> "Y" Then
Error (" Erro: Local " | VNDR_LOC | " no e valido para o fornecedor: " | VE
NDOR_ID);
End-If;
End-If;
/********************** mmcb.hd49956.sn **********************/
[NF_HDR_INFO_WRK.CGC_BRL.FieldChange]
/*******************************************************************************
*****
* Rafael Cruz - MMC - 26/09/2008 - mmcb.hd56498
*
* Utilizar mesma customizacao para pegar dados de estado e origem.
*
********************************************************************************
*****/
/*******************************************************************************
*
*
*******************************************************************************
*/
b.sds3239.ln */
/* Busca informaes do fornecedor quando o CNPJ alterado */
/* BRLOC - PO - FFR - RELEASE 8.0SP2 - BEGIN - 01/08/2001 */
/* Descrio : Incidente NSANTOS-2W0X5 - Foi alterado o :3 para :2*/
SQLExec("SELECT A.ADDRESS_SEQ_NUM, A.PAY_TRMS_DIV_PBL,B.COLLECT_COD_BRL,B.DEF
AULT_LOC FROM PS_VNDR_ADDR_SCROL A, PS_VENDOR B WHERE A.SETID = B.SETID AND A.VE
NDOR_ID = B.VENDOR_ID AND A.SETID = :1 AND A.ADDRESS_SEQ_NUM = B.ADDR_SEQ_NUM_OR
DR AND A.CGC_BRL = :2", VENDOR.SETID, CGC_BRL, NF_HDR_BRL.ADDRESS_SEQ_NUM, &PAY_
TRMS, NF_HDR_BRL.COLLECT_COD_BRL, NF_HDR_BRL.VNDR_LOC);
/* BRLOC - PO - FFR - RELEASE 8.0SP2 - END - 01/08/2001 */
End-If;
/* Inibe boto de recalculo quando o cgc alterado, pois o sistema deve pegar novam
ente os dados do setup, para fazer os clculos dos impostos */
Gray(RECV_HD_WRK_PBL.NF_RECALC_PBL);
/*BRLOC-PO-APP-8.00-26/03/01-END */
/* BRLOC - PO - FFR - 12/02/2003 - ICE Resolution ID: 118011 - Begin */
/* Busca cdigo de withholding do fornecedor, quando o CNPJ preenchido */
SQLExec("SELECT A.WTHD_CD FROM PS_VENDOR_LOC A WHERE A.SETID = :1 AND A.VENDOR_I
D = :2 AND A.VNDR_LOC = :3 AND A.EFFDT = (SELECT MAX(EFFDT) FROM PS_VENDOR_LOC B
WHERE A.SETID = B.SETID AND A.VENDOR_ID = B.VENDOR_ID AND A.VNDR_LOC = B.VNDR_L
OC AND B.EFFDT <= %DATEIN(:4))", VENDOR.SETID, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.
VNDR_LOC, NF_HDR_BRL.NF_BRL_DATE, &WTHD_CD);
For &I = 1 To ActiveRowCount(Record.NF_LN_BRL)
UpdateValue(NF_LN_BRL.WTHD_CD, &I, &WTHD_CD);
End-For;
/* BRLOC - PO - FFR - 12/02/2003 - ICE Resolution ID: 118011 - End */
/****************************************** mmcb.hd56498.sn *******************

***********************/
NF_HDR_BRL.SHIP_FROM_STATE = VENDOR_ADDR.STATE;
End-If;

All(TOF_PBL) And
All(NF_HDR_BRL.ADDRESS_SEQ_NUM) Then
/********************** mmcb.sds3239.sn **********************/
R_ID = :2 AND ADDRESS_SEQ_NUM = :3 AND EFF_STATUS = 'A'", &SETID, NF_HDR_BRL.VEN
DOR_ID, NF_HDR_BRL.ADDRESS_SEQ_NUM, &STATE, &COUNTRY);
/********************** mmcb.sds3239.en **********************/
/********************** mmcb.sds3239.sn **********************/
SQLExec("SELECT b.state FROM sysadm.ps_shipto_tbl a, sysadm.ps_location_tbl
b WHERE a.setid = :1
AND a.shipto_id = :2 AND a.effdt = (SELECT MAX (a_e.ef
fdt) FROM sysadm.ps_shipto_tbl a_e WHERE a_e.setid = a.setid AND a_e.shipto_id =
a.shipto_id AND a_e.effdt <= TO_DATE (SYSDATE) AND a_e.eff_status = 'A') AND a.
setid = b.setid AND b.LOCATION = a.crtl_location_bbl AND b.effdt = (SELECT MAX (
b_e.effdt) FROM sysadm.ps_location_tbl b_e WHERE b_e.setid = b.setid AND b_e.LOC
ATION = b.LOCATION AND b_e.effdt <= TO_DATE (SYSDATE) AND b_e.eff_status = 'A')
", &SETID, NF_HDR_BRL.SHIPTO_ID, &ENTREGA);
/********************** mmcb.sds3239.en **********************/
/********************** mmcb.sds3239.so **********************/

/*
CHECA LOCAL DE ENTREGA SP OU GO ;
If (NF_HDR_BRL.SHIPTO_ID = "LCPTS" Or
NF_HDR_BRL.SHIPTO_ID = "LDEFS" Or
NF_HDR_BRL.SHIPTO_ID = "LINDS" Or
NF_HDR_BRL.SHIPTO_ID = "LOVIN" Or
NF_HDR_BRL.SHIPTO_ID = "LVEIN" Or
NF_HDR_BRL.SHIPTO_ID = "LVPEC" Or
NF_HDR_BRL.SHIPTO_ID = "LVVEI" Or
NF_HDR_BRL.SHIPTO_ID = "LMKTS" Or
NF_HDR_BRL.SHIPTO_ID = "LREVS" Or
NF_HDR_BRL.SHIPTO_ID = "LCPTS" Or
NF_HDR_BRL.SHIPTO_ID = "SO PAULO") Then
&ENTREGA = "SP";
Else
&ENTREGA = "GO";
End-If;
*/
/********************** mmcb.sds3239.eo **********************/
L FROM PS_TOF_TYPE_PBL WHERE TOF_PBL = :1 AND EFF_STATUS = 'A'", TOF_PBL, &CFOP_
INTERNO, &CFOP_EXTERNO, &CFOP_EXTERIOR, &FINALIDADE);

Else
If All(&STATE) And
All(&ENTREGA) Then
Else
End-If;
End-If;
End-If;
UpdateValue(NF_LN_BRL.TOF_PBL, &LN_ROW, TOF_PBL);
End-For;
End-If;
/****************************************** mmcb.hd56498.en *******************
***********************/
[NF_HDR_INFO_WRK.CGC_BRL.FieldEdit]
/*******************************************************************************
******************
* Itamar Junior - MMCB - 09/09/2009 - mmcb.hd74337 - Ajuste para que o sistema no
bloqueie se a *
* data da nota no for a mesma.
*
*******************************************************************************
*****************/
/*******************************************************************************
***
*
*
*******************************************************************************
***/
Declare Function validate_cgc PeopleCode FUNCLIB_BRL.CGC_BRL FieldFormula;
b.sds3239.ln */
/* CGC validation */
validate_cgc(CGC_BRL);
/* Verifica duplicidade de Nota Fiscal */
NF_HDR_BRL.VENDOR_ID = VNDR_CGC_PBL_VW.VENDOR_ID;
VENDOR.VENDOR_NAME_SHORT = VNDR_CGC_PBL_VW.VENDOR_NAME_SHORT;
NF_HDR_BRL.ADDRESS_SEQ_NUM = VNDR_CGC_PBL_VW.ADDRESS_SEQ_NUM;
/* incluso do flag IN_OUT_CD_BBL na seleo de Notas Fiscais de entrada */
/*************************** mmcb.hd74337.so ***************************/
/*SQLExec("Select distinct 'X' from PS_NF_HDR_BRL where NF_BRL = :1 and VENDO
R_ID IN (SELECT A.VENDOR_ID FROM PS_VNDR_ADDR_SCROL A WHERE A.SETID = 'MMCSA' AN
D A.CGC_BRL = :2) AND ADDRESS_SEQ_NUM IN (SELECT B.ADDRESS_SEQ_NUM FROM PS_VNDR_
ADDR_SCROL B WHERE B.SETID = 'MMCSA' AND B.CGC_BRL = :2) and NF_BRL_SERIES = :3
and NF_BRL_STATUS <> 'X' AND INOUT_FLG_PBL = 'I' AND IN_OUT_CD_BBL = 'I'", NF_HD
R_BRL.NF_BRL, CGC_BRL, NF_HDR_BRL.NF_BRL_SERIES, &RETURN);*/
/*************************** mmcb.hd74337.eo ***************************/
/*************************** mmcb.sds3239.so ***************************/
/*************************** mmcb.hd74337.sn ***************************/
/*
SQLExec("Select distinct 'X' from PS_NF_HDR_BRL where NF_BRL = :1 and VENDOR_
ID IN (SELECT A.VENDOR_ID FROM PS_VNDR_ADDR_SCROL A WHERE A.SETID = 'MMCSA' AND
A.CGC_BRL = :2) AND ADDRESS_SEQ_NUM IN (SELECT B.ADDRESS_SEQ_NUM FROM PS_VNDR_AD
DR_SCROL B WHERE B.SETID = 'MMCSA' AND B.CGC_BRL = :2) and NF_BRL_SERIES = :3 an
d NF_BRL_DATE = to_date(:4,'yyyy-mm-dd') and NF_BRL_STATUS <> 'X' AND INOUT_FLG_
PBL = 'I' AND IN_OUT_CD_BBL = 'I'", NF_HDR_BRL.NF_BRL, CGC_BRL, NF_HDR_BRL.NF_BR
L_SERIES, NF_HDR_BRL.NF_BRL_DATE, &RETURN);
*/
/*************************** mmcb.hd74337.en ***************************/
/*************************** mmcb.sds3239.eo ***************************/
/*************************** mmcb.sds3239.sn ***************************/
SQLExec("Select distinct 'X' from PS_NF_HDR_BRL where NF_BRL = :1 and VENDOR_
ID IN (SELECT A.VENDOR_ID FROM PS_VNDR_ADDR_SCROL A WHERE A.SETID = :2 AND A.CGC
_BRL = :3) AND ADDRESS_SEQ_NUM IN (SELECT B.ADDRESS_SEQ_NUM FROM PS_VNDR_ADDR_SC
ROL B WHERE B.SETID = :4 AND B.CGC_BRL = :5) and NF_BRL_SERIES = :6 and NF_BRL_D
ATE = to_date(:7,'yyyy-mm-dd') and NF_BRL_STATUS <> 'X' AND INOUT_FLG_PBL = 'I'
AND IN_OUT_CD_BBL = 'I'", NF_HDR_BRL.NF_BRL, &SETID, CGC_BRL, &SETID, CGC_BRL, N
F_HDR_BRL.NF_BRL_SERIES, NF_HDR_BRL.NF_BRL_DATE, &RETURN);
/*************************** mmcb.sds3239.en ***************************/
Else
/*************************** mmcb.hd74337.so ***************************/
/*SQLExec("Select 'X' from PS_NF_HDR_BRL where NF_BRL = :1 and VENDOR_ID = :2
and NF_BRL_SERIES = :3 AND AND ADDRESS_SEQ_NUM = :4 and NF_BRL_STATUS <> 'X'
AND INOUT_FLG_PBL = 'I' AND IN_OUT_CD_BBL = 'I'", NF_HDR_BRL.NF_BRL, NF_HDR_BRL.
VENDOR_ID, NF_HDR_BRL.NF_BRL_SERIES, NF_HDR_BRL.ADDRESS_SEQ_NUM, &RETURN);*/
/*************************** mmcb.hd74337.eo ***************************/
/*************************** mmcb.hd74337.sn ***************************/
SQLExec("Select 'X' from PS_NF_HDR_BRL where NF_BRL = :1 and VENDOR_ID = :2 a
nd NF_BRL_SERIES = :3 AND AND ADDRESS_SEQ_NUM = :4 and NF_BRL_DATE = to_date(:
5,'yyyy-mm-dd') and NF_BRL_STATUS <> 'X' AND INOUT_FLG_PBL = 'I' AND IN_OUT_CD_B
BL = 'I'", NF_HDR_BRL.NF_BRL, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.NF_BRL_SERIES, NF
_HDR_BRL.ADDRESS_SEQ_NUM, NF_HDR_BRL.NF_BRL_DATE, &RETURN);
/*************************** mmcb.hd74337.en ***************************/
End-If;
/*BRLOC-PO-APP-8.01-15/08/01-END*/
End-If;
/* BRLOC - PO - APP - 8.00 - 09/01/2001 - END */
[NF_HDR_INFO_WRK.CGC_BRL.RowInit]
/*** Jeison Caldas - 29/08/07 - Ativ.2253 - Melhorias no processo de
o ***/
%Mode <> "A" Then
SQLExec("SELECT CGC_BRL FROM PS_VNDR_ADDR_SCROL WHERE VENDOR_ID =
ESS_SEQ_NUM = :2", NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.ADDRESS_SEQ_NUM,
End-If;
/*** Jeison Caldas - 29/08/07 - Ativ.2253 - Melhorias no processo de
**/
EDI - Inici
:1 AND ADDR
CGC_BRL);
EDI - Fim *
[NF_HDR_INFO_WRK.MMC_BOTAO.FieldChange]
If %Page = Page.NF_INFO_HDR_PBL Then
&BUSINESS_UNIT = MMC_RECV_HDR.BUSINESS_UNIT;
&RECEIVER_ID = MMC_RECV_HDR.RECEIVER_ID;
&MMC_DESCR1A = MMC_DIGITAL_WRK.MMC_NOME_ARQ;
/*MMC_RECV_HDR.MMC_NOME_ARQ;*/
/* &MMC_DESCR1 = "FILE://mmcserver\Doc_Digital\" | &MMC_DESCR1A;Djalma - Su
bstituido pela linha abaixo devido a alteracao das pastas nos servidores*/
&MMC_DESCR1 = "FILE:\\fsspoorg01\FileServer\Administrativo\Contabilidade\376
- Recebimento Fiscal - SPO\Doc_Digital\" | &MMC_DESCR1A;
ViewURL(&MMC_DESCR1);
End-If;
[NF_HDR_INFO_WRK.NF_BRL_STATUS.FieldChange]
/*BRLOC-PO-HAT-8.00-06/04/01-BEGIN */
/* Atualiza o Status da Header */
If All(NF_BRL_STATUS) Then
NF_HDR_BRL.NF_BRL_STATUS = NF_BRL_STATUS;
End-If;
/*BRLOC-PO-HAT-8.00-06/04/01-END */
[NF_HDR_INFO_WRK.NF_BRL_STATUS.RowInit]
/*BRLOC-PO-HAT-8.00-06/04/01-BEGIN */
/* Move o Status da header para a working*/
NF_BRL_STATUS = NF_HDR_BRL.NF_BRL_STATUS;
/*BRLOC-PO-HAT-8.00-06/04/01-END */
[NF_HDR_INFO_WRK.NF_BRL_STATUS.SaveEdit]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - Customizao para forar Usuario a Mudar Status da
NF
*
* para completo Quando NF for de Terceiros.
*
*******************************************************************************
*****************/
/*******************************************************************************
****
* Leandro Rodrigues da Silva Souza - MMCB - 06/07/2009 - MMCB.SDS3141 - Valida
* Serie Por Tipo De Documento
********************************************************************************
****/
/*******************************************************************************
*****
* Wagner Sorio - MMC - 06/12/2010 - mmcb.sds3627 - Folha Autonomo
*
********************************************************************************
*****/
/*******************************************************************************
*****
* Adercley E. Maral - MMC - 13/06/2011 - mmcb.hd143179 - Correcao para 9 digito
s *
********************************************************************************
*****/
/******************************** mmcb.sds3627.S.N *****************************
*****/
Declare Function BUSCA_DADOS_RPA PeopleCode MMC_RPA_WK.FUNCLIB SavePostChange;
Declare Function BUSCA_PERIDO_AUTONOMO PeopleCode MMC_RPA_WK.FUNCLIB SavePostCha
nge;
/******************************** mmcb.sds3627.E.N *****************************
*****/
/************************** MMCB.SDS3141.SN **************************/
Declare Function VALIDA_TIPO_DOCUMENTO PeopleCode MMC_NF_SERIE_WK.NF_BRL_SERIES
FieldFormula;
If ((%Component = Component.NF_RECV_PBL) Or
(%Component = Component.MMC_LANC_GAR) Or
(%Component = Component.NF_INFO_PBL) Or
%Component = Component.NF_INFO_HDR_PBL) Then
VALIDA_TIPO_DOCUMENTO(%Component, MMC_TE_NFLN_WRK.MMC_TERCEIRO_FLG, NF_BRL
_STATUS, NF_HDR_BRL.NF_BRL_TYPE, NF_HDR_BRL.NF_BRL_SERIES);
End-If;
End-If;
/************************** MMCB.SDS3141.EN **************************/
/********************** mmcb.at2323.sn **********************/
NF_BRL_STATUS <> "F" Then
Error ("Esta uma NF de Terceiros. Para salva-la o Status deve ser: Completo."
);
End-If;
/********************** mmcb.at2323.en **********************/
/******************************** mmcb.sds3627.S.N *****************************
*****/
If (%Component = Component.NF_INFO_PBL Or

BUSCA_DADOS_RPA(NF_HDR_BRL.VENDOR_SETID, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.NF_
BRL, "01", &RPA_ID);
If All(&RPA_ID) Then
BUSCA_PERIDO_AUTONOMO(NF_HDR_BRL.VENDOR_SETID, &DATA_INICIAL_LANCAMENTO, &
DATA_FINAL_LANCAMENTO);
&STR_DATA_INICIAL_LANCAMENTO = DateTimeToLocalizedString(&DATA_INICIAL_LAN
CAMENTO, "dd/MM/yyyy");
&STR_DATA_FINAL_LANCAMENTO = DateTimeToLocalizedString(&DATA_FINAL_LANCAME
NTO, "dd/MM/yyyy");
/************************************ mmcb.hd143179.so *******************
***********************
SQLExec("SELECT %DateOut(MMC_DT_EMISSAO) FROM SYSADM.PS_MMC_RPA WHERE SETI
D = :1 AND VENDOR_ID = :2 AND MMC_RPA_ID = :3 ", NF_HDR_BRL.VENDOR_SETID, NF_HDR
_BRL.VENDOR_ID, NF_HDR_BRL.NF_BRL, &MMC_DT_EMISSAO);
************************************* mmcb.hd143179.eo *******************
***********************/
/************************************ mmcb.hd143179.sn *******************
**************************/
SQLExec("SELECT %DateOut(MMC_DT_EMISSAO) FROM SYSADM.PS_MMC_RPA WHERE SETI
D = :1 AND VENDOR_ID = :2 AND MMC_RPA_ID = TRIM(TO_CHAR(:3,'000000'))", NF_HDR_B
RL.VENDOR_SETID, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.NF_BRL, &MMC_DT_EMISSAO);
/************************************ mmcb.hd143179.en *******************
***************************/
If Not (&MMC_DT_EMISSAO >= &DATA_INICIAL_LANCAMENTO And
&MMC_DT_EMISSAO <= &DATA_FINAL_LANCAMENTO) Then
Error ("Erro: Somente possivel efetuar lanamentos de RPA no perido de: "
| &STR_DATA_INICIAL_LANCAMENTO | " a " | &STR_DATA_FINAL_LANCAMENTO | ".");
End-If;
If Not (&MMC_DT_EMISSAO >= &DATA_INICIAL_LANCAMENTO And
&MMC_DT_EMISSAO <= &DATA_FINAL_LANCAMENTO) Then
Error ("Erro: Somente possivel efetuar lanamentos de RPA no perido de: "
| &STR_DATA_INICIAL_LANCAMENTO | " a " | &STR_DATA_FINAL_LANCAMENTO | ".");
End-If;
WinMessage("Aviso: Entrada de nota fiscal RPA de autonomo.");
End-If;
End-If;
/******************************** mmcb.sds3627.E.N *****************************
*****/
[NF_HDR_INFO_WRK.NF_BRL_STATUS.SavePostChange]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - Criando Recebimento Fisico a partir
*
* Entrada Direta Documento Fiscal.

*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Claudio Henrique Costa - MMC - 17/11/2008 - mmcb.sds2822
*
* Alterao para o Sistema validar NF Retorno de Terceiros com BOM do Item Pai.
*
/*******************************************************************************
*****************
* Wagner Sorio / Claudio Costa - MMC - 05/03/2009 - mmcb.HD64180
*
* Trava para evitar duplicidade Recebimento Terceiros.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Leandro Rodrigues da Silva Souza - MMCB 16/09/2010 - MMCB.SDS3562
*
* Incluso de notas de terceiro no pr-recebimento.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
iros
*
* Permitir inserir mais de um insumo para a NF de industrializao e Validar BOM.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Wagner Sorio - MMC - 06/12/2010 - mmcb.sds3627 - Folha Autonomo
*
********************************************************************************
*****************/
/*******************************************************************************
*****************
* Claudio Henrique da Costa/Leandro Rodrigues Silva Souza - MMCB - 02/03/2011 mmcb.hd111096 *
* Alterao para que o Serial e Lote de Peas que estejam em branco sejam preenchidos
com NONE.*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
*
* Alterao para zerar ICMS para frete destinado a Zona Franca de Manaus
*
* GKO.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Bleno L Sampaio - MMC - 13/04/2012 - mmcb.hd138301
*
* Sistema no estava gravando PO_ID na linha da NF para alguns casos.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Vincius Alvs Mello - MMC - 30/05/2012 - mmcb.hd141963
*
* O nmero do RMA e igual ao do NF_BRL, entretanto o nmero da nota foi alterado
*
* para 9 dgitos e o RMA continuou com 6 dgitos.
*
********************************************************************************
*****************/
/*******************************************************************************
*****************
* Bleno L Sampaio - MMC - 14/06/2012 - mmcb.sds4160
*
* Processo de Aplicao de Voucher de Adiantamento - Inserir na tabela de processame
nto o ID da *
* nota quando a OC referenciada tiver cronograma de adiantamento aprovado.
*
********************************************************************************
*****************/
/*******************************************************************************
*****************
* Rafael da Cruz Nascimento - MMCB.SDS4304 - 21/03/2013
*
* Ordem de Produo em Unidade de Terceiros
*
********************************************************************************
*****************/
/*******************************************************************************
*****************
* Renato / Rosangela Enc. Vinicius Favero - MMCB.HD171529 - 30/04/2013
*
* Verificar se j existe linha antes de inserir
*
********************************************************************************
*****************/
/*******************************************************************************
*****************
*
* No verificar se a rea e Wip para SVB.
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************

*
* Produo de Ordem em Terceiros/Faturamento Jimny
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Vincius Montijo Favero - MMC - 02/07/2014 - mmcb.sds4827
*
* Criao de tela de recebimento de DANFE
*
* Vincular na tabela MMC_REC_DANF os dados da nota referente a chave de acesso
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Leandro Rodrigues da Silva Souza - MMC - mmcb.hd219399 - 11/11/2014
*
* Painel expirando muito lento para salvar.
*
*******************************************************************************
*****************/
/******************************** mmcb.sds3627.S.N *****************************
*****/
Declare Function BUSCA_DADOS_RPA PeopleCode MMC_RPA_WK.FUNCLIB SavePostChange;
/******************************** mmcb.sds3627.E.N *****************************
*****/
/********************** mmcb.at2323.sn **********************/
Declare Function CRIA_RECEBIMENTO_FISICO PeopleCode MMC_PO_LIB.RECEIVER_ID SaveP
ostChange;
Declare Function CRIA_RECV_FISICO_TRIAN PeopleCode MMC_PO_LIB.RECEIVER_ID SavePo
stChange;
PostChange;
Declare Function CARREGAR_ITENS_ARMAZENADOS PeopleCode MMC_IN_LIB.FUNCLIB SavePo
stChange;
Declare Function BAIXA_ESTOQUE PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange;
Declare Function GRAVA_STAGED_INF_INV PeopleCode MMC_IN_LIB.FUNCLIB SavePostChan
ge;
Declare Function ARMAZENAGEM PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange;
Declare Function GRAVA_SALDO_NF_TERCEIRO PeopleCode MMC_TE_WRK.FUNCLIB SavePostC
hange;
Declare Function GRAVA_TRANSACAO_TERCEIROS PeopleCode MMC_TE_WRK.FUNCLIB SavePos
tChange;
Declare Function AJUSTA_SALDO_NF_TERCEIRO PeopleCode MMC_TE_WRK.FUNCLIB SavePost
Change;
Declare Function GRAVA_MMC_TE_OP PeopleCode MMC_TE_WRK.FUNCLIB SavePostChange;
Declare Function CRIA_NF_SERVICO_UNIFICADO PeopleCode MMC_TE_WRK.FUNCLIB SavePos
tChange;
Declare Function ENTRADA_ESTOQUE PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange;
Declare Function VERIFICA_NF_VS_BOM PeopleCode MMC_TE_OP_OC_WK.BUTTON2 FieldForm
ula; /*mmcb.sds3426.ln*/
/************************* mmcb.sds2946.sn ************************************
********/
Declare Function ATUALIZA_CONTROLE_MAT_TERC PeopleCode MMC_IN_LIB.FUNCLIB SavePo

stChange;
Declare Function GRAVA_CONTROLE_MAT_TERC PeopleCode MMC_IN_LIB.FUNCLIB SavePostC
hange;
/************************* mmcb.sds2946.en ************************************
********/
/*Declare Function geraPreRecebimento PeopleCode MMC_PRE_REC_HDR.MMC_PRE_REC_ID
FieldFormula;*/ /** MMCB.SDS3562.LN **/
b.sds3239.ln */
Component string &FLAG_EXECUTOU;
Component string &PAR_RECEIVER_ID;
/********************** mmcb.sds2822.sn **********************/
Function Valida_BOM_x_NF_Terceiros()
&ERRO = "FALSE";
/* ---- Valida se NF em BOM ( itens e quantidades ) ---- */
&SELECT1 = "
SELECT ITEM, SUM(QTDE) FROM ( ";
&SELECT1 = &SELECT1 | "
SELECT NLI.INV_ITEM_ID ITEM, SUM(NLI.QTY_NF_BRL)
QTDE ";
FROM SYSADM.PS_MMC_TE_OP TOP, SYSADM.PS_NF_HDR_B
RL NHI, SYSADM.PS_NF_LN_BRL NLI";
WHERE TOP.BUSINESS_UNIT_IN = NLI.BUSINESS_UNIT";
AND TOP.NF_BRL_ID_2_BBL = NLI.NF_BRL_ID";
AND NLI.BUSINESS_UNIT = NHI.BUSINESS_UNIT";
AND NLI.NF_BRL_ID = NHI.NF_BRL_ID";
AND NHI.NF_BRL_STATUS = 'F'";
AND TOP.BUSINESS_UNIT = :1 ";
AND TOP.NF_BRL_ID = :2 ";
GROUP BY NLI.INV_ITEM_ID";
UNION ALL";
SELECT NLS.INV_ITEM_ID ITEM, SUM(NLS.QTY_NF_BRL)
QTDE";
FROM SYSADM.PS_MMC_TE_OP TOP, SYSADM.PS_NF_HDR_B
RL NHS, SYSADM.PS_NF_LN_BRL NLS";
WHERE TOP.BUSINESS_UNIT = NLS.BUSINESS_UNIT";
AND TOP.NF_BRL_ID = NLS.NF_BRL_ID";
AND TOP.NF_BRL_LINE_NUM = NLS.NF_BRL_LINE_NUM";
AND NLS.BUSINESS_UNIT = NHS.BUSINESS_UNIT";
AND NLS.NF_BRL_ID = NHS.NF_BRL_ID";
AND NHS.NF_BRL_STATUS = 'F'";
GROUP BY NLS.INV_ITEM_ID";
) GROUP BY ITEM ";
SQLExec("SELECT TOP.INV_ITEM_ID, TOP.MMC_TE_QTD_PAI FROM SYSADM.PS_MMC_TE_OP
TOP WHERE TOP.BUSINESS_UNIT = :1 AND TOP.NF_BRL_ID = :2", NF_HDR_BRL.BUSINESS_UN
IT, NF_HDR_BRL.NF_BRL_ID, &TOP_ITEM, &TOP_QTDE);

/* SQLExec("SELECT ST.BUSINESS_UNIT_IN FROM SYSADM.PS_SHIPTO_TBL ST WHERE S
T.SETID = 'MMCSA' AND ST.BUSINESS_UNIT_RECV = :1 AND ST.EFF_STATUS= 'A' AND ST.E
FFDT = ( SELECT (EFFDT) FROM SYSADM.PS_SHIPTO_TBL STI WHERE STI.SETID = ST.SETID
AND STI.SHIPTO_ID = ST.SHIPTO_ID)", NF_HDR_BRL.BUSINESS_UNIT, &BU_IN); */ /* mm
cb.sds3239.lo */
SQLExec("SELECT ST.BUSINESS_UNIT_IN FROM SYSADM.PS_SHIPTO_TBL ST WHERE ST.SET
ID = :1 AND ST.BUSINESS_UNIT_RECV = :2 AND ST.EFF_STATUS= 'A' AND ST.EFFDT = ( S
ELECT (EFFDT) FROM SYSADM.PS_SHIPTO_TBL STI WHERE STI.SETID = ST.SETID AND STI.S
HIPTO_ID = ST.SHIPTO_ID)", &SETID, NF_HDR_BRL.BUSINESS_UNIT, &BU_IN); /* mmcb.sd
s3239.ln */
If All(&TOP_ITEM) And
&ERRO = "FALSE" Then
&RESULT_SQL_NF = CreateSQL(&SELECT1, NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.
NF_BRL_ID, NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID);
While ((&RESULT_SQL_NF.FETCH(&NF_ITEM, &NF_QTDE)) And
(&ERRO = "FALSE"))
SQLExec("SELECT 'EXISTE' FROM ( SELECT BC.BUSINESS_UNIT, BC.INV_ITEM_ID
ITEM_PAI, BC.COMPONENT_ID ITEM, BC.DATE_IN_EFFECT, BC.DATE_OBSOLETE, BC.QTY_PER
QTDE_ITEM FROM SYSADM.PS_EN_BOM_COMPS BC WHERE BUSINESS_UNIT = :1 AND TO_DATE(S
YSDATE) BETWEEN DATE_IN_EFFECT AND DATE_OBSOLETE AND BOM_STATE = 'PR' AND BOM_TY
PE = 'PR' CONNECT BY NOCYCLE PRIOR COMPONENT_ID = INV_ITEM_ID START WITH INV_ITE
M_ID = :2 AND TO_DATE(SYSDATE) BETWEEN DATE_IN_EFFECT AND DATE_OBSOLETE ORDER BY
INV_ITEM_ID ) GROUP BY ITEM HAVING ITEM = :3 AND SUM(QTDE_ITEM) * :4 = :5 ", &B
U_IN, &TOP_ITEM, &NF_ITEM, &NF_QTDE, &TOP_QTDE, &EXISTE_ITEM_QTDE_BOM);
If None(&EXISTE_ITEM_QTDE_BOM) Then
&ERRO = "TRUE";
End-If;
End-While;
End-If;
/* ---- Valida se BOM em NF ( itens e quantidades ) ---- */
If &ERRO = "FALSE" Then
&SELECT2 =
&SELECT2 =
&SELECT2 =
&SELECT2 =
&SELECT2 =
TE_OBSOLETE ";
&SELECT2 =
&SELECT2 =
D ";
&SELECT2 =
&SELECT2 =
TE_OBSOLETE ";
&SELECT2 =
"
&SELECT2
&SELECT2
&SELECT2
&SELECT2
|
|
|
|
"
"
"
"
SELECT BC.COMPONENT_ID ";

, SUM(BC.QTY_PER) QTDE_ITEM ";
FROM SYSADM.PS_EN_BOM_COMPS BC ";
WHERE BUSINESS_UNIT = :1 ";
AND TO_DATE(SYSDATE) BETWEEN DATE_IN_EFFECT AND DA
&SELECT2 | " AND BOM_STATE = 'PR' AND BOM_TYPE = 'PR' ";

&SELECT2 | " CONNECT BY NOCYCLE PRIOR COMPONENT_ID = INV_ITEM_I
&SELECT2 | " START WITH INV_ITEM_ID = :2 ";
&SELECT2 | " AND TO_DATE(SYSDATE) BETWEEN DATE_IN_EFFECT AND DA
&SELECT2 | " GROUP BY BC.COMPONENT_ID ";
&RESULT_SQL_BOM = CreateSQL(&SELECT2, &BU_IN, &TOP_ITEM);
While ((&RESULT_SQL_BOM.FETCH(&BOM_COMPONENT, &BOM_QTDE)) And

(&ERRO = "FALSE"))
&SELECT3 = "
SELECT ITEM, SUM(QTDE) QTDE FROM ( ";
SELECT NLI.INV_ITEM_ID ITEM, SUM(NLI.QTY
_NF_BRL) QTDE ";
FROM SYSADM.PS_MMC_TE_OP TOP, SYSADM.PS_
NF_HDR_BRL NHI, SYSADM.PS_NF_LN_BRL NLI";
WHERE TOP.BUSINESS_UNIT_IN = NLI.BUSINES
S_UNIT";
AND TOP.NF_BRL_ID_2_BBL = NLI.NF_BRL_ID"
;
AND NLI.BUSINESS_UNIT = NHI.BUSINESS_UNI
T";
AND NLI.NF_BRL_ID = NHI.NF_BRL_ID";
AND NHI.NF_BRL_STATUS = 'F'";
AND NLI.INV_ITEM_ID = :3 ";
GROUP BY NLI.INV_ITEM_ID";
UNION ALL";
SELECT NLS.INV_ITEM_ID ITEM, SUM(NLS.QTY
_NF_BRL) QTDE";
FROM SYSADM.PS_MMC_TE_OP TOP, SYSADM.PS_
NF_HDR_BRL NHS, SYSADM.PS_NF_LN_BRL NLS";
WHERE TOP.BUSINESS_UNIT = NLS.BUSINESS_U
NIT";
AND TOP.NF_BRL_ID = NLS.NF_BRL_ID";
AND TOP.NF_BRL_LINE_NUM = NLS.NF_BRL_LIN
E_NUM";
AND NLS.BUSINESS_UNIT = NHS.BUSINESS_UNI
T";
AND NLS.NF_BRL_ID = NHS.NF_BRL_ID";
AND NHS.NF_BRL_STATUS = 'F'";
AND NLS.INV_ITEM_ID = :6 ";
GROUP BY NLS.INV_ITEM_ID";
) GROUP BY ITEM ";
SQLExec(&SELECT3, NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID, &BOM_
COMPONENT, NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID, &BOM_COMPONENT, &NF_I
TEM, &NF_QTDE);
If ((&NF_QTDE <> &BOM_QTDE * &TOP_QTDE) Or
(None(&NF_ITEM))) Then
&ERRO = "TRUE";
End-If;
End-While;
End-If;
/* ---- Verifica resultado Verificao ==>> Erro=True - BOM <> NF ==>> Erro=False
- BOM = NF ---- */
If &ERRO = "TRUE" Then
Error ("Dados de Recebimento no conferem com BOM do Item.");
End-If;
End-Function;
/********************** mmcb.sds2822.en **********************/
/********************** mmcb.at2323.en **********************/
/*** JEISON CALDAS - 30/03/07 - ATIV. 2068 - EDI FORNECEDOR
Este processo atualiza as notas fiscais de EDI como processadas - Inicio *
**/
REM CABECALHO;
SQLExec("UPDATE PS_MMC_EDI_HDR SET PROCESS_FLAG = 'Y' WHERE BUSINESS_UNIT = :
1 AND CGC_BRL = :2 AND NF_BRL = :3 AND NF_BRL_SERIES
= :4 AND PROCESS_FLAG <>
'Y'", NF_HDR_BRL.BUSINESS_UNIT, CGC_BRL, NF_HDR_BRL.NF_BRL, NF_HDR_BRL.NF_BRL_S
ERIES);
REM LINHA;
SQLExec("UPDATE PS_MMC_EDI_LN SET PROCESS_FLAG = 'Y' WHERE BUSINESS_UNIT = :1
AND CGC_BRL = :2 AND NF_BRL = :3 AND NF_BRL_SERIES
= :4 AND PROCESS_FLAG <>
'Y'", NF_HDR_BRL.BUSINESS_UNIT, CGC_BRL, NF_HDR_BRL.NF_BRL, NF_HDR_BRL.NF_BRL_S
ERIES);
End-If;
/*** JEISON CALDAS - 30/03/07 - ATIV. 2068 - EDI FORNECEDOR
Este processo atualiza as notas fiscais de EDI como processadas - Fim ***/
/********************** mmcb.at2323.sn **********************/
&FLAG_EXECUTOU = "N";
&ULTIMA_LINHA = "N";
&NF_NIVEL1 = GetRowset(Scroll.NF_LN_BRL);
If MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N" Then
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||
INICIO CRIANDO RECEBIMENTO REMESSA E ORDEM
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */
&PO_NIVEL1 = GetRowset(Scroll.MMC_TE_OC_VW);
If &FLAG_EXECUTOU = "N" Then
&PAR_RECEIVER_ID = MMC_NUMERACAO_ID(1);
End-If;
For &I = &PO_NIVEL1.ActiveRowCount To 1 Step - 1;

If &PO_NIVEL1.GetRow(&I).MMC_TE_WRK.MMC_TE_CONFI_FLG.VALUE <> "Y" Then
&PO_NIVEL1.DeleteRow(&I);
End-If
End-For;
REM Conta o Numero de Linhas da OC ;
&TOTALLINHAS = &PO_NIVEL1.ActiveRowCount;
REM Conta o Numero de Linhas da NF ;
&TOTAL_NF_LINE = &NF_NIVEL1.ActiveRowCount;
If &TOTAL_NF_LINE <> &TOTALLINHAS Then
Error ("Existe uma diferena Numero de Linhas da OC selecionada e numero
de Items da NF");
End-If;
For &LN = 1 To &TOTALLINHAS;
If &LN = &TOTALLINHAS Then
&ULTIMA_LINHA = "Y";
End-If;
&PAR_BUSINESS_UNIT = NF_HDR_BRL.BUSINESS_UNIT;
&PAR_RECEIVER_ID = &PAR_RECEIVER_ID;
&PAR_PO_ID = &PO_NIVEL1.GetRow(&LN).MMC_TE_OC_VW.PO_ID.VALUE;
&PAR_LINE_NBR = &PO_NIVEL1.GetRow(&LN).MMC_TE_OC_VW.LINE_NBR.VALUE;
&PAR_SCHED_NBR = &PO_NIVEL1.GetRow(&LN).MMC_TE_OC_VW.SCHED_NBR.VALUE;
&PAR_QTD_ACEITA = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.QTY_NF_BRL.VALUE;
&PAR_NF_BRL = NF_HDR_BRL.NF_BRL;
&PAR_NF_BRL_SERIES = NF_HDR_BRL.NF_BRL_SERIES;
&PAR_NF_BRL_DATE = NF_HDR_BRL.NF_BRL_DATE;
&PAR_CUSTO_TERCEIRO_FLG = "Y";
&V_CUSTO_BU = NF_HDR_BRL.BUSINESS_UNIT;
&V_CUSTO_NF_ID = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.NF_BRL_ID.VALUE;
&V_CUSTO_NF_LN = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE
;
If None(&V_CUSTO_BU) Or
None(&V_CUSTO_NF_ID) Or
None(&V_CUSTO_NF_LN) Then
Error ("Erro Terceiro: No foi possivel encontar chave da NF para calc
ulo de custo.");
End-If;
SQLExec("select round( unit_price + ( ipitax_brl_amt/ qty_nf_brl)+( fre
ight_amt/ qty_nf_brl)- ( pis_amt_bbl/ qty_nf_brl) -( cofins_amt_bbl/ qty_nf_
brl) - ( ipitax_brl_rcvry/ qty_nf_brl) - ( icmstax_brl_rcvry/ qty_nf_brl)- ( d
scnt_amt/ qty_nf_brl),4) from sysadm.ps_nf_ln_brl where business_unit = :1 and n
f_brl_id = :2 and nf_brl_line_num = :3 ", &V_CUSTO_BU, &V_CUSTO_NF_ID, &V_CUSTO_
NF_LN, &PAR_CUSTO_TERCEIRO);
If &PAR_CUSTO_TERCEIRO <= 0 Or
None(&PAR_CUSTO_TERCEIRO) Then
Error (" Erro Recebimento Terceiros: Custo menor ou igual a Zero.");
End-If;
&PAR_NF_BRL_ID = NF_HDR_BRL.NF_BRL_ID;
&PAR_PRECO_UNITARIO = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.UNIT_PRICE.VALUE
;
&PAR_RECV_LN_NBR = &LN;
/*
&PAR_SETID = "MMCSA"; */ /* mmcb.sds3239.lo */
&PAR_SETID = &SETID; /* mmcb.sds3239.ln */
/*
SQLExec("select inventory_item from sysadm.ps_master_item_tbl
where setid='MMCSA' and inv_item_id=:1", &NF_NIVEL1.GETROW(&LN).NF_LN_BRL.INV_I
TEM_ID.VALUE, &ITEM_ESTOQUE); */ /* mmcb.sds3239.lo */
SQLExec("select inventory_item from sysadm.ps_master_item_tbl where set
id=:1 and inv_item_id=:2", &SETID, &NF_NIVEL1.GETROW(&LN).NF_LN_BRL.INV_ITEM_ID.
VALUE, &ITEM_ESTOQUE); /* mmcb.sds3239.ln */
If &ITEM_ESTOQUE <> "Y" Then
Error ("Item: " | &NF_NIVEL1.GETROW(&LN).NF_LN_BRL.INV_ITEM_ID.VALUE
| " no de estoque");
End-If;
SQLExec("select distrib_type from sysadm.ps_mmc_te_recv_par where busin
ess_unit_recv=:1 and eff_status='A'", NF_HDR_BRL.BUSINESS_UNIT, &PAR_DISTRIB_TYP
E);
If None(&PAR_DISTRIB_TYPE) Or
&PAR_DISTRIB_TYPE = "" Or
&PAR_DISTRIB_TYPE = " " Then
Error ("No foi possivel localicar distribuio para UN: " | NF_HDR_BRL.BU
SINESS_UNIT);
End-If;
CRIA_RECEBIMENTO_FISICO(&PAR_BUSINESS_UNIT, &PAR_RECEIVER_ID, &PAR_RECV
_LN_NBR, &PAR_RECV_SHIP_SEQ_NBR, &PAR_PO_ID, &PAR_LINE_NBR, &PAR_SCHED_NBR, &PAR
_QTD_ACEITA, &PAR_NF_BRL, &PAR_NF_BRL_SERIES, &PAR_NF_BRL_DATE, &ULTIMA_LINHA, &
PAR_CUSTO_TERCEIRO_FLG, &PAR_CUSTO_TERCEIRO, &PAR_NF_BRL_ID, &PAR_PRECO_UNITARIO
, &PAR_DISTRIB_TYPE, &PAR_SETID);
rem
geraPreRecebimento(&PAR_BUSINESS_UNIT, &PAR_RECEIVER_ID, &P
AR_RECV_LN_NBR, "Y"); /** MMCB.SDS3562.LN **/
/*geraPreRecebimento(&PAR_BUSINESS_UNIT, &PAR_RECEIVER_ID, &PAR_RECV_LN
_NBR);*/ /** MMCB.SDS3562.LN **/
&NF_BRL_LINE_NUM = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.NF_BRL_LINE_NUM.VAL
UE;
SQLExec("update sysadm.ps_nf_ln_brl set business_unit_recv=:1, receiver
_id=:2, recv_ln_nbr=:3, recv_ship_seq_nbr=:4, po_id=:5 where business_unit=:6 an
d nf_brl_id=:7 and nf_brl_line_num=:8", NF_HDR_BRL.BUSINESS_UNIT, &PAR_RECEIVER_
ID, &PAR_RECV_LN_NBR, &PAR_RECV_SHIP_SEQ_NBR, &PAR_PO_ID, NF_HDR_BRL.BUSINESS_UN
IT, NF_HDR_BRL.NF_BRL_ID, &NF_BRL_LINE_NUM);
&FLAG_EXECUTOU = "Y";
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| Criando saldo Estoque Terceiros.

||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
&N_BUSINESS_UNIT = NF_HDR_BRL.BUSINESS_UNIT;
&N_NF_BRL_ID = NF_HDR_BRL.NF_BRL_ID;
REM INICIO NUMERO DOCUMENTO FISCAL SALVO NESTA TABELA E O INFORMADO NA
SUB-PAGINA ;
REM DE TERCEIROS: HOME> ADMIN. COMPRAS> GERENCIAR DOC. FISCAL> USAR ENT
RADA DIRETA DOCUMENTO FISCAL;
&N_NF_BRL = MMC_TE_RECV_VND.NF_BRL;
&N_NF_BRL_SERIES = MMC_TE_RECV_VND.NF_BRL_SERIES;
&N_VENDOR_ID = MMC_TE_RECV_VND.VENDOR_ID;
&N_ADDRESS_SEQ_NUM = MMC_TE_RECV_VND.ADDRESS_SEQ_NUM;
REM FIM NUMERO DOCUMENTO FISCAL SALVO NESTA TABELA E O INFORMADO NA SUB
-PAGINA ;
&N_IRTAX_BRL_AMT = NF_HDR_BRL.IRTAX_BRL_AMT;
&N_MMC_IR_SALDO = NF_HDR_BRL.IRTAX_BRL_AMT;
&N_NF_BRL_LINE_NUM = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.NF_BRL_LINE_NUM.V
ALUE;
&N_INV_ITEM_ID = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.INV_ITEM_ID.VALUE;
&N_QTY = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.QTY_NF_BRL.VALUE;
&N_QTY_AVAILABLE = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.QTY_NF_BRL.VALUE;
&N_ICMSTAX_BRL_AMT = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.ICMSTAX_BRL_AMT.V
ALUE;
&N_MMC_ICMS_SALDO = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.ICMSTAX_BRL_AMT.VA
LUE;
&N_IPITAX_BRL_AMT = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.IPITAX_BRL_AMT.VAL
UE;
&N_MMC_IPI_SALDO = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.IPITAX_BRL_AMT.VALU
E;
&N_PISTAX_BRL_AMT = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.PISTAX_BRL_AMT.VAL
UE;
&N_MMC_PIS_SALDO = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.PISTAX_BRL_AMT.VALU
E;
&N_COFINSTAX_BRL_AMT = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.COFINSTAX_BRL_A
MT.VALUE;
&N_MMC_COFINS_SALDO = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.COFINSTAX_BRL_AM
T.VALUE;
&N_ISSTAX_BRL_AMT = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.ISSTAX_BRL_AMT.VAL
UE;
&N_MMC_ISS_SALDO = &NF_NIVEL1.GetRow(&LN).NF_LN_BRL.ISSTAX_BRL_AMT.VALU
E;
rem ESSES DOIS CAMPOS PARA CONTROLAR INV_LOT_ID E SERIAL ID.;
&N_INV_LOT_ID = " ";
&N_SERIAL_ID = " ";
If None(&N_BUSINESS_UNIT) Or
None(&N_NF_BRL_ID) Or
None(&N_NF_BRL) Or
None(&N_NF_BRL_SERIES) Or
None(&N_VENDOR_ID) Or
None(&N_ADDRESS_SEQ_NUM) Then
Error ("Parametro em branco funo GRAVA_SALDO_NF_TERCEIRO. ");
End-If;
GRAVA_SALDO_NF_TERCEIRO(&N_BUSINESS_UNIT, &N_NF_BRL_ID, &N_NF_BRL, &N_N
F_BRL_SERIES, &N_VENDOR_ID, &N_ADDRESS_SEQ_NUM, &N_IRTAX_BRL_AMT, &N_MMC_IR_SALD
O, &N_NF_BRL_LINE_NUM, &N_INV_ITEM_ID, &N_INV_LOT_ID, &N_SERIAL_ID, &N_QTY, &N_Q
TY_AVAILABLE, &N_ICMSTAX_BRL_AMT, &N_MMC_ICMS_SALDO, &N_IPITAX_BRL_AMT, &N_MMC_I
PI_SALDO, &N_PISTAX_BRL_AMT, &N_MMC_PIS_SALDO, &N_COFINSTAX_BRL_AMT, &N_MMC_COFI
NS_SALDO, &N_ISSTAX_BRL_AMT, &N_MMC_ISS_SALDO);
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| FIM Criando saldo Estoque Terceiros.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
End-For;
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||
FIM CRIANDO RECEBIMENTO REMESSA E ORDEM
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */
Else
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||
INICIO TRIANGULAO
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */
SQLExec("select distrib_type, deptid from sysadm.ps_mmc_te_recv_par where
business_unit_recv=:1 and mmc_te_tipo_recv='2' and mmc_cntrl_terc='Y'", NF_HDR_B
RL.BUSINESS_UNIT, &VAR_DISTRIB_TYPE, &VAR_DEPTID);
&L1_NF = GetRowset(Scroll.NF_LN_BRL);
&L1_NF_TRIAN = GetRowset(Scroll.MMC_TE_S_NF_VW);
If &FLAG_EXECUTOU = "N" Then
&PAR_RECEIVER_ID = MMC_NUMERACAO_ID(1);
End-If;
&NUM_LINHAS_NF = &L1_NF.ActiveRowCount;
REM UNIDADE ESTOQUE TRIANGULAO;
/*
SQLExec("select business_unit_in from sysadm.ps_shipto_tbl where se
tid='MMCSA' and business_unit_recv=:1", NF_HDR_BRL.BUSINESS_UNIT, &TRI_BU_ESTOQU
E); */ /* mmcb.sds3239.lo */
SQLExec("select business_unit_in from sysadm.ps_shipto_tbl where setid= :1
and business_unit_recv=:2", &SETID, NF_HDR_BRL.BUSINESS_UNIT, &TRI_BU_ESTOQUE);
/*
Error ("SETID " | &SETID | " " | &TRI_BU_ESTOQUE | " - " | NF_HDR_
BRL.BUSINESS_UNIT); AQUI */
If None(&TRI_BU_ESTOQUE) Then
Error ("No foi possivel encontrar UN Estoque para Unidade Recebimento: "
| NF_HDR_BRL.BUSINESS_UNIT);
End-If;
For &INT = 1 To &NUM_LINHAS_NF;

If &INT = &NUM_LINHAS_NF Then
&ULTIMA_LINHA = "Y";
End-If;
&PAR_BUSINESS_UNIT = NF_HDR_BRL.BUSINESS_UNIT;
&PAR_RECEIVER_ID = &PAR_RECEIVER_ID;
&PAR_RECV_LN_NBR = &L1_NF.GetRow(&INT).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE;
&PAR_RECV_SHIP_SEQ_NBR = &L1_NF.GetRow(&INT).NF_LN_BRL.NF_BRL_LINE_NUM.
VALUE;
&PAR_VENDOR_ID = NF_HDR_BRL.VENDOR_ID;
&PAR_VNDR_LOC = NF_HDR_BRL.VNDR_LOC;
&PAR_NF_BRL = NF_HDR_BRL.NF_BRL;
&PAR_NF_BRL_SERIES = NF_HDR_BRL.NF_BRL_SERIES;
&PAR_NF_BRL_DATE = NF_HDR_BRL.NF_BRL_DATE;
&PAR_ADDRESS_SEQ_NUM = NF_HDR_BRL.ADDRESS_SEQ_NUM;
&PAR_SHIPTO_ID = NF_HDR_BRL.SHIPTO_ID;
/*
&PAR_SETID = "MMCSA"; */ /* mmcb.sds3239.lo */
&PAR_SETID = &SETID; /* mmcb.sds3239.ln */
&PAR_INV_ITEM_ID = &L1_NF.GetRow(&INT).NF_LN_BRL.INV_ITEM_ID.VALUE;
If MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "N" Then
&PAR_INV_LOT_ID = &L1_NF_TRIAN.GetRow(&INT).MMC_TE_WRK.INV_LOT_ID.VA
LUE;
&PAR_SERIAL_ID = &L1_NF_TRIAN.GetRow(&INT).MMC_TE_WRK.SERIAL_ID.VALU
E;
Else
&PAR_INV_LOT_ID = "NONE";
&PAR_SERIAL_ID = "NONE";
End-If;
&PAR_UNIT_OF_MEASURE = &L1_NF.GetRow(&INT).NF_LN_BRL.UNIT_OF_MEASURE.VA
LUE;
&PAR_QTD = &L1_NF.GetRow(&INT).NF_LN_BRL.QTY_NF_BRL.VALUE;
&PAR_PRECO_UNITARIO = &L1_NF.GetRow(&INT).NF_LN_BRL.UNIT_PRICE.VALUE;
&PAR_CUSTO_TERCEIRO_FLG = "Y";
&V_CUSTO_BU2 = &L1_NF.GetRow(&INT).NF_LN_BRL.BUSINESS_UNIT.VALUE;
&V_CUSTO_NF_ID2 = &L1_NF.GetRow(&INT).NF_LN_BRL.NF_BRL_ID.VALUE;
&V_CUSTO_NF_LN2 = &L1_NF.GetRow(&INT).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE;
If None(&V_CUSTO_BU2) Or
None(&V_CUSTO_NF_ID2) Or
None(&V_CUSTO_NF_LN2) Then
Error ("Erro Terceiro (02): No foi possivel encontar chave da NF para
calculo de custo.");
End-If;
SQLExec("select round( unit_price + ( ipitax_brl_amt/ qty_nf_brl)+( fre
ight_amt/ qty_nf_brl)- ( pis_amt_bbl/ qty_nf_brl) -( cofins_amt_bbl/ qty_nf_
brl) - ( ipitax_brl_rcvry/ qty_nf_brl) - ( icmstax_brl_rcvry/ qty_nf_brl)- ( d
scnt_amt/ qty_nf_brl),4) from sysadm.ps_nf_ln_brl where business_unit = :1 and n
f_brl_id = :2 and nf_brl_line_num = :3 ", &V_CUSTO_BU2, &V_CUSTO_NF_ID2, &V_CUST
O_NF_LN2, &PAR_CUSTO_TERCEIRO);
&PAR_BUSINESS_UNIT_IN = &TRI_BU_ESTOQUE;
/*
&PAR_BUSINESS_UNIT_GL = "MMCSA"; */ /* mmcb.sds3239.lo */
&PAR_BUSINESS_UNIT_GL = &SETID; /* mmcb.sds3239.ln */
&PAR_DESCR_ITEM = &L1_NF.GetRow(&INT).NF_LN_BRL.DESCR.VALUE;
/*
SQLExec("select account from sysadm.ps_itm_purch_vw where se
tid='MMCSA' and inv_item_id =:1 ", &PAR_INV_ITEM_ID, &PAR_ACCOUNT); */ /* mmcb.s
ds3239.lo */
SQLExec("select account from sysadm.ps_itm_purch_vw where setid=:1 and
inv_item_id =:2 ", &SETID, &PAR_INV_ITEM_ID, &PAR_ACCOUNT); /* mmcb.sds3239.ln *
/
&PAR_DEPTID = &VAR_DEPTID;
&PAR_BUSINESS_UNIT_PO = &L1_NF.GetRow(&INT).MMC_TE_OP_WRK.BUSINESS_U
NIT_PO.VALUE;
&PAR_PO_ID = &L1_NF.GetRow(&INT).MMC_TE_OP_WRK.PO_ID.VALUE;
&PAR_PO_LINE_NBR = &L1_NF.GetRow(&INT).MMC_TE_OP_WRK.LINE_NBR.VALUE;
&PAR_PO_SCHED_NBR = &L1_NF.GetRow(&INT).MMC_TE_OP_WRK.SCHED_NBR.VALU
E;
If None(&PAR_BUSINESS_UNIT_PO) Or
None(&PAR_PO_ID) Or
None(&PAR_PO_LINE_NBR) Or
None(&PAR_PO_SCHED_NBR) Then
Error ("Error existe valores em branco com informaes Ordem Compra d
e Industrializao. ");
End-If;
Else
&PAR_PO_ID = " ";
&PAR_PO_LINE_NBR = 0;
&PAR_PO_SCHED_NBR = 0;
&PAR_BUSINESS_UNIT_PO = NF_HDR_BRL.BUSINESS_UNIT;
End-If;
/*SQLExec("select inventory_item from sysadm.ps_master_item_tbl where s
etid='MMCSA' and inv_item_id=:1", &PAR_INV_ITEM_ID, &ITEM_ESTOQUE);*/ /*mmcb.sds
3239.lo*/
SQLExec("select inventory_item from sysadm.ps_master_item_tbl where set
id=:1 and inv_item_id=:2", &SETID, &PAR_INV_ITEM_ID, &ITEM_ESTOQUE); /*mmcb.sds3
239.ln*/
If &ITEM_ESTOQUE <> "Y" Then
Error ("Item: " | &PAR_INV_ITEM_ID | " no de estoque");
End-If;
/*SQLExec("select distrib_type from sysadm.ps_mmc_te_recv_par where bus
iness_unit_recv=:1 and eff_status='A' and mmc_te_tipo_recv='2'", NF_HDR_BRL.BUSI
NESS_UNIT, &PAR_DISTRIB_TYPE);*/ /*mmcb.sds4388.lo*/
SQLExec("select distrib_type from sysadm.ps_mmc_te_recv_par where busin
ess_unit_recv=:1 and eff_status='A' and mmc_te_tipo_recv IN ('2','3')", NF_HDR_B
RL.BUSINESS_UNIT, &PAR_DISTRIB_TYPE); /*mmcb.sds4388.ln*/
If None(&PAR_DISTRIB_TYPE) Or
&PAR_DISTRIB_TYPE = "" Or
&PAR_DISTRIB_TYPE = " " Then
Error ("No foi possivel localicar distribuio para UN: " | NF_HDR_BRL.BU
SINESS_UNIT);
End-If;
CRIA_RECV_FISICO_TRIAN(&PAR_BUSINESS_UNIT, &PAR_RECEIVER_ID, &PAR_RECV_
LN_NBR, &PAR_RECV_SHIP_SEQ_NBR, &PAR_VENDOR_ID, &PAR_VNDR_LOC, &PAR_NF_BRL, &PAR
_NF_BRL_SERIES, &PAR_NF_BRL_DATE, &PAR_ADDRESS_SEQ_NUM, &PAR_SHIPTO_ID, &PAR_SET
ID, &PAR_DEPTID, &PAR_INV_ITEM_ID, &PAR_INV_LOT_ID, &PAR_SERIAL_ID, &PAR_UNIT_OF
_MEASURE, &PAR_QTD, &PAR_PRECO_UNITARIO, &PAR_CUSTO_TERCEIRO_FLG, &PAR_CUSTO_TER
CEIRO, &PAR_BUSINESS_UNIT_IN, &PAR_BUSINESS_UNIT_GL, &PAR_BUSINESS_UNIT_PO, &PAR
_PO_ID, &PAR_PO_LINE_NBR, &PAR_PO_SCHED_NBR, &PAR_DESCR_ITEM, &PAR_ACCOUNT, &ULT
IMA_LINHA, &PAR_DISTRIB_TYPE);
rem
geraPreRecebimento(&PAR_BUSINESS_UNIT, &PAR_RECEIVER_ID, &P
AR_RECV_LN_NBR, "Y"); /** MMCB.SDS3562.LN **/
/*geraPreRecebimento(&PAR_BUSINESS_UNIT, &PAR_RECEIVER_ID, &PAR_RECV_LN
_NBR);*/ /** MMCB.SDS3562.LN **/
&NF_BRL_LINE_NUM = &L1_NF.GetRow(&INT).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE;
/****************************************mmcb.hd138301.so**************
**************************/
/*SQLExec("update sysadm.ps_nf_ln_brl set business_unit_recv=:1, receiv
er_id=:2, recv_ln_nbr=:3, recv_ship_seq_nbr=:4, po_id=:5 where business_unit=:6
and nf_brl_id=:7 and nf_brl_line_num=:8", NF_HDR_BRL.BUSINESS_UNIT, &PAR_RECEIVE
R_ID, &L1_NF.GetRow(&INT).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE, &L1_NF.GetRow(&INT).N
F_LN_BRL.NF_BRL_LINE_NUM.VALUE, " ", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL
_ID, &L1_NF.GetRow(&INT).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE);*/
/****************************************mmcb.hd138301.eo**************
**************************/
/****************************************mmcb.hd138301.sn**************
**************************/
SQLExec("update sysadm.ps_nf_ln_brl set business_unit_recv=:1, receiver
_id=:2, recv_ln_nbr=:3, recv_ship_seq_nbr=:4, po_id=:5 where business_unit=:6 an
d nf_brl_id=:7 and nf_brl_line_num=:8", NF_HDR_BRL.BUSINESS_UNIT, &PAR_RECEIVER_
ID, &L1_NF.GetRow(&INT).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE, &L1_NF.GetRow(&INT).NF_
LN_BRL.NF_BRL_LINE_NUM.VALUE, &PAR_PO_ID, NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.N
F_BRL_ID, &L1_NF.GetRow(&INT).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE);
/****************************************mmcb.hd138301.en**************
**************************/
If (&PAR_RECEIVER_ID) <> "NONE" Then /* mmcb.hd233763.ln */
SQLExec("update sysadm.ps_recv_hdr set recv_status = 'M', intfc_asse
t = 'N', intfc_inventory = 'N', intfc_mg = 'N', flg_nf_fiscal_pbl = 'N' where bu
siness_unit=:1 and receiver_id=:2", NF_HDR_BRL.BUSINESS_UNIT, &PAR_RECEIVER_ID);
End-If; /* mmcb.hd233763.ln */
&FLAG_EXECUTOU = "Y";
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| Austando saldo Estoque Terceiros.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
If MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "N" Then
&N1_BUSINESS_UNIT = &L1_NF_TRIAN.GetRow(&INT).MMC_TE_S_NF_VW.BUSINES
S_UNIT.VALUE;
&N1_NF_BRL_ID = &L1_NF_TRIAN.GetRow(&INT).getrecord(Record.MMC_TE_S_
NF_VW).NF_BRL_ID.VALUE;
&N1_NF_BRL_LINE_NUM = &L1_NF_TRIAN.GetRow(&INT).MMC_TE_S_NF_VW.NF_BR
L_LINE_NUM.VALUE;
&N1_QTY_AVAILABLE = &L1_NF.GetRow(&INT).NF_LN_BRL.QTY_NF_BRL.VALUE;
&N1_MMC_ICMS_SALDO = &L1_NF.GetRow(&INT).NF_LN_BRL.ICMSTAX_BRL_AMT.V
ALUE;
&N1_MMC_IPI_SALDO = &L1_NF.GetRow(&INT).NF_LN_BRL.IPITAX_BRL_AMT.VAL
UE;
&N1_MMC_PIS_SALDO = &L1_NF.GetRow(&INT).NF_LN_BRL.PISTAX_BRL_AMT.VAL
UE;
&N1_MMC_COFINS_SALDO = &L1_NF.GetRow(&INT).NF_LN_BRL.COFINSTAX_BRL_A
MT.VALUE;
&N1_MMC_ISS_SALDO = &L1_NF.GetRow(&INT).NF_LN_BRL.ISSTAX_BRL_AMT.VAL
UE;
AJUSTA_SALDO_NF_TERCEIRO(&N1_BUSINESS_UNIT, &N1_NF_BRL_ID, &N1_NF_BR
L_LINE_NUM, &N1_QTY_AVAILABLE, &N1_MMC_ICMS_SALDO, &N1_MMC_IPI_SALDO, &N1_MMC_PI
S_SALDO, &N1_MMC_COFINS_SALDO, &N1_MMC_ISS_SALDO);
End-If;
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||||||||
|| FIM Ajustando saldo Estoque Terceiros.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
End-For;
/* SQLExec("update sysadm.ps_nf_hdr_brl set voucher_flow_pbl='N' where bus
iness_unit=:1 and nf_brl_id=:2", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID)
; */
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||
FIM TRIANGULAO
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */
End-If;
/* IF MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N" THEN */
If (&PAR_RECEIVER_ID) <> "NONE" Then /* mmcb.hd233763.ln */
SQLExec("update sysadm.ps_recv_hdr set flg_nf_fiscal_pbl='Y' where busines
s_unit=:1 and receiver_id=:2 ", NF_HDR_BRL.BUSINESS_UNIT, &PAR_RECEIVER_ID);
End-If; /* mmcb.hd233763.ln */
SQLExec("update sysadm.ps_nf_hdr_brl set business_unit_recv=:1, receiver_id=:
2 where business_unit=:3 and nf_brl_id=:4", NF_HDR_BRL.BUSINESS_UNIT, &PAR_RECEI
VER_ID, NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID);
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|| INICIO BAIXA NA TRIANGULAO
||
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */
If MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "Y" And
REM *******************************************;
REM PEGA UNIDADE NEGOCIO ESTOQUE;
REM *******************************************;
/* SQLExec("select business_unit_in from sysadm.ps_mmc_te_recv_par where b
usiness_unit_recv =:1 and eff_status='A' and mmc_cntrl_terc='Y'", NF_HDR_BRL.BUS
INESS_UNIT, &B_BUSINESS_UNIT); */
For &B = 1 To &L1_NF.ActiveRowCount;
&BUNITS = &L1_NF_TRIAN.GetRow(&B).MMC_TE_S_NF_VW.BUSINESS_UNIT.VALUE;
&NFS = &L1_NF_TRIAN.GetRow(&B).MMC_TE_S_NF_VW.NF_BRL_ID.VALUE;
/*
SQLExec("SELECT T.MMC_STOCK_UN, COUNT( DISTINCT T.MMC_STOCK_
UN ) FROM SYSADM.PS_NF_LN_BRL N, SYSADM.PS_MMC_TE_TOF_TYPE T WHERE N.BUSINESS_
UNIT = :1 AND N.NF_BRL_ID = :2 AND T.TOF_PBL = N.TOF_PBL AND 'O' = ( SELECT INOU
T_FLG_PBL FROM SYSADM.PS_NF_HDR_BRL WHERE BUSINESS_UNIT = N.BUSINESS_UNIT AND NF
_BRL_ID = N.NF_BRL_ID ) AND T.EFFDT = (SELECT MAX(TI.EFFDT) FROM SYSADM.PS_MMC_T
E_TOF_TYPE TI WHERE TI.TOF_PBL = T.TOF_PBL ) GROUP BY T.MMC_STOCK_UN UNION SEL
ECT S.BUSINESS_UNIT_IN, COUNT( DISTINCT S.BUSINESS_UNIT_IN) FROM SYSADM.PS_SHI
PTO_TBL S WHERE S.SETID = 'MMCSA' AND S.BUSINESS_UNIT_RECV = :3 AND 'I' = ( SEL
ECT INOUT_FLG_PBL FROM SYSADM.PS_NF_HDR_BRL WHERE BUSINESS_UNIT = :4 AND NF_BRL_
ID = :5 ) AND S.EFFDT = ( SELECT MAX(SI.EFFDT) FROM SYSADM.PS_SHIPTO_TBL SI WHER
E SI.SETID = S.SETID AND SI.BUSINESS_UNIT_RECV = S.BUSINESS_UNIT_RECV ) GROUP BY
S.BUSINESS_UNIT_IN", &BUNITS, &NFS, &BUNITS, &BUNITS, &NFS, &B_BUSINESS_UNIT, &
CONTA_BU); */ /* mmcb.sds3239.lo */
SQLExec("SELECT T.MMC_STOCK_UN, COUNT( DISTINCT T.MMC_STOCK_UN ) FROM
SYSADM.PS_NF_LN_BRL N, SYSADM.PS_MMC_TE_TOF_TYPE T WHERE N.BUSINESS_UNIT = :1 A
ND N.NF_BRL_ID = :2 AND T.TOF_PBL = N.TOF_PBL AND 'O' = ( SELECT INOUT_FLG_PBL F
ROM SYSADM.PS_NF_HDR_BRL WHERE BUSINESS_UNIT = N.BUSINESS_UNIT AND NF_BRL_ID = N
.NF_BRL_ID ) AND T.EFFDT = (SELECT MAX(TI.EFFDT) FROM SYSADM.PS_MMC_TE_TOF_TYPE
TI WHERE TI.TOF_PBL = T.TOF_PBL ) GROUP BY T.MMC_STOCK_UN UNION SELECT S.BUSI
NESS_UNIT_IN, COUNT( DISTINCT S.BUSINESS_UNIT_IN) FROM SYSADM.PS_SHIPTO_TBL S W
HERE S.SETID = :3 AND S.BUSINESS_UNIT_RECV = :4 AND 'I' = ( SELECT INOUT_FLG_PB
L FROM SYSADM.PS_NF_HDR_BRL WHERE BUSINESS_UNIT = :5 AND NF_BRL_ID = :6 ) AND S.
EFFDT = ( SELECT MAX(SI.EFFDT) FROM SYSADM.PS_SHIPTO_TBL SI WHERE SI.SETID = S.S
ETID AND SI.BUSINESS_UNIT_RECV = S.BUSINESS_UNIT_RECV ) GROUP BY S.BUSINESS_UNIT
_IN", &BUNITS, &NFS, &SETID, &BUNITS, &BUNITS, &NFS, &B_BUSINESS_UNIT, &CONTA_BU
); /* mmcb.sds3239.ln */
If (&NFS = "DS00000001") Or
(&NFS = "DS00000002") Or
(&NFS = "DS00000003") Then
&B_BUSINESS_UNIT = "ESTEC"; /* CLAUDIO FABIANO */
&CONTA_BU = 1;
End-If;
If &B = 1 Then
&BUNITS_TEMP = &B_BUSINESS_UNIT;
End-If;
If None(&B_BUSINESS_UNIT) Or
&CONTA_BU <> 1 Then
/*Error ("Unidades de Negcio de retirada de material diferentes para
linhas da NF ( " | &BUNITS | " - " | &NFS | " - " | &BUNITS | " - " | &BUNITS |
" - " | &NFS | " - " | &B_BUSINESS_UNIT | " )");*/
End-If;
If None(&B_BUSINESS_UNIT) Then
Error ("No foi possivel encontar Unidade Negocio Estoque");
End-If;
If &BUNITS_TEMP <> &B_BUSINESS_UNIT Then
Error ("Unidades de Negcio de retirada de material diferentes para li
nhas da NF");
End-If;
&B_INV_ITEM_ID = &L1_NF_TRIAN.GetRow(&B).MMC_TE_S_NF_VW.INV_ITEM_ID.VAL
UE;
&B_INV_LOT_ID = &L1_NF_TRIAN.GetRow(&B).MMC_TE_WRK.INV_LOT_ID.VALUE;
&B_SERIAL_ID = &L1_NF_TRIAN.GetRow(&B).MMC_TE_WRK.SERIAL_ID.VALUE;
&B_CONTAINER_ID = " ";
rem este select ja pega QTD do item convertida do Recebimento de proces
so;
SQLExec("select qty_sh_recvd_suom, UNIT_MEASURE_STD from sysadm.ps_recv
_ln_ship where business_unit =:1 and receiver_id =:2 and recv_ln_nbr= :3 and rec
v_ship_seq_nbr=:4", NF_HDR_BRL.BUSINESS_UNIT, &PAR_RECEIVER_ID, &L1_NF.GetRow(&B
).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE, &L1_NF.GetRow(&B).NF_LN_BRL.NF_BRL_LINE_NUM.V
ALUE, &B_QTD, &B_UNIT_OF_MEASURE);
If None(&B_UNIT_OF_MEASURE) Or
None(&B_QTD) Then
Error ("Erro Unidade Medida ou Qtd no Recebimento: " | &PAR_RECEIVER
_ID | " Item: " | &L1_NF.GetRow(&B).NF_LN_BRL.INV_ITEM_ID.VALUE);
End-If;
&B_DT_TIMESTAMP = %Datetime;
&B_ORDER_NO = &L1_NF.GetRow(&B).NF_LN_BRL.NF_BRL_ID.VALUE;
&B_ORDER_INT_LINE_NO = &L1_NF.GetRow(&B).NF_LN_BRL.NF_BRL_LINE_NUM.VALU
E;
&B_TRANSACTION_DATE = %Date;
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
UANTIDADE ";
&SELECT1
=
=
=
=
=
=
=
=
=
=
=
=
"
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
&SELECT1
|
|
|
|
|
|
|
|
|
|
|
SELECT STORAGE_AREA, ";

"
STOR_LEVEL_1, ";
"
STOR_LEVEL_2, ";
"
STOR_LEVEL_3, ";
"
STOR_LEVEL_4, ";
"
QUANTIDADE FROM ( ";
" SELECT A.STORAGE_AREA, ";
"
A.STOR_LEVEL_1, ";
"
A.STOR_LEVEL_2, ";
"
A.STOR_LEVEL_3, ";
"
A.STOR_LEVEL_4 , ";
"
MAX(A.QTY_BASE - A.QTY_RESERVED_BASE) Q
= &SELECT1 | "
FROM SYSADM.PS_PHYSICAL_INV A, SYSADM.PS
_STOR_LOC_INV B, SYSADM.PS_MMC_END_POR_SIS C ";

/* &SELECT1 = &SELECT1 | "
WHERE A.BUSINESS_UNIT ='" | &B_BUSINE
SS_UNIT | "' "; mmcb.hd219399.lo */
WHERE A.BUSINESS_UNIT =:1 "; /*mmcb.hd21
9399.ln*/
AND A.INV_ITEM_ID ='" | &B_INV_ITEM_I
D | "' ";
mmcb.hd219399.lo*/
AND A.INV_ITEM_ID =:2 "; /*mmcb.hd219399
.ln*/
AND A.INV_LOT_ID ='" | &B_INV_LOT_ID
| "' ";
mmcb.hd219399.lo*/
AND A.INV_LOT_ID =:3 "; /*mmcb.hd219399.
ln*/
AND A.SERIAL_ID ='" | &B_SERIAL_ID |
"' ";
mmcb.hd219399.lo*/
AND A.SERIAL_ID =:4 "; /*mmcb.hd219399.l
n*/
AND A.CONTAINER_ID ='" | &B_CONTAINER
_ID | "' ";
mmcb.hd219399.lo*/
AND A.CONTAINER_ID =:5 "; /*mmcb.hd21939
9.ln*/
AND A.BUSINESS_UNIT = B.BUSINESS_UNIT ";
AND A.STORAGE_AREA = B.STORAGE_AREA ";
AND A.STOR_LEVEL_1 = B.STOR_LEVEL_1 ";
AND B.SUSPEND_FLG = 'N' ";
AND B.NETTABLE_FLG = 'Y' ";
AND B.PHYS_CYC_INV_FLG = 'N' ";
/*&SELECT1 = &SELECT1 | "
AND B.WIP_LOC_FLG = 'N' ";*/ /*mmcb.hd
170820.lo*/
/************************************* mmcb.hd170820.sn ***************
**********************/
/*Considera rea Wip apenas para a MMC*/
If &SETID = "MMCSA" Then
AND B.WIP_LOC_FLG = 'N' ";
End-If;
/************************************* mmcb.hd170820.en ***************
**********************/
NESS_UNIT | "' ";
/* &SELECT1a = &SELECT1 | "
' ";
mmcb.hd219399.lo*/
&SELECT1a = &SELECT1 | "
399.ln*/
/* mmcb.hd219399 so */
ROM SYSADM.PS_MMC_END_POR_SIS W ";
C.MMC_SISTEMA = W.MMC_SISTEMA ";
C.BUSINESS_UNIT = W.BUSINESS_UNIT ";
AND C.MMC_SISTEMA = '01' ";

AND C.BUSINESS_UNIT='" | NF_HDR_BRL.BUSI
AND C.BUSINESS_UNIT='" | &BUNITS | "
AND C.BUSINESS_UNIT =:6 "; /*mmcb.hd219
AND C.MMC_TE_TIPO_LOCAL='2' ";
AND C.EFFDT = ( SELECT MAX(W.EFFDT) F
WHERE
AND
AND
C.MMC_TE_TIPO_LOCAL = W.MMC_TE_TIPO_LOCAL) "; */

/* mmcb.hd219399 eo */
AND C.EFF_STATUS='A' ";
AND B.STORAGE_AREA = C.STORAGE_AREA ";
AND B.STOR_LEVEL_1 = C.STOR_LEVEL_1 ";
AND A.AVAIL_STATUS = '1' ";
AND ( A.QTY_BASE - A.QTY_RESERVED_B
ASE) > 0 ";
AND ( A.QTY_BASE - A.QTY_RESERVE
D_BASE) >= " | &B_QTD; mmcb.hd219399.lo */
AND ( A.QTY_BASE - A.QTY_RESERVED_B
ASE) >=:7 "; /* mmcb.hd219399.ln */
GROUP BY A.STORAGE_AREA, A.STOR_LEVEL_1
, A.STOR_LEVEL_2, A.STOR_LEVEL_3, A.STOR_LEVEL_4 ";
ORDER BY QUANTIDADE DESC ";
&SELECT1 = &SELECT1 | " ) WHERE ROWNUM = 1
";
SQLExec(&SELECT1, &B_BUSINESS_UNIT, &B_INV_ITEM_ID, &B_INV_LOT_ID, &B_S
ERIAL_ID, &B_CONTAINER_ID, &BUNITS, &B_QTD, &DF_STORAGE_AREA, &DF_STOR_LEVEL_1,
&DF_STOR_LEVEL_2, &DF_STOR_LEVEL_3, &DF_STOR_LEVEL_4, &DF_QTD);
If None(&DF_STORAGE_AREA) Or
None(&DF_STOR_LEVEL_1)
Or
Or
Or
Then
Error ("No existe saldo suficiente para Unidade: " | &B_BUSINESS_UNIT

| " Item: " | &B_INV_ITEM_ID | " para efetuar baixa estoque");
Else
&B_STORAGE_AREA
&B_STOR_LEVEL_1
&B_STOR_LEVEL_2
&B_STOR_LEVEL_3
&B_STOR_LEVEL_4
=
=
=
=
=
&DF_STORAGE_AREA;
&DF_STOR_LEVEL_1;
&DF_STOR_LEVEL_2;
&DF_STOR_LEVEL_3;
&DF_STOR_LEVEL_4;
End-If;
&B_DEPTID = &VAR_DEPTID;
&B_DISTRIB_TYPE = &VAR_DISTRIB_TYPE;
&B_SHIP_ID = " ";
&B_SOURCE_BUS_UNIT = &L1_NF_TRIAN.GetRow(&B).MMC_TE_S_NF_VW.BUSINESS_UN
IT.VALUE;
/*********************************************** mmcb.hd111096.sn *****
******************************************/
If (None(&B_INV_LOT_ID) Or
&B_INV_LOT_ID = " ") Then
&B_INV_LOT_ID = "NONE";
End-If;
If (None(&B_SERIAL_ID) Or
&B_SERIAL_ID = " ") Then
&B_SERIAL_ID = "NONE";
End-If;
/*********************************************** mmcb.hd111096.en *****
******************************************/
BAIXA_ESTOQUE(&B_BUSINESS_UNIT, &B_INV_ITEM_ID, &B_INV_LOT_ID, &B_QTD,
E_BUS_UNIT);
SDATE -1 and dt_timestamp <= SYSDATE +1 and order_no=:3 and order_int_line_no =:
4 and transaction_group='030' ", &B_BUSINESS_UNIT, &B_INV_ITEM_ID, &B_ORDER_NO,
&B_ORDER_INT_LINE_NO, &TRANSAC_DT_TIMESTAMP, &TRANSAC_SEQ_NBR);
If None(&TRANSAC_DT_TIMESTAMP) Or
None(&TRANSAC_SEQ_NBR) Then
Error (" Erro: 1 - No foi encontradao DT_TIMESTAMP ou SEQ_NBR para gr
avar na tabela Transao Terceiros.");
End-If;
&TR_SETID = " ";
&TR_MMC_TE_SOL_ID = 0;
&TR_LINE_NBR = 0;
&TR_BUSINESS_UNIT_BI = NF_HDR_BRL.BUSINESS_UNIT;
&TR_NF_BRL_ID = NF_HDR_BRL.NF_BRL_ID;
&TR_NF_BRL_LINE_NUM = &L1_NF.GetRow(&B).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE
;
&TR_MMC_TE_OPERACAO = "100";
&TR_BUSINESS_UNIT = &B_BUSINESS_UNIT;
&TR_INV_ITEM_ID = &B_INV_ITEM_ID;
&TR_DT_TIMESTAMP = &TRANSAC_DT_TIMESTAMP;
&TR_SEQ_NBR = &TRANSAC_SEQ_NBR;
&TR_TRANSACTION_GROUP = "030";
&TR_BUSINESS_UNIT_TO = " ";
&TR_DT_TIMESTAMP_TO = Date3(1900, 1, 1);
&TR_SEQ_NBR_TO = 0;
&TR_MMC_TRAN_GROUP = " ";
&TR_MMC_UN_ORIGEM = &L1_NF_TRIAN.GetRow(&B).MMC_TE_S_NF_VW.BUSINESS_UNI
T.VALUE;
&TR_NF_ID_ORIGEM = &L1_NF_TRIAN.GetRow(&B).MMC_TE_S_NF_VW.NF_BRL_ID.VAL
UE;
&TR_NF_LINE_ORIGEM = &L1_NF_TRIAN.GetRow(&B).MMC_TE_S_NF_VW.NF_BRL_LINE
_NUM.VALUE;
GRAVA_TRANSACAO_TERCEIROS(&TR_SETID, &TR_MMC_TE_SOL_ID, &TR_LINE_NBR, &
TR_BUSINESS_UNIT_BI, &TR_NF_BRL_ID, &TR_NF_BRL_LINE_NUM, &TR_MMC_TE_OPERACAO, &T
R_BUSINESS_UNIT, &TR_INV_ITEM_ID, &TR_DT_TIMESTAMP, &TR_SEQ_NBR, &TR_TRANSACTION

_GROUP, &TR_BUSINESS_UNIT_TO, &TR_DT_TIMESTAMP_TO, &TR_SEQ_NBR_TO, &TR_MMC_TRAN_
GROUP, &TR_MMC_UN_ORIGEM, &TR_NF_ID_ORIGEM, &TR_NF_LINE_ORIGEM);
/*********** mmcb.sds3211.sn ***********/
&SQL_INSERT1 = " INSERT INTO SYSADM.PS_MMC_CONTR_DEVOL SELECT DISTINCT
A.BUSINESS_UNIT_BI BUSINESS_UNIT_AR, C.RECEIVER_ID RECEIVER_ID, A.NF_BRL_ID NF_B
RL_ID, A.MMC_UN_ORIGEM BUSINESS_UNIT, B.NF_BRL NF_BRL, B.NF_BRL_SERIES NF_BRL_SE
RIES, A.MMC_NF_LINE_ORIGEM NF_BRL_LINE_NUM, C.INV_ITEM_ID INV_ITEM_ID, C.QTY_NF_
BRL QTY_NF_BRL, TO_DATE(SYSDATE) ACK_RECEIVED_DT, C.MERCHANDISE_AMT MERCH_AMT_BS
E, C.IPITAX_BRL_PCT IPITAX_BRL_PCT, C.ICMSTAX_BRL_PCT ICMSTAX_BRL_PCT ";
&SQL_INSERT2 = " FROM SYSADM.PS_MMC_TE_TRANSAC A, SYSADM.PS_NF_HDR_BRL
B, SYSADM.PS_NF_LN_BRL C, SYSADM.PS_NF_HDR_BRL D WHERE B.BUSINESS_UNIT = A.MMC_U
N_ORIGEM AND B.NF_BRL_ID = A.MMC_NF_ID_ORIGEM AND C.BUSINESS_UNIT = A.BUSINESS_U
NIT_BI AND C.NF_BRL_ID = A.NF_BRL_ID AND C.NF_BRL_LINE_NUM = A.NF_BRL_LINE_NUM A
ND D.BUSINESS_UNIT = C.BUSINESS_UNIT AND D.NF_BRL_ID = C.NF_BRL_ID AND A.BUSINE
SS_UNIT_BI = :1 AND C.RECEIVER_ID = :2 AND A.NF_BRL_ID = :3 AND A.MMC_NF_LINE_OR
IGEM = :4 AND A.INV_ITEM_ID = :5 AND A.MMC_NF_ID_ORIGEM <> ' ' ";
&SQL_INSERT3 = " AND NOT EXISTS (SELECT 'Y' FROM SYSADM.PS_MMC_CONTR_DE
VOL X WHERE X.BUSINESS_UNIT_AR = A.BUSINESS_UNIT_BI AND X.RECEIVER_ID = C.RECEIV
ER_ID AND X.NF_BRL_ID = A.NF_BRL_ID) ";
&SQL_INSERTT = &SQL_INSERT1 | &SQL_INSERT2 | &SQL_INSERT3;
SQLExec(&SQL_INSERTT, &TR_BUSINESS_UNIT_BI, &PAR_RECEIVER_ID, &TR_NF_BR
L_ID, &TR_NF_LINE_ORIGEM, &TR_INV_ITEM_ID);
/*********** mmcb.sds3211.en ***********/
End-For;
End-If;
/* MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "Y" And
*/
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|| FIM BAIXA NA TRIANGULAO
||
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| */
/*===========================================================================
=
INICIO: Gerando Entrada Estoque
============================================================================*/
/****************************************************************************
*********************************************
SQLExec("select 'X' from ps_recv_hdr a , ps_vendor b where a.vendor_setid = b
.setid and a.vendor_id = b.vendor_id and (a.recv_status = 'R' or a.intfc_asset =
'Y' or a.intfc_inventory = 'Y' or a.intfc_mg = 'Y') and a.flg_nf_fiscal_pbl = '
Y' and exists ( select 'X' from ps_nf_hdr_brl where ps_nf_hdr_brl.business_unit_
recv = a.business_unit and ps_nf_hdr_brl.receiver_id = a.receiver_id and ps_nf_h
dr_brl.nf_brl_status <> 'O' and ps_nf_hdr_brl.nf_brl_status <> 'X' and ps_nf_hdr
_brl.appr_status = 'A') and a.business_unit=:1 and a.receiver_id=:2", NF_HDR_BRL
.BUSINESS_UNIT, &PAR_RECEIVER_ID, &RECV_NO_PROCESSO);
If &RECV_NO_PROCESSO = "X" Then
********************************************************************************
********************************/
SQLExec("select business_unit_in from sysadm.ps_mmc_te_recv_par where busines
s_unit_recv =:1 and eff_status='A' and mmc_cntrl_terc='Y'", NF_HDR_BRL.BUSINESS_
UNIT, &BU_ESTOQUE);
If None(&BU_ESTOQUE) Then
SQLExec(" select distinct business_unit_in from sysadm.ps_recv_ln_ship whe
re business_unit =:1 and receiver_id =:2 and rownum = 1 ", NF_HDR_BRL.BUSINESS_U
NIT, &PAR_RECEIVER_ID, &BU_ESTOQUE);
&REMESSA_CONTA_ORDEM = "N";
Else
&REMESSA_CONTA_ORDEM = "Y";
End-If;
&xSQL1 = "select d.lot_id, d.container_id, b.inv_item_id, d.serial_id, b.rece
iver_id, b.recv_ln_nbr, b.recv_ship_seq_nbr, a.business_unit, c.distrib_line_num
, c.recv_ship_seq_nbr, c.po_id, c.line_nbr, b.inspect_status, d.actual_cost, b.c
onversion_rate, b.qty_ln_inv_suom, b.unit_measure_std, a.vendor_id, b.production
_id, e.op_seq, d.storage_code, c.distrib_type, b.config_code, c.account, c.altac
ct, c.operating_unit, c.deptid, c.product, c.project_id, c.activity_id, c.resour
ce_type, c.resource_category, c.resource_sub_cat, c.analysis_type, c.business_un
it_pc, c.consigned_flag from ps_recv_hdr a, ";
&xSQL2 = " ps_recv_ln_ship b, ps_recv_ln_distrib c, ps_recv_ln_asset d, ps_re
cv_ln_insp e where a.business_unit = :1 and a.receiver_id = :2 and a.business_u
nit = b.business_unit and a.receiver_id = b.receiver_id and b.business_unit = c.
business_unit and b.receiver_id = c.receiver_id and b.recv_ln_nbr = c.recv_ln_nb
r and b.recv_ship_seq_nbr = c.recv_ship_seq_nbr and b.business_unit = d.business
_unit and b.receiver_id = d.receiver_id and b.recv_ln_nbr = d.recv_ln_nbr and b.
recv_ship_seq_nbr = d.recv_ship_seq_nbr and b.business_unit = e.business_unit an
d b.receiver_id = e.receiver_id and b.recv_ln_nbr = e.recv_ln_nbr ";
&xSQL = &xSQL1 | &xSQL2;
&sqlRECV = CreateSQL(&xSQL, NF_HDR_BRL.BUSINESS_UNIT, &PAR_RECEIVER_ID);
While &sqlRECV.fetch(&R_LOT_ID, &R_CONTAINER_ID, &R_INV_ITEM_ID, &R_SERIAL_ID
, &R_RECEIVER_ID, &R_RECV_LN_NBR, &R_RECV_SHIP_SEQ_NBR, &R_BUSINESS_UNIT, &R_DIS
TRIB_LINE_NUM, &R_RECV_SHIP_SEQ_NBR, &R_PO_ID, &R_LINE_NBR, &R_INSPECT_STATUS, &
R_ACTUAL_COST, &R_CONVERSION_RATE, &R_QTY_LN_INV_SUOM, &R_UNIT_MEASURE_STD, &R_V
ENDOR_ID, &R_PRODUCTION_ID, &R_OP_SEQ, &R_STORAGE_CODE, &R_DISTRIB_TYPE, &R_CONF
IG_CODE, &R_ACCOUNT, &R_ALTACCT, &R_OPERATING_UNIT, &R_DEPTID, &R_PRODUCT, &R_PR
OJECT_ID, &R_ACTIVITY_ID, &R_RESOURCE_TYPE, &R_RESOURCE_CATEGORY, &R_RESOURCE_SU
B_CAT, &R_ANALYSIS_TYPE, &R_BUSINESS_UNIT_PC, &R_CONSIGNED_FLAG)
/*
If &REMESSA_CONTA_ORDEM = "Y" Then */
SQLExec("select round( d.unit_price + ( d.ipitax_brl_amt/ d.qty_nf_brl)- (
d.pis_amt_bbl/ d.qty_nf_brl) -( d.cofins_amt_bbl/ d.qty_nf_brl) - ( d.ipit

ax_brl_rcvry/ d.qty_nf_brl) - ( d.icmstax_brl_rcvry/ d.qty_nf_brl)- ( d.dscnt_a
mt/ d.qty_nf_brl),4) custo_poter from sysadm.ps_nf_ln_brl d where d.business_un
it=:1 and d.nf_brl_id=:2 and d.business_unit_recv=:3 and d.receiver_id=:4 and d.
recv_ln_nbr=:5 and d.recv_ship_seq_nbr=:6", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL
.NF_BRL_ID, NF_HDR_BRL.BUSINESS_UNIT, &R_RECEIVER_ID, &R_RECV_LN_NBR, &R_RECV_SH
IP_SEQ_NBR, &CUSTO_POTER);
If None(&CUSTO_POTER) Then
Error ("Erro ao tentar achar custo para POTER Recebimento: " | &R_RECEI
VER_ID | " Linha: " | &R_RECV_LN_NBR | " Item: " | &R_INV_ITEM_ID);
End-If;
&P_CUSTO = &CUSTO_POTER;
/*################################
## Endereo estoque Padro ITEM.
##################################
*/
SQLExec("select a.storage_area, a.stor_level_1, a.stor_level_2, a.stor_lev
el_3, a.stor_level_4 from sysadm.ps_mmc_end_por_sis a where a.mmc_sistema = '01'
and a.business_unit= :1 and a.mmc_te_tipo_local='1' and a.effdt = ( select max
(b.effdt) from sysadm.ps_mmc_end_por_sis b where b.mmc_sistema = a.mmc_sistema a
nd b.business_unit = a.business_unit and a.mmc_te_tipo_local = b.mmc_te_tipo_loc
al) and a.eff_status='A'", NF_HDR_BRL.BUSINESS_UNIT, &ET_STORAGE_AREA, &ET_STOR_
LEVEL_1, &ET_STOR_LEVEL_2, &ET_STOR_LEVEL_3, &ET_STOR_LEVEL_4);
If None(&ET_STORAGE_AREA) Or
None(&ET_STOR_LEVEL_1)
Or
Or
Or
Then
SQLExec("select a.storage_area, a.stor_level_1, a.stor_level_2, a.stor_

level_3, a.stor_level_4 from ps_default_loc_inv a where a.business_unit =:1 and
a.inv_item_id =:2", &BU_ESTOQUE, &R_INV_ITEM_ID, &P_STORAGE_AREA, &P_STOR_LEVEL_
1, &P_STOR_LEVEL_2, &P_STOR_LEVEL_3, &P_STOR_LEVEL_4);
If None(&P_STORAGE_AREA) Or
None(&P_STOR_LEVEL_1)
Error ("No existe Local
em: " | &R_INV_ITEM_ID);
End-If;
Or
Or
Or
Then
de Expedio Padro para UN: " | &BU_ESTOQUE | " It
Else
&P_STORAGE_AREA
&P_STOR_LEVEL_1
&P_STOR_LEVEL_2
&P_STOR_LEVEL_3
&P_STOR_LEVEL_4
=
=
=
=
=
&ET_STORAGE_AREA;
&ET_STOR_LEVEL_1;
&ET_STOR_LEVEL_2;
&ET_STOR_LEVEL_3;
&ET_STOR_LEVEL_4;
End-If;
&IN_DISTRIB_TYPE = &R_DISTRIB_TYPE;
SQLExec("select %DateOut(po_dt) from sysadm.ps_po_hdr where business_unit=
:1 and po_id=:2", &R_BUSINESS_UNIT, &R_PO_ID, &IN_PO_DT);
/*************************************************************************
*
Modificao para entrar diretamente estoque
*************************************************************************/
&P_BUSINESS_UNIT = &BU_ESTOQUE;
&P_INV_LOT_ID = &R_LOT_ID;
&P_INV_ITEM_ID = &R_INV_ITEM_ID;
&P_SERIAL_ID = &R_SERIAL_ID;
&P_CONTAINER_ID = &R_CONTAINER_ID;
&P_UNIT_OF_MEASURE = &R_UNIT_MEASURE_STD;
&P_QTY = &R_QTY_LN_INV_SUOM;
&P_DEPTO = &R_DEPTID;
&P_DISTRIB_TYPE = &R_DISTRIB_TYPE;
&P_BUSINESS_UNIT_RECV = &R_BUSINESS_UNIT;
&P_RECEIVER_ID = &R_RECEIVER_ID;
&P_RECV_LN_NBR = &R_RECV_LN_NBR;
&P_RECV_SHIP_SEQ_NBR = &R_RECV_SHIP_SEQ_NBR;
&P_SOURCE_BUS_UNIT = &R_BUSINESS_UNIT;
&P_CUSTO = &P_CUSTO;
&P_CONFIG_CODE = &R_CONFIG_CODE;
If MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N" Or
MMC_TE_RECV_WRK.MMC_TE_NFSERVI_FLG = "Y" Then
&P_PARAMETRO_OPCIONAL = "USA_CUSTO_ENTRADA_NF";
/*
If MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "Y" Then
Else
&P_CUSTO = &PAR_CUSTO_TERCEIRO;
End-If
*/
Else
SQLExec("SELECT TT.BUSINESS_UNIT, TT.INV_ITEM_ID, %DateTimeOut(TT.DT_TI
MESTAMP), TT.SEQ_NBR, TI.INV_LOT_ID FROM SYSADM.PS_MMC_TE_TRANSAC TT, SYSADM.PS_
NF_LN_BRL NL, SYSADM.PS_TRANSACTION_INV TI WHERE TT.BUSINESS_UNIT_BI = NL.BUSINE
SS_UNIT AND TT.NF_BRL_ID = NL.NF_BRL_ID AND TT.NF_BRL_LINE_NUM = NL.NF_BRL_LINE_
NUM AND TT.BUSINESS_UNIT = TI.BUSINESS_UNIT AND TT.INV_ITEM_ID = TI.INV_ITEM_ID
AND TT.DT_TIMESTAMP = TI.DT_TIMESTAMP AND TT.SEQ_NBR = TI.SEQ_NBR AND NL.BUSINES
S_UNIT = :1 AND NL.RECEIVER_ID = :2 AND NL.RECV_LN_NBR = :3", NF_HDR_BRL.BUSINES
S_UNIT, &R_RECEIVER_ID, &R_RECV_LN_NBR, &BC_BUSINESS_UNIT, &BC_INV_ITEM_ID, &BC_
DT_TIMESTAMP, &BC_SEQ_NBR, &BC_INV_LOT_ID);
If All(&BC_BUSINESS_UNIT) Then
&P_CUSTO = BUSCA_CUSTO_ITEM(&BC_BUSINESS_UNIT, &BC_INV_ITEM_ID, &BC_
DT_TIMESTAMP, &BC_INV_LOT_ID);
/*If %UserId = "DC804013" Then
&P_CUSTO = 0.1;
End-If;*/
If &P_CUSTO = 0 Or
None(&P_CUSTO) Then
Error ("Erro: No foi possivel encontrar custo para parametro Funo: B
USCA_CUSTO_ITEM ");
End-If;
Else
/*
ITEM"); */
End-If;
Error ("ERROR TRANSACAO SAIDA NAO ENCONTRADA - BUSCA_CUSTO_
End-If; /* MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N" Or MMC_TE_RECV_WRK.MMC_

TE_NFSERVI_FLG = "Y" Then */
SQLExec("select business_unit, nf_brl_id, nf_brl_line_num from sysadm.ps_n
f_ln_brl where business_unit_recv =:1 and receiver_id =:2 and recv_ln_nbr=:3 and
recv_ship_seq_nbr=:4", &P_BUSINESS_UNIT_RECV, &P_RECEIVER_ID, &P_RECV_LN_NBR, &
P_RECV_SHIP_SEQ_NBR, &P_SOURCE_BUS_UNIT, &P_ORDER_NO, &P_ORDER_INT_LINE_NO);
If &P_CUSTO = 0 Or
None(&P_CUSTO) Then
Error ("Erro: No foi possivel encontrar custo para parametro Calculo cus
to terceiros.");
End-If;
ENTRADA_ESTOQUE(&P_BUSINESS_UNIT, &P_STAGED_DATE, &P_INV_LOT_ID, &P_INV_IT
EM_ID, &P_SERIAL_ID, &P_STORAGE_AREA, &P_STOR_LEVEL_1, &P_STOR_LEVEL_2, &P_STOR_
LEVEL_3, &P_STOR_LEVEL_4, &P_CONTAINER_ID, &P_UNIT_OF_MEASURE, &P_QTY, &P_DEPTO,
&P_DISTRIB_TYPE, &P_DT_TIMESTAMP, &P_BUSINESS_UNIT_RECV, &P_RECEIVER_ID, &P_REC
V_LN_NBR, &P_RECV_SHIP_SEQ_NBR, &P_SOURCE_BUS_UNIT, &P_ORDER_NO, &P_ORDER_INT_LI
NE_NO, &P_CUSTO, &P_CONFIG_CODE, &P_PARAMETRO_OPCIONAL);
/*************************************************************************
*
Modificao para entrar diretamente estoque
*************************************************************************/
End-While;
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||
|| Populando Tabela Transao Terceiros.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
For &N = 1 To &NF_NIVEL1.ActiveRowCount;

&NF_ITEM = &NF_NIVEL1.GetRow(&N).NF_LN_BRL.INV_ITEM_ID.VALUE;
&NF_NF_BRL_LINE_NUM = &NF_NIVEL1.GetRow(&N).NF_LN_BRL.NF_BRL_LINE_NUM.VALU
E;
SQLExec("select receiver_id, recv_ln_nbr, recv_ship_seq_nbr from sysadm.ps
_nf_ln_brl where business_unit=:1 and nf_brl_id=:2 and nf_brl_line_num=:3", NF_H
DR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID, &NF_NF_BRL_LINE_NUM, &RECV_RECEIVER_
ID, &RECV_RECV_LN_NBR, &RECV_RECV_SHIP_SEQ_NBR);
&DATA_HORA = %Datetime;
SQLExec("select %DateTimeOut(dt_timestamp), seq_nbr from sysadm.ps_transa
ction_inv where business_unit = :1 and inv_item_id= :2 and dt_timestamp >= %Date
TimeIn(:3) -1 and dt_timestamp <= %DateTimeIn(:4) +1 and receiver_id=:5 and recv
_ln_nbr =:6 and recv_ship_seq_nbr=:7 and transaction_group='020' ", &BU_ESTOQUE,
&NF_ITEM, &DATA_HORA, &DATA_HORA, &RECV_RECEIVER_ID, &RECV_RECV_LN_NBR, &RECV_R
ECV_SHIP_SEQ_NBR, &TRAN_DT_TIMESTAMP, &TRAN_SEQ_NBR);
If None(&TRAN_DT_TIMESTAMP) Or
None(&TRAN_SEQ_NBR) Then
Error (" Erro: 2 - No foi encontradao DT_TIMESTAMP ou SEQ_NBR para grava
r na tabela Transao Terceiros. " | " UN Estoque: " | &BU_ESTOQUE | " NF Item: " |
&NF_ITEM | " Data NF: " | &DATA_HORA | " Recebimento: " | &RECV_RECEIVER_ID | "
Linha: " | &RECV_RECV_LN_NBR | " Seq NBR: " | &RECV_RECV_SHIP_SEQ_NBR);
End-If;
If MMC_TE_NFLN_WRK.MMC_TE_TRIANG_FLG = "N" Or
&T_SETID = " ";
&T_MMC_TE_SOL_ID = 0;
&T_LINE_NBR = 0;
&T_BUSINESS_UNIT_BI = NF_HDR_BRL.BUSINESS_UNIT;
&T_NF_BRL_ID = NF_HDR_BRL.NF_BRL_ID;
&T_NF_BRL_LINE_NUM = &NF_NF_BRL_LINE_NUM;
&T_MMC_TE_OPERACAO = "100";
&T_BUSINESS_UNIT = " ";
&T_INV_ITEM_ID = &NF_ITEM;
&T_DT_TIMESTAMP = Date3(1900, 1, 1);
&T_SEQ_NBR = 0;
&T_TRANSACTION_GROUP = " ";
&T_BUSINESS_UNIT_TO = &BU_ESTOQUE;
&T_DT_TIMESTAMP_TO = &TRAN_DT_TIMESTAMP;
&T_SEQ_NBR_TO = &TRAN_SEQ_NBR;
&T_MMC_TRAN_GROUP = "020";
&T_MMC_UN_ORIGEM = " ";
&T_NF_ID_ORIGEM = " ";
&T_NF_LINE_ORIGEM = 0;
GRAVA_TRANSACAO_TERCEIROS(&T_SETID, &T_MMC_TE_SOL_ID, &T_LINE_NBR, &T_B

USINESS_UNIT_BI, &T_NF_BRL_ID, &T_NF_BRL_LINE_NUM, &T_MMC_TE_OPERACAO, &T_BUSINE
SS_UNIT, &T_INV_ITEM_ID, &T_DT_TIMESTAMP, &T_SEQ_NBR, &T_TRANSACTION_GROUP, &T_B
USINESS_UNIT_TO, &T_DT_TIMESTAMP_TO, &T_SEQ_NBR_TO, &T_MMC_TRAN_GROUP, &T_MMC_UN
_ORIGEM, &T_NF_ID_ORIGEM, &T_NF_LINE_ORIGEM);
Else
SQLExec("update sysadm.ps_mmc_te_transac set business_unit_to=:1, dt_ti
mestamp_to=%DateTimeIn(:2), seq_nbr_to=:3, mmc_tran_group=:4 where business_uni
t_bi=:5 and nf_brl_id=:6 and nf_brl_line_num=:7", &BU_ESTOQUE, &TRAN_DT_TIMESTAM
P, &TRAN_SEQ_NBR, "020", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID, &NF_NF_
BRL_LINE_NUM);
End-If
End-For;
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||
|| FIM Populando Tabela Transao Terceiros.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
/* End-If; */ /* If &RECV_NO_PROCESSO = "X" Then
*/
/*===========================================================================
=
FIM: Gerando Entrada Estoque
============================================================================*/
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||
|| INICIO GRAVANDO INDUSTRIALIZAO TERCEIROS.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
&NF_SERV = GetRowset(Scroll.NF_LN_BRL);
For &CONTNF = 1 To &NF_SERV.ActiveRowCount;
&IND_BUSINESS_UNIT = &NF_SERV.GetRow(&CONTNF).NF_LN_BRL.BUSINESS_UNIT.V
ALUE;
&IND_NF_BRL_ID = &NF_SERV.GetRow(&CONTNF).NF_LN_BRL.NF_BRL_ID.VALUE;
&IND_NF_BRL_LINE_NUM = &NF_SERV.GetRow(&CONTNF).NF_LN_BRL.NF_BRL_LINE_N
UM.VALUE;
&IND_BUSINESS_UNIT_PO = &NF_SERV.GetRow(&CONTNF).MMC_TE_OP_WRK.BUSINESS
_UNIT_PO.VALUE;
&IND_PO_ID = &NF_SERV.GetRow(&CONTNF).MMC_TE_OP_WRK.PO_ID.VALUE;
&IND_LINE_NBR = &NF_SERV.GetRow(&CONTNF).MMC_TE_OP_WRK.LINE_NBR.VALUE;
&IND_SCHED_NBR = &NF_SERV.GetRow(&CONTNF).MMC_TE_OP_WRK.SCHED_NBR.VALUE
;
&IND_BUSINESS_UNIT_IN = &NF_SERV.GetRow(&CONTNF).MMC_TE_OP_WRK.BUSINESS
_UNIT_IN.VALUE;
&IND_NF_BRL_ID_2_BBL = &NF_SERV.GetRow(&CONTNF).MMC_TE_OP_WRK.NF_BRL_ID
_2_BBL.VALUE;
SQLExec("select business_unit_in from sysadm.ps_shipto_tbl where busine

ss_unit_recv=:1", NF_HDR_BRL.BUSINESS_UNIT, &BU_INDUST);
&IND_BUSINESS_UNIT_PF = &BU_INDUST;
&IND_PRODUCTION_ID = " ";
&IND_INV_ITEM_ID = &NF_SERV.GetRow(&CONTNF).MMC_TE_OP_WRK.INV_ITEM_ID.V
ALUE;
&IND_MMC_TE_QTD_PAI = &NF_SERV.GetRow(&CONTNF).MMC_TE_OP_WRK.MMC_TE_QTD
_PAI.VALUE;
/*************************** mmcb.sds3426.so **************************
*/
/*
&IND_MMC_STAT_PROC2 = "N";
GRAVA_MMC_TE_OP(&IND_BUSINESS_UNIT, &IND_NF_BRL_ID, &IND_NF_BRL_LINE_NU
M, &IND_BUSINESS_UNIT_PO, &IND_PO_ID, &IND_LINE_NBR, &IND_SCHED_NBR, &IND_BUSINE
SS_UNIT_IN, &IND_NF_BRL_ID_2_BBL, &IND_BUSINESS_UNIT_PF, &IND_PRODUCTION_ID, &IN
D_INV_ITEM_ID, &IND_MMC_TE_QTD_PAI, &IND_MMC_STAT_PROC2);
*/
/*************************** mmcb.sds3426.eo **************************
*/
/*************************** mmcb.sds3426.sn **************************
*/
If &CONTNF = 1 Then
&IND_MMC_STAT_PROC2 = "N";
GRAVA_MMC_TE_OP(&IND_BUSINESS_UNIT, &IND_NF_BRL_ID, &IND_NF_BRL_LINE
_NUM, &IND_BUSINESS_UNIT_PO, &IND_PO_ID, &IND_LINE_NBR, &IND_SCHED_NBR, &IND_BUS
INESS_UNIT_IN, &IND_NF_BRL_ID_2_BBL, &IND_BUSINESS_UNIT_PF, &IND_PRODUCTION_ID,
&IND_INV_ITEM_ID, &IND_MMC_TE_QTD_PAI, &IND_MMC_STAT_PROC2);
Else
&IND_MMC_STAT_PROC2 = "Y";
End-If;
/*************************** mmcb.sds3426.en **************************
*/
End-For;
/*************************** mmcb.sds3426.sn ***************************/
&LOG_BOM = GetRowset(Scroll.MMC_TE_TRIA_BOM);
VERIFICA_NF_VS_BOM();
&VBOM_SEQ_NBR = 1;
For &I = &LOG_BOM.ActiveRowCount To 1 Step - 1;
&VBOM_BUSINESS_UNIT = &LOG_BOM.GetRow(&I).MMC_TE_TRIA_BOM.BUSINESS_UNIT
.VALUE;
&VBOM_NF_BRL = &LOG_BOM.GetRow(&I).MMC_TE_TRIA_BOM.NF_BRL.VALUE;
&VBOM_NF_BRL_SERIES = &LOG_BOM.GetRow(&I).MMC_TE_TRIA_BOM.NF_BRL_SERIES
.VALUE;
&VBOM_VENDOR_ID = &LOG_BOM.GetRow(&I).MMC_TE_TRIA_BOM.VENDOR_ID.VALUE;
&VBOM_ADDRESS_SEQ_NUM = &LOG_BOM.GetRow(&I).MMC_TE_TRIA_BOM.ADDRESS_SEQ
_NUM.VALUE;
&VBOM_MMC_OPRID = &LOG_BOM.GetRow(&I).MMC_TE_TRIA_BOM.MMC_OPRID.VALUE;
&VBOM_INV_ITEM_ID = &LOG_BOM.GetRow(&I).MMC_TE_TRIA_BOM.INV_ITEM_ID.VAL
UE;
&VBOM_DESCR254 = &LOG_BOM.GetRow(&I).MMC_TE_TRIA_BOM.DESCR254.VALUE;
&VBOM_QTY_PER = &LOG_BOM.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER.VALUE;
&VBOM_QTY_PER_BASE = &LOG_BOM.GetRow(&I).MMC_TE_TRIA_BOM.QTY_PER_BASE.V
ALUE;
SQLExec("INSERT INTO SYSADM.PS_MMC_TE_TRIA_BOM VALUES (:1, :2, :3, :4,
:5, SYSDATE, :6, :7, :8, :9, :10, :11)", &VBOM_BUSINESS_UNIT, &VBOM_NF_BRL, &VBO
M_NF_BRL_SERIES, &VBOM_VENDOR_ID, &VBOM_ADDRESS_SEQ_NUM, &VBOM_SEQ_NBR, &VBOM_MM
C_OPRID, &VBOM_INV_ITEM_ID, &VBOM_DESCR254, &VBOM_QTY_PER, &VBOM_QTY_PER_BASE);
&VBOM_SEQ_NBR = &VBOM_SEQ_NBR + 1;
End-For;
/*************************** mmcb.sds3426.en ***************************/
End-If;
/*===========================================================================
====================================*/
REM NF SERVIO UNIFICADO PASSO 01;
If MMC_TE_TRIA_WRK.MMC_TE_TIPO_RECEBI = "Y" Then
&PS_BUSINESS_UNIT = NF_HDR_BRL.BUSINESS_UNIT;
&PS_NF_BRL_ID = NF_HDR_BRL.NF_BRL_ID;
&PS_NF_ID_TO = MMC_NUMERACAO_ID(3);
If None(&PS_NF_ID_TO) Then
Error ("No foi possivel localizar NF Servio Unificado destino.");
End-If;
CRIA_NF_SERVICO_UNIFICADO(&PS_BUSINESS_UNIT, &PS_NF_BRL_ID, &PS_NF_ID_TO);
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||
|| INICIO - Gravando dados de parametros para ser carregado pela NF Servio gerad
a
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
*/
SQLExec("delete from sysadm.ps_mmc_te_nf_tmp where business_unit_in=:1 and
nf_brl_id_2_bbl=:2", NF_HDR_BRL.BUSINESS_UNIT, &PS_NF_ID_TO);
&REC_MMC_TE_NF_TMP = CreateRecord(Record.MMC_TE_NF_TMP);
&REC_MMC_TE_NF_TMP.BUSINESS_UNIT.VALUE = NF_HDR_BRL.BUSINESS_UNIT;
&REC_MMC_TE_NF_TMP.NF_BRL_ID.VALUE = NF_HDR_BRL.NF_BRL_ID;
&REC_MMC_TE_NF_TMP.BUSINESS_UNIT_IN.VALUE = NF_HDR_BRL.BUSINESS_UNIT;
&REC_MMC_TE_NF_TMP.NF_BRL_ID_2_BBL.VALUE = &PS_NF_ID_TO;
&REC_MMC_TE_NF_TMP.Insert();
/*||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||
|| FIM - Gravando dados de parametros para ser carregado pela NF Servio gerada
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
*/
/****************************************
Cria RECORD pesquisa para o painel.
******************************************/
&R = CreateRecord(Record.NF_PBL_SRCH_VW2);
&R.BUSINESS_UNIT.VALUE = &PS_BUSINESS_UNIT;
&R.NF_BRL_ID.VALUE = &PS_NF_ID_TO;
Transfer( True, MenuName.MANAGE_NF, BarName.USE, ItemName.NF_INFO_PBL, Pag
e.NF_INFO_HDR_PBL, "U", &R);
End-If;
REM FIM NF SERVIO UNIFICADO PASSO 01;
/*|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||||||
|| FIM GRAVANDO INDUSTRIALIZAO TERCEIROS.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||||||||||||||||||*/
/********************** mmcb.HD64180.sn **********************/
Gray(NF_BRL_STATUS);
/********************** mmcb.HD64180.en **********************/
End-If;
/* Component = Component.NF_INFO_PBL And MMC_TE_NFLN_WRK.MMC_TERCEIRO_FLG = "Y"
And NF_BRL_STATUS = "F" Then */
/********************** mmcb.at2323.en **********************/
/********** Gustavo Vilarinho - 22/01/2009 ATIV. 2946 **********

Este processo tem como objetivo efetuar o controle de materiais de terceiros em
nosso poder
*********** Gustavo Vilarinho - 22/01/2009 ATIV. 2946 **********/
&MAT_LINHAS_NF = GetRowset(Scroll.NF_LN_BRL);
/* REM Conta o Numero de Linhas da NF ; */
&MAT_TOT_NF_LN = &MAT_LINHAS_NF.ActiveRowCount;
For &MAT_LN = 1 To &MAT_TOT_NF_LN;
&MAT_TOF_PBL = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.TOF_PBL.VALUE;
SQLExec("SELECT MMC_MERC_TERC FROM PS_TOF_TYPE_PBL A , PS_MMC_TE_TOF_TYPE
B WHERE A.TOF_PBL = B.TOF_PBL AND A.EFFDT = B.EFFDT AND A.EFF_STATUS = 'A' A
ND B.MMC_MERC_TERC = 'Y' AND A.TOF_PBL
= :1 AND A.EFFDT
= (SELEC
T MAX(B.EFFDT) FROM PS_MMC_TE_TOF_TYPE B WHERE B.TOF_PBL
= A.TOF_PBL AND
B.MMC_MERC_TERC = 'Y' AND B.EFFDT
= A.EFFDT )", &MAT_TOF_PBL, &MMC_MERC_
TERC);
If &MMC_MERC_TERC = "Y" Then
&MAT_TAX_CLASS_BRL = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.TAX_CLASS
_BRL.VALUE;
&MAT_INV_ITEM_ID = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.INV_ITEM_ID
.VALUE;
&MAT_NF_BRL_LINE_NUM = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.NF_BRL_
LINE_NUM.VALUE;
/*If ((&MAT_TAX_CLASS_BRL = "9999.99.9999") Or

(&MAT_TAX_CLASS_BRL = "0000.00.0000") Or
(&MAT_TAX_CLASS_BRL = " ")) Or
((&MAT_INV_ITEM_ID = "4/IMPROD") Or
(&MAT_INV_ITEM_ID = "5/IMPROD")) Then
*/
If ((&MAT_INV_ITEM_ID = "4/IMPROD") Or
(&MAT_INV_ITEM_ID = "5/IMPROD")) Then
/* Error ("A Operao Fiscal : " | &MAT_TOF_PBL | " . Controla Itens de
Terceiros em poder da MMCB. Esta Operao no possibilita que seja salvo a NF com o I
tem : " | &MAT_INV_ITEM_ID | " Verificar Linha: " | &MAT_NF_BRL_LINE_NUM);
*/
End-If;
/*
Error ("Informar Classificao Fiscal para o Item: " | &MAT_INV_ITEM
_ID | " Linha: " | &MAT_NF_BRL_LINE_NUM);
End-If;
*/
&MAT_BUSINESS_UNIT = NF_HDR_BRL.BUSINESS_UNIT;
&MAT_NF_BRL_ID = NF_HDR_BRL.NF_BRL_ID;
&MAT_NF_BRL = NF_HDR_BRL.NF_BRL;
&MAT_NF_BRL_SERIES = NF_HDR_BRL.NF_BRL_SERIES;
&MAT_DESCR = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.DESCR.VALUE;
&MAT_VENDOR_ID = NF_HDR_BRL.VENDOR_ID.Value;
&MAT_NF_BRL_DATE = NF_HDR_BRL.NF_BRL_DATE;
&MAT_TRANSACTION_GROUP = "020";
&MAT_TRANSACTION_DATE = %Date;
&MAT_SOURCE_BUS_UNIT = " ";
&MAT_ORDER_NO = " ";
&MAT_ORDER_INT_LINE_NO = 0;
&MAT_CUST_ID = " ";
&MAT_BUSINESS_UNIT_BI = " ";
&MAT_MMC_NF_BRL_ID_OUT = " ";
&MAT_MMC_LINE_NUM_OUT = 0;
&MAT_ACCOUNT = " ";
&MAT_MMC_TIPO_AJUST = " ";
&MAT_OPRID = %UserId;
&MAT_UNIT_OF_MEASURE = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.UNIT_OF
_MEASURE.VALUE;
&MAT_MMC_OBS_AJUST = " ";
&MAT_MMC_ISSUE_QTY = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.QTY_NF_BR
L.VALUE;
&MAT_QTY_NF_BRL = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.QTY_NF_BRL.V
ALUE;
&MAT_UNIT_PRICE = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.UNIT_PRICE.V
ALUE;
&MAT_MERCHANDISE_AMT = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.MERCHAN
DISE_AMT.VALUE;
&MAT_SHIPTO_ID = NF_HDR_BRL.SHIPTO_ID;
SQLExec("SELECT 'X' FROM SYSADM.PS_MMC_TE_CONTR_MT WHERE BUSINESS_UNIT

= :1 AND NF_BRL_ID = :2 AND NF_BRL_LINE_NUM = :3 AND NF_BRL = :4 AND NF_BRL_SE
RIES = :5 AND TRANSACTION_GROUP = '020' AND ORDER_NO = ' ' AND ORDER_INT_LINE_NO
= 0 AND BUSINESS_UNIT_BI = ' ' AND MMC_NF_BRL_ID_OUT = ' ' AND MMC_LINE_NUM_OU
T = 0 AND MMC_TIPO_AJUST
= ' '", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BR
L_ID, &MAT_NF_BRL_LINE_NUM, NF_HDR_BRL.NF_BRL, NF_HDR_BRL.NF_BRL_SERIES, &EXIST_
NF);
If All(&EXIST_NF) Then
ATUALIZA_CONTROLE_MAT_TERC(&MAT_BUSINESS_UNIT, &MAT_NF_BRL_ID, &MAT_
NF_BRL_LINE_NUM, &MAT_NF_BRL, &MAT_NF_BRL_SERIES, &MAT_INV_ITEM_ID, &MAT_DESCR,
&MAT_VENDOR_ID, &MAT_NF_BRL_DATE, &MAT_TRANSACTION_GROUP, &MAT_TRANSACTION_DATE,
&MAT_TAX_CLASS_BRL, &MAT_TOF_PBL, &MAT_SOURCE_BUS_UNIT, &MAT_ORDER_NO, &MAT_ORD
ER_INT_LINE_NO, &MAT_BUSINESS_UNIT_BI, &MAT_MMC_NF_BRL_ID_OUT, &MAT_MMC_LINE_NUM
_OUT, &MAT_CUST_ID, &MAT_ACCOUNT, &MAT_MMC_TIPO_AJUST, &MAT_OPRID, &MAT_UNIT_OF_
MEASURE, &MAT_MMC_OBS_AJUST, &MAT_MMC_ISSUE_QTY, &MAT_QTY_NF_BRL, &MAT_UNIT_PRIC
E, &MAT_MERCHANDISE_AMT, &MAT_SHIPTO_ID);
Else
GRAVA_CONTROLE_MAT_TERC(&MAT_BUSINESS_UNIT, &MAT_NF_BRL_ID, &MAT_NF_
BRL_LINE_NUM, &MAT_NF_BRL, &MAT_NF_BRL_SERIES, &MAT_INV_ITEM_ID, &MAT_DESCR, &MA
T_VENDOR_ID, &MAT_NF_BRL_DATE, &MAT_TRANSACTION_GROUP, &MAT_TRANSACTION_DATE, &M
AT_TAX_CLASS_BRL, &MAT_TOF_PBL, &MAT_SOURCE_BUS_UNIT, &MAT_ORDER_NO, &MAT_ORDER_
INT_LINE_NO, &MAT_BUSINESS_UNIT_BI, &MAT_MMC_NF_BRL_ID_OUT, &MAT_MMC_LINE_NUM_OU
T, &MAT_CUST_ID, &MAT_ACCOUNT, &MAT_MMC_TIPO_AJUST, &MAT_OPRID, &MAT_UNIT_OF_MEA
SURE, &MAT_MMC_OBS_AJUST, &MAT_MMC_ISSUE_QTY, &MAT_QTY_NF_BRL, &MAT_UNIT_PRICE,
&MAT_MERCHANDISE_AMT, &MAT_SHIPTO_ID);
End-If;
End-If;
End-For;
End-If;
/*** Gustavo Vilarinho - 22/01/2009 ATIV. 2946 ***/

/******************************** mmcb.sds3627.S.N *****************************
*****/

REM VERIFICANDO SE O RPA JA FOI EMITIDO;
BRL, "02", &RPA_ID2);
If All(&RPA_ID2) Then
Error ("Nota fiscal no pode ser salva. O Rpa: fornecedor / RPA: " | NF_HDR_
BRL.VENDOR_ID | " / " | &RPA_ID2 | " ja foi emitido.");
End-If;
BRL, "01", &RPA_ID);
If All(&RPA_ID) Then
SQLExec("SELECT COUNT( DISTINCT(PO_ID) ) FROM SYSADM.PS_NF_LN_BRL A WHERE
A.BUSINESS_UNIT = :1 AND A.NF_BRL_ID = :2 ", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BR
L.NF_BRL_ID, &QUANTIDADE_OCS);
If &QUANTIDADE_OCS > 1 Then
Error ("Nota fiscal de RPA de autonomo no pode ter mais de uma Ordem de
Compra.");
End-If;
SQLExec("SELECT DISTINCT BUSINESS_UNIT_PO, PO_ID FROM SYSADM.PS_NF_LN_BRL
A WHERE A.BUSINESS_UNIT = :1 AND A.NF_BRL_ID = :2 ", NF_HDR_BRL.BUSINESS_UNIT, N
F_HDR_BRL.NF_BRL_ID, &BUSINESS_UNIT_PO, &PO_ID);
If None(&PO_ID) Then
Error ("Erro na entrada da nota fiscal de RPA de autonomo: No foi locali
zado ordem de compra para este documento Fiscal.");
End-If;
&SQL =
&SQL =
&SQL =
PO_LINE_SHIP
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
"";
&SQL | " SELECT COUNT( DISTINCT(D.DEPTID) )";
&SQL | " FROM SYSADM.PS_PO_HDR A, SYSADM.PS_PO_LINE B, SYSADM.PS_
C, SYSADM.PS_PO_LINE_DISTRIB D ";
&SQL | " WHERE A.BUSINESS_UNIT = :1 ";
&SQL | "
AND A.PO_ID = :2 ";
&SQL | "
AND A.PO_STATUS NOT IN ('X') ";
&SQL | "
AND B.BUSINESS_UNIT = A.BUSINESS_UNIT ";
&SQL | "
AND B.PO_ID = A.PO_ID ";
&SQL | "
AND C.BUSINESS_UNIT = B.BUSINESS_UNIT ";
&SQL | "
AND C.PO_ID = B.PO_ID ";
&SQL | "
AND C.LINE_NBR = B.LINE_NBR ";
&SQL | "
AND C.CANCEL_STATUS NOT IN ('X') ";
&SQL | "
&SQL | "
AND D.PO_ID = C.PO_ID ";
&SQL | "
AND D.LINE_NBR = C.LINE_NBR ";
&SQL | "
AND D.SCHED_NBR = C.SCHED_NBR ";
SQLExec(&SQL, &BUSINESS_UNIT_PO, &PO_ID, &QTD_DEPARTAMENTO);

If &QTD_DEPARTAMENTO > 1 Then
rem Error ("Erro: Mais de uma orden de compra est sendo utilizada para
um entrada do RPA de autonomo.");
End-If;
/*
&SQL =
&SQL =
&SQL =
PO_LINE_SHIP
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
&SQL =
"";
&SQL | " SELECT DISTINCT D.DEPTID ";
&SQL | " FROM SYSADM.PS_PO_HDR A, SYSADM.PS_PO_LINE B, SYSADM.PS_
C, SYSADM.PS_PO_LINE_DISTRIB D ";
&SQL | " WHERE A.BUSINESS_UNIT = :1 ";
&SQL | "
AND A.PO_ID = :2 ";
&SQL | "
AND A.PO_STATUS NOT IN ('X') ";
&SQL | "
AND B.BUSINESS_UNIT = A.BUSINESS_UNIT ";
&SQL | "
AND B.PO_ID = A.PO_ID ";
&SQL | "
AND C.BUSINESS_UNIT = B.BUSINESS_UNIT ";
&SQL | "
AND C.PO_ID = B.PO_ID ";
&SQL | "
AND C.LINE_NBR = B.LINE_NBR ";
&SQL | "
AND C.CANCEL_STATUS NOT IN ('X') ";
&SQL | "
&SQL | "
AND D.PO_ID = C.PO_ID ";
&SQL | "
AND D.LINE_NBR = C.LINE_NBR ";
&SQL | "
AND D.SCHED_NBR = C.SCHED_NBR ";
SQLExec(&SQL, &BUSINESS_UNIT_PO, &PO_ID, &DEPTID);

*/
/*SQLExec("UPDATE SYSADM.PS_MMC_RPA SET BUSINESS_UNIT_PO = :1 , NF_BRL_ID
= :2 , MMC_RPA_STATUS = '02' WHERE SETID = :3 AND VENDOR_ID = :4 AND MMC_RPA_ID
= :5 ", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID, NF_HDR_BRL.VENDOR_SETID
, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.NF_BRL);*/ /*mmcb.hd141963.lo*/
SQLExec("UPDATE SYSADM.PS_MMC_RPA SET BUSINESS_UNIT_PO = :1, NF_BRL_ID = :
2, MMC_RPA_STATUS = '02' WHERE SETID = :3 AND VENDOR_ID = :4 AND MMC_RPA_ID = TR
IM(TO_CHAR(:5,'000000'))", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID, NF_HD
R_BRL.VENDOR_SETID, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.NF_BRL); /*mmcb.hd141963.ln
*/
End-If;
End-If;
/******************************** mmcb.sds3627.E.N *****************************
*****/
/************************************ mmcb.at3445.sn ***************************
*********/
If (%Component = "NF_RECV_PBL") Then
1 AND MMC_GKO_ID_NF_FRET = :2", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID,
&EH_RECEBIMENTO_FRETE_GKO);
If (&EH_RECEBIMENTO_FRETE_GKO = "Y") Then
&ZERA_RET_IMPOSTOS_FRETE = "N";
SQLExec("SELECT 'Y' FROM SYSADM.PS_CUSTOMER C, SYSADM.PS_MMC_INSTALL I, SY
SADM.PS_CUST_ADDR_SEQ A, SYSADM.PS_CUST_ADDRESS E, SYSADM.PS_MMC_GKO_NF_IF NI, S
YSADM.PS_NF_HDR_BRL N WHERE NI.MMC_GKO_BU_NF_FRET = :1 AND NI.MMC_GKO_ID_NF_FRET
= :2 AND N.BUSINESS_UNIT = NI.MMC_GKO_BU_NF_ITEM AND N.NF_BRL_ID = NI.MMC_GKO_I
D_NF_ITEM AND C.SETID = I.SETID AND A.CUST_ID = N.SHIP_TO_CUST_ID AND A.ADDRESS
_SEQ_NUM = N.ADDRESS_SEQ_SHIP AND C.SETID = A.SETID AND C.CUST_ID = A.CUST_ID AN
D A.SETID = E.SETID AND A.CUST_ID = E.CUST_ID AND E.EFFDT = (SELECT MAX(EI.EFFDT

) FROM SYSADM.PS_CUST_ADDRESS EI WHERE EI.SETID = E.SETID AND EI.CUST_ID = E.CUS
T_ID AND EI.ADDRESS_SEQ_NUM = E.ADDRESS_SEQ_NUM AND EI.EFFDT <= TO_DATE(SYSDATE)
) AND E.EFF_STATUS = 'A' AND ((E.STATE IN (SELECT R.STATE FROM SYSADM.PS_MMC_GKO
_REGSICM R WHERE R.SETID = E.SETID)) OR (E.CITY IN (SELECT C.CITY FROM SYSADM.PS
_MMC_GKO_CIDSICM C WHERE C.SETID = E.SETID AND C.STATE = E.STATE AND C.CITY = E.
CITY)))", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID, &ZERA_RETENCAO_IMPOSTO
S);
If (&ZERA_RETENCAO_IMPOSTOS = "Y") Then
SQLExec("update SYSADM.PS_NF_HDR_BRL SET ICMSTAX_BRL_RCVRY = 0 WHERE BU
SINESS_UNIT = :1 AND NF_BRL_ID = :2", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BR
L_ID);
SQLExec("update SYSADM.PS_NF_LN_BRL SET ICMSTAX_BRL_RCVRY = 0 WHERE BUS
INESS_UNIT = :1 AND NF_BRL_ID = :2", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL
_ID);
End-If;
&SQL = "SELECT BUSINESS_UNIT, NF_BRL_ID, NF_BRL_LINE_NUM, ICMSTAX_STS_BBL,
ICMSTAX_BRL_AMT, ICMSTAX_BRL_RCVRY FROM SYSADM.PS_NF_LN_BRL WHERE BUSINESS_UNIT
= :1 AND NF_BRL_ID = :2";
&RESULTADO_SELECT = CreateSQL(&SQL, NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.N
F_BRL_ID);
While (&RESULTADO_SELECT.FETCH(&RESU_BUSINESS_UNIT, &RESU_NF_BRL_ID, &RESU
_NF_BRL_LINE_NUM, &RESU_ICMSTAX_STS_BBL, &RESU_ICMSTAX_BRL_AMT, &RESU_ICMSTAX_BR
L_RCVRY))
If (&RESU_ICMSTAX_BRL_AMT = 0) Then
&ICMSTAX_STS_BBL_NEW = "ISEN";
Else
If (&RESU_ICMSTAX_BRL_RCVRY = 0) Then
&ICMSTAX_STS_BBL_NEW = "OUTR";
Else
&ICMSTAX_STS_BBL_NEW = " ";
End-If;
End-If;
SQLExec("update SYSADM.PS_NF_LN_BRL SET ICMSTAX_STS_BBL = :1 WHERE BUSI
NESS_UNIT = :2 AND NF_BRL_ID = :3 AND NF_BRL_LINE_NUM = :4", &ICMSTAX_STS_BBL_NE
W, &RESU_BUSINESS_UNIT, &RESU_NF_BRL_ID, &RESU_NF_BRL_LINE_NUM);
End-While;
End-If;
End-If;
/************************************ mmcb.at3445.en ***************************
*********/
/************************************ mmcb.sds4160.sn **************************

**********/
/* Caso a NF possua uma OC com cronograma de adiantamento aprovado, insere a mes
ma na
*
* tabela de processamento da aplicao automtica de voucher de adiantamento.

*/
SQLExec("SELECT DISTINCT 'Y' FROM SYSADM.PS_NF_LN_BRL NL WHERE NL.BUSINESS
_UNIT = :1 AND NL.NF_BRL_ID = :2 AND EXISTS (SELECT 'Y' FROM SYSADM.PS_MMC_CRN_A
DT_LIN ADT WHERE ADT.BUSINESS_UNIT = NL.BUSINESS_UNIT AND ADT.PO_ID = NL.PO_ID A
ND ADT.MMC_FLAG_FISCAL = 'S' AND ADT.MMC_FLAG_GERACAO = 'S') AND NOT EXISTS (SEL
ECT 'Y' FROM SYSADM.PS_MMC_VC_ADT_PROC P WHERE NL.BUSINESS_UNIT = P.BUSINESS_UNI
T AND NL.NF_BRL_ID = P.NF_BRL_ID ) ", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BR
L_ID, &existeAdt);
If All(&existeAdt) Then
SQLExec("INSERT INTO SYSADM.PS_MMC_VC_ADT_PROC (BUSINESS_UNIT, NF_BRL_I
D, BUSINESS_UNIT_AP, VOUCHER_ID) VALUES (:1, :2, ' ', ' ')", NF_HDR_BRL.BUSINESS
_UNIT, NF_HDR_BRL.NF_BRL_ID);
End-If;
End-If;
End-If;
/************************************ mmcb.sds4160.en **************************
**********/
/************************************ MMCB.SDS4304.sn *************************
**********/
/************************************ MMCB.HD171529.sn *********************
**************/
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_REC_TE_NF_R WHERE BUSINESS_UNIT = :1 A
ND NF_BRL_ID = :2", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID, &existelinha
);
If All(&existelinha) Then
SQLExec("UPDATE SYSADM.PS_MMC_REC_TE_NF_R SET BUSINESS_UNIT = :1, NF_BRL_I
D = :2, NF_BRL = :3, NF_BRL_SERIES = :4, VENDOR_ID = :5, ADDRESS_SEQ_NUM = :6 W
HERE BUSINESS_UNIT = :7 AND NF_BRL_ID = :8", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BR
L.NF_BRL_ID, MMC_REC_TE_NF_W.NF_BRL, MMC_REC_TE_NF_W.NF_BRL_SERIES, MMC_REC_TE_N
F_W.VENDOR_ID, MMC_REC_TE_NF_W.ADDRESS_SEQ_NUM, NF_HDR_BRL.BUSINESS_UNIT, NF_HDR
_BRL.NF_BRL_ID);
Else
/************************************ MMCB.HD171529.en ******************
*****************/
SQLExec("INSERT INTO SYSADM.PS_MMC_REC_TE_NF_R (BUSINESS_UNIT, NF_BRL_ID,
NF_BRL,NF_BRL_SERIES,VENDOR_ID,ADDRESS_SEQ_NUM) VALUES (:1,:2,:3,:4,:5,:6)", NF_
HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID, MMC_REC_TE_NF_W.NF_BRL, MMC_REC_TE_
NF_W.NF_BRL_SERIES, MMC_REC_TE_NF_W.VENDOR_ID, MMC_REC_TE_NF_W.ADDRESS_SEQ_NUM);
End-If;
End-If;
/************************************ MMCB.SDS4304.en *************************
**********/
/********************** mmcb.sds4827.sn *********************/

If All(MMC_CH_ACES_NFE.MMC_CHAVE_ACS_NFE) And
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_REC_DANF WHERE MMC_CHAVE_ACS_NFE =
:1 AND REC_DANF_STATUS = 'PND'", MMC_CH_ACES_NFE.MMC_CHAVE_ACS_NFE, &ret_danfe_r
ec);
If &ret_danfe_rec = "Y" Then
SQLExec("UPDATE SYSADM.PS_MMC_REC_DANF SET BUSINESS_UNIT_RECV = :1, NF_
BRL_ID = :2, RECEIPT_DT = %DATEIN(:3) , REC_DANF_STATUS = 'PRC' WHERE MMC_CHAVE_
ACS_NFE = :4", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.NF_BRL_ID, %Date, MMC_CH_ACE
S_NFE.MMC_CHAVE_ACS_NFE);
End-If;
End-If;
End-If;
/********************** mmcb.sds4827.sn *********************/
[NF_HDR_INFO_WRK.NF_BRL_STATUS.SavePreChange]
/*******************************************************************************
*********************************
* Adercley E. Maral - MMC - 07/02/2013 - sds4289
*
* Insere o recebimento na transao 720, alimentando a TRANSACTION_INV, PHYSICAL_IN
V e BU_ITEMS_INV em 5 passos*
*******************************************************************************
*********************************/
/*******************************************************************************
*********************************
* Douglas/Vinicius Enc. Joo Couto - MMC - 27/11/2014 - HD222145
*
* Correo para o SQL que estava recebendo dois parametros para um nico resultado.
*
*******************************************************************************
*********************************/
/*******************************************************************************
*********************************
*
* Bloquear a gravao de item na UN de estoque, caso o mesmo no possua cadastro.
*
*******************************************************************************
*********************************/
/******************************************** mmcb.sds4289.sn ******************
*******************************/
Declare Function GRAVA_TRANSACTION PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange;
Declare Function ATUALIZA_PHYSICAL_INV_720 PeopleCode MMC_IN_LIB.FUNCLIB SavePos
tChange;
Declare Function ATUALIZA_BU_ITEMS_INV PeopleCode MMC_IN_LIB.FUNCLIB SavePostCha
nge;
Declare Function GRAVA_BU_ITEMS_INV PeopleCode MMC_IN_LIB.FUNCLIB SavePostChange
;

/* para percorrer as linhas */
&MAT_LINHAS_NF = GetRowset(Scroll.NF_LN_BRL);
/* REM Conta o Numero de Linhas da NF ; */
&MAT_TOT_NF_LN = &MAT_LINHAS_NF.ActiveRowCount;
/* Variaveis usadas no processo */
&VENDOR_ID = NF_HDR_BRL.VENDOR_ID;
&CONTR_BUSINESS_UNIT = NF_HDR_BRL.BUSINESS_UNIT;
&NF_BRL_ID = NF_HDR_BRL.NF_BRL_ID;
For &MAT_LN = 1 To &MAT_TOT_NF_LN;
/* Variaveis usadas no processo */
&CONTR_BUSINESS_UNIT = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.BUSINESS_U
NIT.VALUE;
&NF_BRL_ID = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.NF_BRL_ID.VALUE;
&CONTR_TOF_PBL = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.TOF_PBL.VALUE;
&UNIT_OF_MEASURE = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.UNIT_OF_MEASUR
E.VALUE;
&CONTR_INV_ITEM_ID = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.INV_ITEM_ID.
VALUE;
&NF_LINE = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.NF_BRL_LINE_NUM.VALUE;
&QTY = &MAT_LINHAS_NF.GetRow(&MAT_LN).NF_LN_BRL.QTY_NF_BRL.VALUE;
/* 1 - Verifica se o flag GERAR SALDO DE ITENS esta marcado no cadastro da
OPERACAO FISCAL */
SQLExec("SELECT B.MMC_TE_GERA_SALDO FROM PS_MMC_TE_TOF_TYPE B WHERE B.EFFD
T = (SELECT MAX(C.EFFDT) FROM PS_MMC_TE_TOF_TYPE C WHERE B.TOF_PBL = C.TOF_PBL A
ND B.EFFDT = C.EFFDT ) AND B.MMC_TE_GERA_SALDO = 'Y' AND B.TOF_PBL = :1", &CONTR
_TOF_PBL, &GERA_SALDO_TERCEIRO);
/* 2 - Se for pra gerar saldo de terceiros, gera a transacao 720 e adjacen
tes */
If &GERA_SALDO_TERCEIRO = "Y" Then
/* Busca a BU de armazenagem da nota */
SQLExec("SELECT A.BUSINESS_UNIT_IN FROM SYSADM.PS_SHIPTO_TBL A WHERE A
.BUSINESS_UNIT_RECV = :1 AND A.SETID = :2 AND A.EFF_STATUS = 'A' AND A.EFFDT = (
SELECT MAX(B.EFFDT) FROM SYSADM.PS_SHIPTO_TBL B WHERE A.SETID = B.SETID AND A.BU
SINESS_UNIT_RECV = B.BUSINESS_UNIT_RECV AND B.EFF_STATUS = 'A' )", &CONTR_BUSINE
SS_UNIT, &SETID, &BU_ARMAZENAGEM);
If None(&BU_ARMAZENAGEM) Then
Error ("ERRO! A UNIDADE DE NEGOCIOS na SHIPTO_TBL no foi localizada p
ara a Unidade de Compra " | &CONTR_BUSINESS_UNIT);
End-If;
/************************************ mmcb.hd226465.sn ****************
********************/
SQLExec("SELECT 'Y' AS EXISTE_BU FROM SYSADM.PS_BU_ITEMS_INV WHERE BUSI
NESS_UNIT = :1 AND INV_ITEM_ID = :2 AND ITM_STATUS_CURRENT = '1' AND ITM_STATUS_
EFFDT <= TRUNC(SYSDATE)", &BU_ARMAZENAGEM, &CONTR_INV_ITEM_ID, &EXISTE_BU);
Error ("O item " | &CONTR_INV_ITEM_ID | " no esta cadastrado na UN de

estoque " | &BU_ARMAZENAGEM | "! Favor verificar a tela Home > Manter Itens > D
efinir Itens > Usar > Definio do Item da UN.");
End-If;
/************************************ mmcb.hd226465.en ****************
********************/
/* Verifica se/qual o local de armazenagem padrao do item */
SQLExec("SELECT A.STORAGE_AREA, A.STOR_LEVEL_1, A.STOR_LEVEL_2, A.STOR_
LEVEL_3, A.STOR_LEVEL_4 FROM PS_DEFAULT_LOC_INV A WHERE BUSINESS_UNIT = :1 AND I
NV_ITEM_ID = :2", &BU_ARMAZENAGEM, &CONTR_INV_ITEM_ID, &ARM_STORAGE_AREA, &ARM_
STOR_LEVEL_1, &ARM_STOR_LEVEL_2, &ARM_STOR_LEVEL_3, &ARM_STOR_LEVEL_4);
If None(&ARM_STORAGE_AREA) Or
None(&ARM_STOR_LEVEL_1)
Or
Or
Or
Then
Error ("ERRO! O ITEM [" | &CONTR_INV_ITEM_ID | "] nao esta com o LOC
AL DE ARMAZENAGEM PADRAO definido na Unidade [" | &BU_ARMAZENAGEM | "]! Corrija
seu cadastro antes de prosseguir em: Home > Manter Itens > Definir Itens > Usar
> Locais de Armazenagem Padro!");
Else
/* Verifica se a Unidade de Medida da NF eh a mesma unidade de medid
a padrao do item */
SQLExec("SELECT UNIT_OF_MEASURE, CONVERSION_RATE, QTY_PRECISION FROM
PS_INV_ITEM_UOM WHERE SETID = :1 AND INV_ITEM_ID = :2 AND DFLT_UOM_STOCK = 'Y'"
, &SETID, &CONTR_INV_ITEM_ID, &UNIT_OF_MEASURE_STD, &CONVERSION_RATE, &QTY_PRECI
SION);
If None(&UNIT_OF_MEASURE_STD) Then
Error ("ERRO! No existe unidade de medida padro definida para o ITE
M [" | &CONTR_INV_ITEM_ID | "] em: Home > Manter Itens > Definir Itens > Usar >
Definio de Item. Corrija o cadastro!");
End-If;
/* Verifica se a unidade de medida da nota eh a padrao. Se for, fica
tudo igual */
If &DEFAULT_UOM = &UNIT_OF_MEASURE Then
&QTY_BASE = &QTY;
Else
/* Quando eh diferente, busca a taxa de conversao para a unidade
da nota */
SQLExec("SELECT CONVERSION_RATE, QTY_PRECISION FROM PS_INV_ITEM_U
OM WHERE SETID = :1 AND INV_ITEM_ID = :2 AND UNIT_OF_MEASURE = :3", &SETID, &CON
TR_INV_ITEM_ID, &UNIT_OF_MEASURE, &CONVERSION_RATE_NF, &QTY_PRECISION_NF);
If None(&CONVERSION_RATE_NF) Or
&CONVERSION_RATE_NF <= 0 Then
Error ("ERRO! Taxa de converso inexistente ou igual a zero para
o ITEM [" | &CONTR_INV_ITEM_ID | "] e UNIDADE DE MEDIDA [" | &UNIT_OF_MEASURE |
"]. Corrija o cadastro!");
End-If;
&QTY_BASE = &CONVERSION_RATE_NF * &QTY;
End-If;
/* Preenche as variaveis usadas daqui pra baixo */
&SOURCE_BUS_UNIT = &CONTR_BUSINESS_UNIT;
&RECEIVER_ID = &NF_BRL_ID;
&RECV_LN_NBR = &NF_LINE;
&ORDER_NO = &NF_BRL_ID;
&ORDER_INT_LINE_NO = &NF_LINE;
&SOURCE_BUS_UNIT = &CONTR_BUSINESS_UNIT;
&INV_LOT_ID = "NONE";
&SERIAL_ID = "NONE";
&PO_ID = " ";
&DEPT_ID = " ";
&ACCOUNT = " ";
&DISTRIB_TYPE = " ";
&ANALYSIS_TYPE = " ";
&SHIP_ID = " ";
&TRANSACTION_SOURCE = " ";
&BUSINESS_UNIT_PO = " ";
&CONTAINER_ID = " ";
&LAST_ORDER = " ";
&PRICE_PO = "0";
&DISTRIB_LINE_NUM = "0";
&DISTRIB_SEQ_NUM = "0";
&SCHED_LINE_NO = "0";
&DEMAND_LINE_NO = "0";
&SCHED_LINE_NO = "0";
&PROCESS_INSTANCE = "0";
&RECV_SHIP_SEQ_NBR = "0";
&OPR_ID = %OperatorId;
&STAGED_TYPE = "1";
&STAGED_DATE = "1900-01-01";
&TRANSACTION_GROUP = "720";
&PROCESS_FLAG = "N";
&DT_TIMESTAMP = %Datetime;
&TRANSACTION_DATE = %Date;
/* 3 - Insere a movimentao na TRANSACTION_INV - transao 720 */
/* Define o SEQ_NBR */
SQLExec("SELECT NVL( MAX( SEQ_NBR +1 ), 1 ) FROM SYSADM.PS_TRANSACTI
ON_INV WHERE BUSINESS_UNIT = :1 AND INV_ITEM_ID = :2 AND DT_TIMESTAMP = %DateTim
eIn(:3)", &BU_ARMAZENAGEM, &CONTR_INV_ITEM_ID, &DT_TIMESTAMP, &SEQ_NBR);
GRAVA_TRANSACTION(&BU_ARMAZENAGEM, &CONTR_INV_ITEM_ID, &DT_TIMESTAMP
, &SEQ_NBR, &SOURCE_BUS_UNIT, &ORDER_NO, &ORDER_INT_LINE_NO, &SCHED_LINE_NO, &DE
MAND_LINE_NO, &STAGED_DATE, &INV_LOT_ID, &SERIAL_ID, &ARM_STORAGE_AREA, &ARM_STO
R_LEVEL_1, &ARM_STOR_LEVEL_2, &ARM_STOR_LEVEL_3, &ARM_STOR_LEVEL_4, &RECEIVER_ID
, &RECV_LN_NBR, &TRANSACTION_GROUP, &TRANSACTION_DATE, &QTY_BASE, &QTY, &UNIT_OF
_MEASURE_STD, &UNIT_OF_MEASURE, &OPR_ID, &ACCOUNT, &DEPT_ID, &PO_ID, &DISTRIB_LI
NE_NUM, &DISTRIB_SEQ_NUM, &RECV_SHIP_SEQ_NBR, &PRICE_PO, &ANALYSIS_TYPE, &VENDOR
_ID, &STAGED_TYPE, &DISTRIB_TYPE, &BUSINESS_UNIT_PO, &TRANSACTION_SOURCE, &CONVE
RSION_RATE, &PROCESS_INSTANCE, &PROCESS_FLAG, &SHIP_ID);
/* 4 - Verifica se o item ja existe na PHYSICAL_INV. Se existir, atu
aliza. Se no existir, faz um INSERT */
ATUALIZA_PHYSICAL_INV_720(&BU_ARMAZENAGEM, &STAGED_DATE, &INV_LOT_ID
, &CONTR_INV_ITEM_ID, &SERIAL_ID, &ARM_STORAGE_AREA, &ARM_STOR_LEVEL_1, &ARM_STO

R_LEVEL_2, &ARM_STOR_LEVEL_3, &ARM_STOR_LEVEL_4, &CONTAINER_ID, &UNIT_OF_MEASURE
_STD, &QTY_BASE, &QTY_BASE);
/* 5 - Verifica se o item ja existe na BU_ITEMS_INV. Se existir, atu
aliza. Se no existir, faz um INSERT */
/* + 5.1 - verifica se a AREA DE ARMAZENAGEM aceita reserva */
/******************************************** mmcb.HD222145.so *****
********************************************
SQLExec("SELECT NETTABLE_FLG FROM PS_STOR_LOC_INV WHERE
BUSINESS_UNIT = :1 AND STORAGE_AREA = :2 AND STOR_LEVEL_1 = :3 AND STOR_LEVEL_2
= :4 AND STOR_LEVEL_3 = :5 AND STOR_LEVEL_4 = :6", &BU_ARMAZENAGEM, &ARM_STORAGE
_AREA, &ARM_STOR_LEVEL_1, &ARM_STOR_LEVEL_2, &ARM_STOR_LEVEL_3, &ARM_STOR_LEVEL_
4, &ACEITA_RESERVA, &WIP_LOC_FLG);
/******************************************** mmcb.HD222
145.eo *************************************************/
/******************************************** mmcb.HD222145.sn *****
********************************************/
SQLExec("SELECT NETTABLE_FLG FROM PS_STOR_LOC_INV WHERE BUSINESS_UNI
T = :1 AND STORAGE_AREA = :2 AND STOR_LEVEL_1 = :3 AND STOR_LEVEL_2 = :4 AND STO
R_LEVEL_3 = :5 AND STOR_LEVEL_4 = :6", &BU_ARMAZENAGEM, &ARM_STORAGE_AREA, &ARM_
STOR_LEVEL_1, &ARM_STOR_LEVEL_2, &ARM_STOR_LEVEL_3, &ARM_STOR_LEVEL_4, &ACEITA_R
ESERVA);
/******************************************** mmcb.HD222145.en *****
********************************************/
/* + 5.2 - Se ja existir registro, atualiza. Se nao, insere. */
SQLExec("SELECT 'Y' FROM PS_BU_ITEMS_INV A WHERE A.BUSINESS_UNIT = :
1 AND A.INV_ITEM_ID = :2", &BU_ARMAZENAGEM, &CONTR_INV_ITEM_ID, &EXISTE_BU_ITEMS
_INV);
If &EXISTE_BU_ITEMS_INV = "Y" Then
ATUALIZA_BU_ITEMS_INV(&BU_ARMAZENAGEM, &CONTR_INV_ITEM_ID, &QTY_B
ASE, &TRANSACTION_GROUP, &LAST_ORDER, &ACEITA_RESERVA);
Else
GRAVA_BU_ITEMS_INV(&BU_ARMAZENAGEM, &CONTR_INV_ITEM_ID, &QTY_BASE
);
End-If;
End-If;
End-If;
End-For;
End-If;
/******************************************** mmcb.sds4289.en ******************
*******************************/
[NF_HDR_INFO_WRK.NF_DIV_VISUAL_PBL.FieldChange]
BRLOC-PO
Author:
APP
Date:
01/12/2000
Description:
Transfers to Visual Divergence panel
----------------------------------------------------------------------------*/

&RETURN_CD = DoModal(Panel.NF_DIV_VISUAL_PBL, " ", - 1, - 1, 0);
If &RETURN_CD = 1 Then
End-If;
End-If;
[NF_HDR_INFO_WRK.NF_HDR_PB_TXT_PBL.FieldChange]
BRLOC-PO
Author:
APP
Date:
01/12/2000
Description:
Transfers to Text Header panel
----------------------------------------------------------------------------*/
&RETURN_CD = DoModal(Panel.NF_HDR_TXT_PBL, " ", - 1, - 1, 0);
If &RETURN_CD = 1 Then
End-If;
End-If;
[NF_HDR_INFO_WRK.TOF_PBL.FieldChange]
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 02/05/2006 - Inicio
Funo para habilitar ou no link de Vinculo de Ordem de Compra na linha */
Declare Function Hab_Desab_Vinc_OC PeopleCode NF_LN_BRL.CFOP_INCOM_PBL FieldForm
ula;
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 02/05/2006 - Fim */
/*******************************************************************************
**/
/* Rafael da Cruz Nascimento - MMCB - mmcb.HD62698 - Data: 05/02/2009
*/
/* Alterao do campo de verificao do local para buscar pela sequencia.
*/
/*******************************************************************************
**/
/*******************************************************************************
***
* Claudio Henrique da Costa - MMCB - mmcb.SDS3069 - Data: 27/04/2009
*
* Alterao para que o Sistema aceite lanar NFs com mesmo nmero de NF e mesma *
* srie, entretanto com data de no mnimo 2 (dois) dias de diferena.
*
*******************************************************************************
***/
/*******************************************************************************
***
*
*
*******************************************************************************
***/
/*******************************************************************************
***
* Faimison Porto - MMCB - hd79085 - 25/11/2009
*
* o campo NF_HDR_BRL.SHIP_BRL_TO_STATE no era preenchido quando feita a entrada
*
* por terceiros, logo alteramos para buscar o local de entrega da tabela

*
* PS_LOCATION_TBL
*
*******************************************************************************
***/
/*******************************************************************************
***
* Fausto/Jeferson - MMCB - mmcb.hd78522 - 13/11/2009 - (Enc. Vincius Alves M.)
*
* Buscar local de entrega da parametrizao, campo NF_HDR_BRL.SHIP_BRL_TO_STATE *
*******************************************************************************
***/
/* BRLPO - HAT - 8.01 - 05/07/01 - Selecionado TOF na Header - Sugerir para as L
inhas - Tof por Linha */
Declare Function
ange;
Declare Function
Declare Function
Declare Function
Declare Function
ange;
Declare Function
Change;
Declare Function
Declare Function
hange;
Declare Function
dChange;
Declare Function
Declare Function
Declare Function
Declare Function
b.sds3239.ln */
TofTxtHdr PeopleCode RECV_HD_WRK_PBL.REFRESH_TXT_PB_PBL FieldCh

ATUALIZA_DISTRIB PeopleCode NF_LN_BRL.UNIT_PRICE FieldChange;
gray_trsp_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
gray_hdr_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
Gray_hdr_ICMSSUB_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldCh
UnGray_hdr_ICMSSUB_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE Field
gray_line_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
Gray_Line_ICMSSUB_Data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldC
UnGray_Line_ICMSSUB_Data PeopleCode NF_HDR_BRL.NF_BRL_TYPE Fiel
ungray_trsp_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
ungray_hdr_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
ungray_line_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
BUSCA_SETID PeopleCode MMC_BU_SETID.SETID SavePreChange; /* mmc

/* Valmir Tavares - HQS - 04.12.2005 - Impede entrada de NF em duplicidade - Ini
cio */
/******************************** mmcb.SDS3069.so ***************************
***********/
/******************************** mmcb.HD62698.sn ***************************
***********/
/* SQLExec("SELECT 'X' FROM PS_NF_HDR_BRL WHERE NF_BRL = :1 AND NF_BRL_SERIES
= :2 AND VENDOR_SETID = 'MMCSA' AND VENDOR_ID = :3 AND ADDRESS_SEQ_NUM = :4", N
F_HDR_BRL.NF_BRL, NF_HDR_BRL.NF_BRL_SERIES, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.ADD
RESS_SEQ_NUM, &EXISTE); */
/******************************** mmcb.HD62698.en ***************************
***********/
/******************************** mmcb.SDS3069.eo ***************************
***********/
/******************************** mmcb.HD62698.so ***************************
***********/
/*
SQLExec("SELECT 'X' FROM PS_NF_HDR_BRL WHERE NF_BRL = :1 AND NF_BRL_SERIES =

:2 AND VENDOR_SETID = 'MMCSA' AND VENDOR_ID = :3 AND VNDR_LOC = :4", NF_HDR_BRL.
NF_BRL, NF_HDR_BRL.NF_BRL_SERIES, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.VNDR_LOC, &EX
ISTE);
*/
/******************************** mmcb.HD62698.eo ***************************
***********/
/******************************** mmcb.SDS3069.so ***************************
***********/
rem SQLExec("SELECT 'X' FROM PS_NF_HDR_BRL WHERE NF_BRL = :1 AND NF_BRL_SERIE
S = :2 AND VENDOR_SETID = 'MMCSA' AND VENDOR_ID = :3 AND ADDRESS_SEQ_NUM = :4 AN
D NF_BRL_DATE >= %datein(:5) - 2", NF_HDR_BRL.NF_BRL, NF_HDR_BRL.NF_BRL_SERIES,
NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.ADDRESS_SEQ_NUM, NF_HDR_BRL.NF_BRL_DATE, &EXIST
E);
SQLExec("SELECT 'X' FROM PS_NF_HDR_BRL WHERE NF_BRL = :1 AND NF_BRL_SERIES =
:2 AND VENDOR_SETID = :3 AND VENDOR_ID = :4 AND ADDRESS_SEQ_NUM = :5 AND NF_BRL_
DATE = %datein(:6)", NF_HDR_BRL.NF_BRL, NF_HDR_BRL.NF_BRL_SERIES, &SETID, NF_HDR
_BRL.VENDOR_ID, NF_HDR_BRL.ADDRESS_SEQ_NUM, NF_HDR_BRL.NF_BRL_DATE, &EXISTE);
/******************************** mmcb.SDS3069.eo ***************************
***********/
If All(&EXISTE) And
%Mode = "A" Then
Error MsgGet(30000, 121, "This Fiscal Document already exists.fabiano");
End-If;
End-If;
/* Valmir Tavares - HQS - 04.12.2005 - Impede entrada de NF em duplicidade - Fim
*/
If Not None(TOF_PBL) Then
/**** BRLOC-PO-AO-8.01 - 20/08/2001 - Inibido controle de link de Docs relacio
nados ****
If NF_TYPE_BRL.NF_BRL_TYPE_FLG = "Y" Then
If &TOF_VOUCHER_PBL = "N" Then
Else
End-If;
End-If;
**** BRLOC-PO-AO-8.01 - 20/08/2001 - END ****/
/**** AUGUSTO VILARINHO NETO - 12/11/2005 - Inibido mensagem de atualizao
&RETURN = MessageBox(36, "", 30000, 86, "This change will update Business Uni
t and Item ID distribution lines fields. Is this OK?");
If &RETURN <> 6 Then
TOF_PBL = PriorValue(TOF_PBL, CurrentRowNumber());
Else
****/
SQLExec("SELECT DESCRSHORT FROM PS_TOF_TYPE_PBL WHERE TOF_PBL = :1 AND EFFDT
= (SELECT MAX(EFFDT) FROM PS_TOF_TYPE_PBL A WHERE TOF_PBL = :1 AND EFFDT <= %DAT
EIN(:2))", TOF_PBL, NF_HDR_BRL.NF_BRL_DATE, &DESCR);
DESCR = &DESCR;
/**** AUGUSTO VILARINHO NETO - 12/11/2005 - Inibido mensagem de atualizao
End-If;
****/
/* Se o TOF das linhas estiver em branco, move o TOF informado na Header */
If None(&TOF_LINE) Then
End-If;
End-For;
TofTxtHdr();
End-If;
/* Gustavo adequacao para nota de debito or %component = component.mmc_lanc_gar_
nd */
If (%Component = Component.NF_RECV_PBL Or
%Component = Component.MMC_LANC_GAR Or
%Component = Component.MMC_LANC_GAR_ND) And
All(TOF_PBL) Then
REM SINALIZA SE OF VAI OU NO GERAR VOUCHER;
SQLExec("SELECT A.TOF_VOUCHER_PBL FROM PS_TOF_TYPE_PBL A WHERE A.TOF_PBL = :1
AND A.EFFDT = (SELECT MAX(A_ED.EFFDT) FROM PS_TOF_TYPE_PBL A_ED WHERE A.TOF_PB
L = A_ED.TOF_PBL)", TOF_PBL, &VOUCHE);
If (&VOUCHE = "N") Then
MMC_TEMP.MMC_MRB_VOUCHER = "NGV";
Else
MMC_TEMP.MMC_MRB_VOUCHER = "SGV";
End-If;
REM JEISON 12/11/05 - FAZ TRATAMENTO PARA VALIDAR SE GERA OU NAO VOUCHER NO C
ABECALHO - INICIO;
AND A.EFF_STATUS = 'A' AND A.EFFDT = (SELECT MAX(B.EFFDT)FROM PS_TOF_TYPE_PBL B
WHERE B.TOF_PBL = A.TOF_PBL AND B.EFF_STATUS = A.EFF_STATUS)", TOF_PBL, &RET_VC
H);
If &RET_VCH = "Y" Then
NF_HDR_BRL.VOUCHER_FLOW_PBL = "V";
/* SQLExec("SELECT B.PAY_TRM_BSE_DT_OPT, B.PYMNT_TERMS_CD FROM PS_BUS_UNIT
_TBL_PM A, PS_BUS_UNIT_OPT_PM B WHERE A.BUSINESS_UNIT = :1 AND B.PRCS_OPTION_ID
= A.PRCS_OPTION_ID AND B.SETID = :2 AND B.EFFDT = (SELECT MAX(C.EFFDT) FROM PS_B
US_UNIT_OPT_PM C WHERE C.SETID = B.SETID AND C.PRCS_OPTION_ID = B.PRCS_OPTION_ID
AND C.EFFDT <= %DateIn(:3))", NF_HDR_BRL.BUSINESS_UNIT, "MMCSA", NF_HDR_BRL.NF_
BRL_DATE, NF_HDR_BRL.PAY_TRM_BSE_DT_OPT, &PYMNT_TERMS); */ /* mmcb.sds3239.lo */
SQLExec("SELECT B.PAY_TRM_BSE_DT_OPT, B.PYMNT_TERMS_CD FROM PS_BUS_UNIT_TB
L_PM A, PS_BUS_UNIT_OPT_PM B WHERE A.BUSINESS_UNIT = :1 AND B.PRCS_OPTION_ID = A
.PRCS_OPTION_ID AND B.SETID = :2 AND B.EFFDT = (SELECT MAX(C.EFFDT) FROM PS_BUS_
UNIT_OPT_PM C WHERE C.SETID = B.SETID AND C.PRCS_OPTION_ID = B.PRCS_OPTION_ID AN
D C.EFFDT <= %DateIn(:3))", NF_HDR_BRL.BUSINESS_UNIT, &SETID, NF_HDR_BRL.NF_BRL_
DATE, NF_HDR_BRL.PAY_TRM_BSE_DT_OPT, &PYMNT_TERMS); /* mmcb.sds3239.lo */
If None(NF_HDR_BRL.PYMNT_TERMS_CD) Then
NF_HDR_BRL.PYMNT_TERMS_CD = &PYMNT_TERMS
End-If;
Else
NF_HDR_BRL.VOUCHER_FLOW_PBL = "N";
NF_HDR_BRL.PYMNT_TERMS_CD = " ";
End-If;
REM JEISON 12/11/05 - FAZ TRATAMENTO PARA VALIDAR SE GERA OU NAO VOUCHER NO C
ABECALHO - FIM;
/* SQLExec("SELECT STATE, COUNTRY FROM PS_VENDOR_ADDR WHERE SETID = 'MMCSA' A
ND VENDOR_ID = :1 AND ADDRESS_SEQ_NUM = :2 AND EFF_STATUS = 'A'", NF_HDR_BRL.VEN
DOR_ID, NF_HDR_BRL.ADDRESS_SEQ_NUM, &STATE, &COUNTRY); */ /* mmcb.sds3239.lo */
DOR_ID, NF_HDR_BRL.ADDRESS_SEQ_NUM, &STATE, &COUNTRY); /* mmcb.sds3239.ln */
/******************************************* mmcb.hd78522.so ****************
***************************/
/*
If (NF_HDR_BRL.SHIPTO_ID = "LCPTS" Or
NF_HDR_BRL.SHIPTO_ID = "LDEFS" Or
NF_HDR_BRL.SHIPTO_ID = "LINDS" Or
NF_HDR_BRL.SHIPTO_ID = "LOVIN" Or
NF_HDR_BRL.SHIPTO_ID = "LVEIN" Or
NF_HDR_BRL.SHIPTO_ID = "LVPEC" Or
NF_HDR_BRL.SHIPTO_ID = "LVVEI" Or
NF_HDR_BRL.SHIPTO_ID = "LMKTS" Or
NF_HDR_BRL.SHIPTO_ID = "LREVS" Or
NF_HDR_BRL.SHIPTO_ID = "LCPTS" Or
NF_HDR_BRL.SHIPTO_ID = "SO PAULO") Then
&ENTREGA = "SP";
Else
&ENTREGA = "GO";
End-If;
*/
/******************************************* mmcb.hd78522.eo ****************
***************************/
/*******************************************
***************************/
/*******************************************
***************************/
/*&ENTREGA = NF_HDR_BRL.SHIP_BRL_TO_STATE;*/
/*******************************************
***************************/
/*******************************************
***************************/
mmcb.hd79085.so ****************
mmcb.hd78522.sn ****************
mmcb.hd78522.en ****************
mmcb.hd79085.eo ****************
/******************************************* mmcb.hd79085.sn ****************

***************************/
SQLExec("SELECT A.STATE FROM SYSADM.PS_LOCATION_TBL A, SYSADM.PS_SHIPTO_TBL B
WHERE B.SETID =:1 AND B.SHIPTO_ID =:2 AND B.EFFDT = (SELECT MAX(EFFDT) FROM SYS
ADM.PS_SHIPTO_TBL WHERE SETID = B.SETID AND SHIPTO_ID = B.SHIPTO_ID) AND B.EFF_S
TATUS = 'A' AND B.SETID = A.SETID AND B.CRTL_LOCATION_BBL = A.LOCATION AND A.EFF
DT = (SELECT MAX(EFFDT) FROM SYSADM.PS_LOCATION_TBL WHERE SETID = A.SETID AND LO
CATION = A.LOCATION) AND A.EFF_STATUS = 'A' ", &SETID, NF_HDR_BRL.SHIPTO_ID, &EN
TREGA);
/******************************************* mmcb.hd79085.en ****************
***************************/

INTERNO, &CFOP_EXTERNO, &CFOP_EXTERIOR, &FINALIDADE);
Else
If All(&STATE) And
All(&ENTREGA) Then
Else
End-If;
End-If;
End-If;
UpdateValue(NF_LN_BRL.IPITAX_STS_BBL, &LN_ROW, "");
UpdateValue(NF_LN_BRL.ICMSTAX_STS_BBL, &LN_ROW, "");
SQLExec("SELECT IPITAX_STS_BBL, ICMSTAX_STS_BBL, PIS_TAX_STATUS_PBL, COFI_
TX_STATUS_PBL FROM PS_MMC_VINC_OF_IMP WHERE TOF_PBL = :1", TOF_PBL, &IPITAX_STS_
BBL, &ICMSTAX_STS_BBL, &PIS, &COFINS);
UpdateValue(NF_LN_BRL.IPITAX_STS_BBL, &LN_ROW, &IPITAX_STS_BBL);
UpdateValue(NF_LN_BRL.ICMSTAX_STS_BBL, &LN_ROW, &ICMSTAX_STS_BBL);
UpdateValue(NF_LN_BRL.PIS_TAX_STATUS_PBL, &LN_ROW, &PIS);
UpdateValue(NF_LN_BRL.COFI_TX_STATUS_PBL, &LN_ROW, &COFINS);
/*** JEISON CALDAS - JC800888 - ATIV.2016 - 18/06/07 - Alterada customizao d
e cdigos fixos para campos parametrizaveis - Inicio ***/
/*** Ativ.2016 - Cdigo fixo inativado
If TOF_PBL = "PSERV" Or
TOF_PBL = "PSERC" Or
TOF_PBL = "PSERE" Or
TOF_PBL = "EGAR3" Or
TOF_PBL = "EGAR5" Then ***/
SQLExec("SELECT MMC_FLAG_FISCAL FROM PS_MMC_PARAMET_OFS WHERE TOF_PBL = :1
AND STATUS = 'A'", TOF_PBL, &MMC_FLAG_FISCAL);
If &MMC_FLAG_FISCAL = "S" Then
REM CABECALHO;
NF_HDR_BRL.IPITAX_BRL_AMT = 0;
NF_HDR_BRL.ICMSTAX_BRL_AMT = 0;
NF_HDR_BRL.ICMSTAX_BRL_BSS = 0;
NF_HDR_BRL.ICMSSUB_BRL_BSS = 0;
NF_HDR_BRL.ICMSSUB_BRL_AMT = 0;
Gray(NF_HDR_BRL.IPITAX_BRL_AMT);
Gray(NF_HDR_BRL.ICMSTAX_BRL_AMT);
Gray(NF_HDR_BRL.ICMSTAX_BRL_BSS);
Gray(NF_HDR_BRL.ICMSSUB_BRL_BSS);
Gray(NF_HDR_BRL.ICMSSUB_BRL_AMT);
REM LINHAS;
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_BSS, &LN_ROW, 0);
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_PCT, &LN_ROW, 0);
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_RED, &LN_ROW, 0);
UpdateValue(NF_LN_BRL.ICMSTAX_BRL_AMT, &LN_ROW, 0);
UpdateValue(NF_LN_BRL.ICMSSUB_BRL_AMT, &LN_ROW, 0);
UpdateValue(NF_LN_BRL.ICMS_COMPL_AMT_PBL, &LN_ROW, 0);
UpdateValue(NF_LN_BRL.COEF_BASE_ICMS_PBL, &LN_ROW, 0);
UpdateValue(NF_LN_WRK_PBL.ICMS_COMPL_PCT_PBL, &LN_ROW, 0);
UpdateValue(NF_LN_BRL.IPITAX_BRL_BSS,
UpdateValue(NF_LN_BRL.IPITAX_BRL_PCT,
UpdateValue(NF_LN_BRL.IPITAX_BRL_RED,
UpdateValue(NF_LN_BRL.IPITAX_BRL_AMT,
Gray(NF_LN_BRL.ICMSTAX_STS_BBL,
Gray(NF_LN_BRL.ICMSTAX_BRL_BSS,
Gray(NF_LN_BRL.ICMSTAX_BRL_PCT,
Gray(NF_LN_BRL.ICMSTAX_BRL_RED,
Gray(NF_LN_BRL.ICMSTAX_BRL_AMT,
Gray(NF_LN_BRL.ICMSSUB_BRL_AMT,
&LN_ROW,
&LN_ROW,
&LN_ROW,
&LN_ROW,
0);
0);
0);
0);
&LN_ROW);
&LN_ROW);
&LN_ROW);
&LN_ROW);
&LN_ROW);
&LN_ROW);
Gray(NF_LN_BRL.IPITAX_STS_BBL, &LN_ROW);
Gray(NF_LN_BRL.IPITAX_BRL_BSS, &LN_ROW);
Gray(NF_LN_BRL.IPITAX_BRL_PCT, &LN_ROW);
Gray(NF_LN_BRL.IPITAX_BRL_RED, &LN_ROW);
Gray(NF_LN_BRL.IPITAX_BRL_AMT, &LN_ROW);
Else
UnGray(NF_HDR_BRL.IPITAX_BRL_AMT);
UnGray(NF_HDR_BRL.ICMSTAX_BRL_AMT);
UnGray(NF_HDR_BRL.ICMSTAX_BRL_BSS);
UnGray(NF_HDR_BRL.ICMSSUB_BRL_BSS);
UnGray(NF_HDR_BRL.ICMSSUB_BRL_AMT);
UnGray(NF_LN_BRL.ICMSTAX_STS_BBL, &LN_ROW);
UnGray(NF_LN_BRL.ICMSTAX_BRL_BSS, &LN_ROW);
UnGray(NF_LN_BRL.ICMSTAX_BRL_PCT, &LN_ROW);
UnGray(NF_LN_BRL.ICMSTAX_BRL_RED, &LN_ROW);
UnGray(NF_LN_BRL.ICMSTAX_BRL_AMT, &LN_ROW);
UnGray(NF_LN_BRL.ICMSSUB_BRL_AMT, &LN_ROW);
End-If;
End-For;
End-If;
/*** JEISON CALDAS - BUSCA PARAMETRIZAO DE TABELA CUSTOMIZADA MMC_PARAMET_OFS - IN
ICIO ***/
All(TOF_PBL) Then
&VL_MSG_BOX = WinMessage("Deseja alterar campos baseado na Parametrizao da Oper
. Fiscal ?", 3, "Alterar campos para def. OF?");
SQLExec("SELECT PO_ID FROM PS_RECV_LN_SHIP WHERE BUSINESS_UNIT = :1 AND RECEI
VER_ID = :2", NF_HDR_BRL.BUSINESS_UNIT, NF_HDR_BRL.RECEIVER_ID, &PO_ID);
If &VL_MSG_BOX = 6 Then
SQLExec("SELECT INV_ITEM_ID, DESCR254_MIXED, QTY_LN_RECVD_VUOM, DEPTID, NF
_BRL_TYPE, CATEGORY_ID FROM PS_MMC_PARAMET_OFS WHERE TOF_PBL = :1 AND STATUS = '
A'", TOF_PBL, &PITEM, &PDESCR, &PQTY, &PDEPTID, &NF_TYPE, &CATEGORY);

&LN_ATIVAS = ActiveRowCount(Scroll.NF_LN_BRL);
If All(&PITEM) And
None(&PO_ID) Then
/* SQLExec("SELECT INVENTORY_ITEM, UNIT_MEASURE_STD FROM PS_MASTER_ITEM
_TBL WHERE SETID = 'MMCSA' AND INV_ITEM_ID = :1", &PITEM, &ESTOQUE, &UNIT_OF_MEA
SURE); */ /* mmcb.sds3239.ln */
SQLExec("SELECT INVENTORY_ITEM, UNIT_MEASURE_STD FROM PS_MASTER_ITEM_TB
L WHERE SETID = :1 AND INV_ITEM_ID = :2", &SETID, &PITEM, &ESTOQUE, &UNIT_OF_MEA
SURE); /* mmcb.sds3239.ln */
&SETID_ITEM = GetSetId("BUSINESS_UNIT", NF_HDR_BRL.BUSINESS_UNIT, "MAST
ER_ITEM_TBL", "");
&RECNAME = "ITM_PURCH_VW";
&FIELDNAME = "BUSINESS_UNIT";
SQLExec("SELECT DESCR254_MIXED FROM PS_PURCH_ITEM_ATTR WHERE SETID = :
1 AND INV_ITEM_ID = :2", &SETID_ITEM, &PITEM, &DESCR254_MIXED);
&ACCDFT = FetchValue(ITM_PURCH_VW.ACCOUNT, 1);
If &ESTOQUE <> "N" Then
SQLExec("select a.descr from ps_itm_purch_fs a, ps_set_cntrl_rec b w
here a.inv_item_id = :1 and b.setcntrlvalue = :2 and b.recname = :3 and b.setid
= a.setid", &PITEM, NF_HDR_BRL.BUSINESS_UNIT, &RECNAME, &DESCR);
Else
&DESCR = "";
End-If;
For &LN = 1 To &LN_ATIVAS
UpdateValue(NF_LN_BRL.INV_ITEM_ID, &LN, &PITEM);
UpdateValue(NF_LN_BRL.DESCR, &LN, &DESCR);
UpdateValue(NF_LN_BRL.ITM_SETID, &LN, &SETID_ITEM);
UpdateValue(NF_LN_BRL.UNIT_OF_MEASURE, &LN, &UNIT_OF_MEASURE);
UpdateValue(NF_LN_BRL.DESCR254_MIXED, &LN, &DESCR254_MIXED);
If All(&DESCR) Then
Gray(NF_LN_BRL.DESCR, &LN);
End-If;
End-For;
End-If;
REM FAZ TRATAMENTO PARA CATEGORIA/CONTA;
If All(&CATEGORY) And
None(&PO_ID) Then
SQLExec("SELECT ACCOUNT FROM PS_ITM_CAT_TBL WHERE SETID = :1 AND CATEGO
RY_ID = :2", "MMCSA", &CATEGORY, &CONTA); /* mmcb.sds3239.lo */
RY_ID = :2", &SETID, &CATEGORY, &CONTA); /* mmcb.sds3239.ln */
UpdateValue(Record.NF_LN_BRL, &LN, BRL_DISTRIB_LN.ACCOUNT, 1, &CONTA
);
End-For;
End-If;
REM FAZ TRATAMENTO PARA O CAMPO DE DESCRIO;
If All(&PDESCR) And
None(&PO_ID) Then
UpdateValue(NF_LN_BRL.DESCR, &LN, &PDESCR);
End-For;
End-If;
REM FAZ TRATAMENTO PARA O CAMPO QUANTIDADE;

If All(&PQTY) And
None(&PO_ID) Then
UpdateValue(NF_LN_BRL.QTY_NF_BRL, &LN, &PQTY);
&PUNITP = FetchValue(NF_LN_BRL.UNIT_PRICE, &LN);
If All(&PUNITP) Then
&PVALUE = RoundCurrency(&PQTY * &PUNITP, NF_HDR_BRL.BASE_CURRENCY
, NF_HDR_BRL.NF_BRL_DATE);
End-If;
End-For;
End-If;
REM FAZ TRATAMENTO PARA O CAMPO DEPARTAMENTO;
If All(&PDEPTID) And
None(&PO_ID) Then
UpdateValue(Record.NF_LN_BRL, &LN, BRL_DISTRIB_LN.DEPTID, 1, &PDEPTI
D);
End-For;
End-If;
REM FAZ TRATAMENTO PARA O CAMPO TIPO NF;
If All(&NF_TYPE) Then
NF_HDR_BRL.NF_BRL_TYPE = &NF_TYPE;
/****************************** Main Program *************************
****/
Else
Else
End-If;
End-If;
gray_trsp_data();
gray_hdr_data();
Else
End-If;
gray_line_data(&I);
Else
End-If;
End-For;
Else
ungray_trsp_data();
ungray_hdr_data();
End-For;
End-If;
NF_HDR_BRL.INTERUNIT_FLG = NF_TYPE_BRL.INTERUNIT_FLG;
If NF_HDR_BRL.INTERUNIT_FLG = "Y" Then
UnHide(NF_HDR_BRL.BUSINESS_UNIT_IN);
Else
Hide(NF_HDR_BRL.BUSINESS_UNIT_IN);
End-If;
End-If;
End-If;
End-If;
/* Valmir Tavares - HQS - 09.01.2006 - Busca a condio de pagamento na OC - Inicio
*/
/***
&PO_BU = FetchValue(FIS_SHIP_PBL_WS.BUSINESS_UNIT_PO, 1);
&PO_ID = FetchValue(FIS_SHIP_PBL_WS.PO_ID, 1);
SQLExec("select PYMNT_TERMS_CD FROM PS_PO_HDR WHERE BUSINESS_UNIT = :1 AND PO
_ID = :2", &PO_BU, &PO_ID, &PYMNT_TERMS_CD);
If All(&PYMNT_TERMS_CD) Then
NF_HDR_BRL.PYMNT_TERMS_CD = &PYMNT_TERMS_CD;
End-If;
End-If;
***/
/* Valmir Tavares - HQS - 09.01.2006 - Busca a condio de pagamento na OC - Fim */
Mostra ou no o vinculo de Ordem de Compra, dependendo do CFOP da Linha */
Hab_Desab_Vinc_OC();
[NF_HDR_INFO_WRK.TOF_PBL.RowInit]
/********************************************************************
Gustavo Vilarinho Neto - mmcb - 09/12/2009 - mmcb.sds3239 - Implantao People - Sof
t SVB
*********************************************************************/
Declare Function gray_trsp_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
Declare Function gray_hdr_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
Declare Function Gray_hdr_ICMSSUB_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldCh
ange;
Declare Function UnGray_hdr_ICMSSUB_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE Field
Change;
Declare Function Gray_Line_ICMSSUB_Data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldC
hange;
Declare Function gray_line_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
Declare Function UnGray_Line_ICMSSUB_Data PeopleCode NF_HDR_BRL.NF_BRL_TYPE Fiel
dChange;
Declare Function ungray_trsp_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
Declare Function ungray_hdr_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
Declare Function ungray_line_data PeopleCode NF_HDR_BRL.NF_BRL_TYPE FieldChange;
/* BRLPO - HAT - 8.01 - 06/07/01 - Sugere valor Default para TOF - TOF por linha
*/
nd */
%Component = Component.MMC_LANC_GAR_ND Then
/* Sugere valor do TOF da BU */
If %Mode = "A" Then
/*************************** mmcb.sds3239.so ************************/
/*
TOF_PBL = BUS_UNIT_TBL_PM.TOF_PBL;
*/
/*************************** mmcb.sds3239.eo ************************/
End-If;
SQLExec("SELECT DESCRSHORT FROM PS_TOF_TYPE_PBL WHERE TOF_PBL = :1 AND EFFDT
= (SELECT MAX(EFFDT) FROM PS_TOF_TYPE_PBL A WHERE TOF_PBL = :1 AND EFFDT <= %DAT
EIN(:2))", TOF_PBL, NF_HDR_BRL.NF_BRL_DATE, &DESCR);
DESCR = &DESCR;
MMC_TEMP.MMC_MRB_VOUCHER = "NGV";
Else
MMC_TEMP.MMC_MRB_VOUCHER = "SGV";
End-If;
End-If;
/* BRLPO - HAT - 8.01 - 06/07/01 - END */
REM FAZ TRATAMENTO DE CAMPOS BASEADOS NAS PARAMETRIZAES DE OPERAO FISCAL;
SQLExec("SELECT INV_ITEM_ID, DESCR254_MIXED, QTY_LN_RECVD_VUOM, DEPTID, NF_BR
L_TYPE FROM PS_MMC_PARAMET_OFS WHERE TOF_PBL = :1 AND STATUS = 'A'", TOF_PBL, &P
ITEM, &PDESCR, &PQTY, &PDEPTID, &NF_TYPE);
If All(&PITEM) Then
SQLExec("SELECT INVENTORY_ITEM, UNIT_MEASURE_STD FROM PS_MASTER_ITEM_TBL W
HERE SETID = 'MMCSA' AND INV_ITEM_ID = :1", &PITEM, &ESTOQUE, &UNIT_OF_MEASURE);
&SETID_ITEM = GetSetId("BUSINESS_UNIT", NF_HDR_BRL.BUSINESS_UNIT, "MASTER_
ITEM_TBL", "");
SQLExec("SELECT DESCR254_MIXED FROM PS_PURCH_ITEM_ATTR WHERE SETID = :1 A
ND INV_ITEM_ID = :2", &SETID_ITEM, &PITEM, &DESCR254_MIXED);
SQLExec("select a.descr from ps_itm_purch_fs a, ps_set_cntrl_rec b wher
e a.inv_item_id = :1 and b.setcntrlvalue = :2 and b.recname = :3 and b.setid =
a.setid", &PITEM, NF_HDR_BRL.BUSINESS_UNIT, &RECNAME, &DESCR);
Else
&DESCR = "";
End-If;
UpdateValue(NF_LN_BRL.INV_ITEM_ID, &LN, &PITEM);
&ACCDFT = FetchValue(ITM_PURCH_VW.ACCOUNT, &LN);
UpdateValue(Record.NF_LN_BRL, &LN, BRL_DISTRIB_LN.ACCOUNT, 1, &ACCDFT);
UpdateValue(NF_LN_BRL.DESCR, &LN, &DESCR);
UpdateValue(NF_LN_BRL.ITM_SETID, &LN, &SETID_ITEM);
UpdateValue(NF_LN_BRL.UNIT_OF_MEASURE, &LN, &UNIT_OF_MEASURE);
UpdateValue(NF_LN_BRL.DESCR254_MIXED, &LN, &DESCR254_MIXED);
If All(&DESCR) Then
Gray(NF_LN_BRL.DESCR, &LN);
End-If;
End-For;
End-If;
If All(&PDESCR) Then
UpdateValue(NF_LN_BRL.DESCR, &LN, &PDESCR);
End-For;
End-If;
If All(&PQTY) Then
UpdateValue(NF_LN_BRL.QTY_NF_BRL, &LN, &PQTY);
&PUNITP = FetchValue(NF_LN_BRL.UNIT_PRICE, &LN);
&PVALUE = RoundCurrency(&PQTY * &PUNITP, NF_HDR_BRL.BASE_CURRENCY, N
F_HDR_BRL.NF_BRL_DATE);
UpdateValue(NF_LN_BRL.MERCH_ORIG_AMT_PBL, &LN, &PQTY);
End-If;
End-For;
End-If;
If All(&PDEPTID) Then
UpdateValue(Record.NF_LN_BRL, &LN, BRL_DISTRIB_LN.DEPTID, 1, &PDEPTID);
End-For;
End-If;
REM FAZ TRATAMENTO PARA O CAMPO TIPO NF;
If All(&NF_TYPE) Then
NF_HDR_BRL.NF_BRL_TYPE = &NF_TYPE;
/****************************** Main Program ****************************
*/
Else
Else
End-If;
End-If;

gray_trsp_data();
gray_hdr_data();
Else
End-If;
gray_line_data(&I);
Else
End-If;
End-For;
Else
ungray_trsp_data();
ungray_hdr_data();
End-For;
End-If;
NF_HDR_BRL.INTERUNIT_FLG = NF_TYPE_BRL.INTERUNIT_FLG;
If NF_HDR_BRL.INTERUNIT_FLG = "Y" Then
UnHide(NF_HDR_BRL.BUSINESS_UNIT_IN);
Else
Hide(NF_HDR_BRL.BUSINESS_UNIT_IN);
End-If;
End-If;
End-If;
[NF_LN_BRL.BUSINESS_UNIT.RowInit]
/* BRLPO - HAT - 8.00 - 20/06/01 - Desabilita o flag de deleo/insero */
Hide(RECV_HD_WRK_PBL.ADDITIONAL);
Hide(RECV_HD_WRK_PBL.DELETE_BUTTON);
&NF_LINE_MAXROW = ActiveRowCount(Record.NF_LN_BRL);
For &NF_LINE_ROW = 1 To &NF_LINE_MAXROW
/**** BRLOC-PO-AO-27/07/2001 - No inibir flag de seleo ***
Hide(Record.NF_LN_BRL, &NF_LINE_ROW, NF_LN_WRK_PBL.SELECTED_FLAG);
*************************************************************************/
Hide(Record.NF_LN_BRL, &NF_LINE_ROW, DERIVED_BRL_AP.ADDITIONAL);
Hide(Record.NF_LN_BRL, &NF_LINE_ROW, DERIVED_BRL_AP.DELETE_BUTTON);
/**** BRLOC-PO-AO-27/07/2001 - No inibir flag de seleo ***
&NF_DIST_MAXROW = ActiveRowCount(Record.NF_LN_BRL, &NF_LINE_ROW, Scroll.BR
L_DISTRIB_LN);
For &NF_DIST_ROW = 1 To &NF_DIST_MAXROW
Hide(Record.NF_LN_BRL, &NF_LINE_ROW, RECV_LN_DIST_WK.SELECTED_FLAG, &NF
_DIST_ROW);
End-For;
**************************************************************************
/
End-For;
End-If;
/* BRLPO - HAT - 8.00 - 20/06/01 - END */
[NF_LN_BRL.BUSINESS_UNIT.SavePostChange]
/*******************************************************************************
*******
*
*
********************************************************************************
******/
/******************************* mmcb.sds5100 s.n ******************************

*/
If %Component = Component.MMC_NF_ALTERA Then
If (Round(((IPITAX_BRL_BSS * IPITAX_BRL_PCT) / 100), 2) <> IPITAX_BRL_AMT) Th
en
Error ("Valores de base/ aliquota no batem com o valor do IPI");
End-If;
If (Round(((COFINS_BSS_AMT_BBL * COFINS_PCT_BBL) / 100), 2) <> COFINSTAX_BRL_
AMT) Then
Error ("Valores de base/ aliquota no batem com o valor do COFINS");
End-If;
If (Round(((PIS_BSS_AMT_BBL * PIS_PCT_BBL) / 100), 2) <> PISTAX_BRL_AMT) Then
Error ("Valores de base/ aliquota no batem com o valor do PIS");
End-If;
If (Round(((ICMSTAX_BRL_BSS * ICMSTAX_BRL_PCT) / 100), 2) <> ICMSTAX_BRL_AMT)
Then
Error ("Valores de base/ aliquota no batem com o valor do ICMS");
End-If;
End-If;
/******************************* mmcb.sds5100 e.n ******************************
*/
[NF_LN_BRL.BUSINESS_UNIT.SavePreChange]
/*******************************************************************************
**********
* Claudio Henrique da Costa e Vinicius Alves Mello - MMC - 07/12/2006 - mmcb.hd
29943 *
* Alterao para corrigir o problema de notas fiscais de terceiros "POTER" com mais
*
* de um item de uma ou mais ordens de compra
*
*******************************************************************************
**********/
/*******************************************************************************
**********
- mmcb.sds3239
*
*
*******************************************************************************
**********/
/*******************************************************************************
**********
*
*
********************************************************************************
**********/
/*******************************************************************************
**********
* Augusto/Joo Roberto (Enc. Joo Couto) - MMCB - 19/08/2015 - mmcb.hd250656
*
* Correo para que as notas alteradas na tela de manuteno de NF no criem um novo
*
* recebimento.
*
********************************************************************************
**********/
mmcb.sds4689.lo */
Declare Function Cria_Recb_Fisico PeopleCode MMC_TERC_WRK.BUSINESS_UNIT_IN Field
Formula;
If %Component <> Component.MMC_NF_ALTERA Then /* mmcb.hd250656.ln */
/* If BUSINESS_UNIT = "POTER" Then */ /* mmcb.sds3239.lo */
/* If BUSINESS_UNIT = BU_SETID("CPTR1") Then */ /* mmcb.sds4689.lo */
If BUSINESS_UNIT = MMC_BUSINESS_UNIT("POTERC", BUSINESS_UNIT) Then /* mmcb.sd
s4689.ln */
If NF_BRL_LINE_NUM < 2 Then
SQLExec(" UPDATE PS_BUS_UNIT_TBL_PM SET RECV_ID_LAST_USED = RECV_ID_LAS
T_USED + 1 WHERE BUSINESS_UNIT = :1", BUSINESS_UNIT);
SQLExec("SELECT
FROM PS_BUS_UNIT_TBL_PM
Else
SQLExec("SELECT
FROM PS_BUS_UNIT_TBL_PM
End-If;
REPLACE(TO_CHAR(RECV_ID_LAST_USED,'0000000009'),' ','')
WHERE BUSINESS_UNIT = :1", BUSINESS_UNIT, &PREC_ID);
REPLACE(TO_CHAR(RECV_ID_LAST_USED,'0000000009'),' ','')
WHERE BUSINESS_UNIT = :1", BUSINESS_UNIT, &PREC_ID);
&REC_ID = Cria_Recb_Fisico(BUSINESS_UNIT, INV_ITEM_ID, NF_HDR_BRL.SHIPTO_I
D, NF_BRL_LINE_NUM, CURRENCY_CD, NF_HDR_BRL.NF_BRL, NF_HDR_BRL.NF_BRL_SERIES, %O

peratorId, PO_ID, MERCHANDISE_AMT, MERCHANDISE_AMT, QTY_NF_BRL, NF_HDR_BRL.SHIPT
O_ID, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.NF_BRL_ID, &PREC_ID, DESCR, UNIT_OF_MEASU
RE, RECV_LN_NBR, RECV_SHIP_SEQ_NBR);
BUSINESS_UNIT_RECV = BUSINESS_UNIT;
NF_HDR_BRL.RECEIVER_ID = &REC_ID;
RECEIVER_ID = &REC_ID;
SHIPTO_ID = NF_HDR_BRL.SHIPTO_ID;
End-If;
End-If;
[NF_LN_BRL.CFOP_INCOM_PBL.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
Utilizao de Variveis para verifcar se foi utilizado Controle de Terceiros */
Local Rowset &MMC_TERC_OC_RS; /* 02/06/2006 */
Global Rowset &MMC_LinhaNF_LinhasOC; /* Fabio - 21/06/2006 */
If %Component <> "MMC_NF_FA_ALTERA" Then /*mmcb.sds5100 l.n*/
/* No necessrio o preenchimento do CFOP quando a opo de escriturao fiscal do OF es
iver Nenhum */
If TOF_TYPE_PBL.TOF_TAX_BOOK_PBL = "N" Then
WinMessage(MsgGet(30000, 82, "CFOP is not necessary for this type of chose
n TOF."));
CFOP_INCOM_PBL = " ";
CFOP_EXT_CD_BBL = " ";
End-If;
/*** JEISON CALDAS - 25/11/05 - BASEADO EM CFOP PARAMETRIZADO INIBE CAMPO DE
CDIGO DE RETENO - INCIO ***/
/* Gustavo adequacao para nota de debito or %component = component.mmc_lanc_g
ar_nd */
All(CFOP_INCOM_PBL) Then
SQLExec("SELECT 'X' FROM PS_MMC_CFOP_CODRET WHERE SETID = 'MMCSA' AND CFO_
BRL_CD = :1", CFOP_INCOM_PBL, &CFOP_BLOQ);
If &CFOP_BLOQ = "X" Then
WTHD_CD = " ";
Gray(WTHD_CD);
Else
UnGray(WTHD_CD);
End-If;
End-If;
/*** JEISON CALDAS - 25/11/05 - BASEADO EM CFOP PARAMETRIZADO INIBE CAMPO DE
CDIGO DE RETENO - FIM ***/
Alterao de melhoria para habilitar / desabilitar link "Vincular Ordem de Compra
" */
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 20/06/2006
Alterado campo de BUTTON para BUTTONOFFLINE.
Alterado tambm Scroll de MMC_TERC_OC para MMC_CT_NFLN_TRI */
Ao excluir o vnculo com OC, ser excludo tambm o vnculo com a memria (Rowset) global
&MMC_LinhaNF_LinhasOC, baseado em SEQNUM, que contm o nmero da Linha */
If %Page = Page.NF_INFO_LN_PBL And
If &MMC_ENTRAPOR_PACABADO Or
&MMC_ENTRAPOR_PACABADONF Then
MMC_NF_LN_WRK.BUTTON.Visible = False;
MMC_NF_LN_WRK.BUTTON.Enabled = False;
SQLExec("Select MMC_CNTRL_TERC From PS_CFO_BRL_TBL Where SETID = :1 And
CFO_BRL_CD = :2", ITM_SETID, CFOP_INCOM_PBL, &MMC_CNTRL_TERC);
If &MMC_CNTRL_TERC = "Y" Then
MMC_NF_LN_WRK.BUTTONOFFLINE.Visible = True;
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 02/06/2006 - In
icio */
&MMC_TERC_OC_RS = GetRowset(Scroll.MMC_CT_NFLN_TRI);
If All(&MMC_TERC_OC_RS.GetRow(1).MMC_CT_NFLN_TRI.LINE_NBR.Value) The
n
MMC_NF_LN_WRK.BUTTONOFFLINE.Enabled = False;
Else
MMC_NF_LN_WRK.BUTTONOFFLINE.Enabled = True;
End-If;
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 02/06/2006 - Fi
m */
Else
MMC_NF_LN_WRK.BUTTONOFFLINE.Visible = False;
icio */
For &i2 = &MMC_TERC_OC_RS.ActiveRowCount To 1 Step - 1
&MMC_TERC_OC_RS.FlushRow(&i2);
End-For;
PO_ID = "";
m */
icio */
For &i2 = &MMC_LinhaNF_LinhasOC.ActiveRowCount To 1 Step - 1
If &MMC_LinhaNF_LinhasOC.GetRow(&i2).MMC_TERC_OC.SEQNUM.Value = N
F_BRL_LINE_NUM Then
&MMC_LinhaNF_LinhasOC.DeleteRow(&i2);
Break;
End-If;
End-For;
If &MMC_LinhaNF_LinhasOC.ActiveRowCount = 0 Then
&MMC_LinhaNF_LinhasOC.Flush();
End-If;
m */
End-If;
Else
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 02/06/2006 - Inici
o */
End-For;
PO_ID = "";
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 02/06/2006 - Fim *
/
o */
If &MMC_LinhaNF_LinhasOC.GetRow(&i2).MMC_TERC_OC.SEQNUM.Value = NF_B
RL_LINE_NUM Then
Break;
End-If;
End-For;
End-If;
/
End-If;
End-If;
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 26/04/2006 - Cdigo Antigo
- Inicio */
/****************************************************************************
***********/
/* MMC - ASM - 23/02/2006 - Cuando cambia el item, debo consultar nuevamente
para saber si activo el link de vincular con Orden de Compra */
rem ASM SQLExec("Select MMC_CNTRL_TERC From PS_CFO_BRL_TBL Where SETID = :1 A
nd CFO_BRL_CD = :2 And MMC_CNTRL_TERC = 'Y'", ITM_SETID, CFO_BRL_CD, &MMC_CNTRL_
TERC);
/* MMC - ASM - El valor de CFO_BRL_CD se debe obtener en la linea del campo C
FOP_INCOM_PBL */
/*
SQLExec("Select MMC_CNTRL_TERC From PS_CFO_BRL_TBL Where SETID = :1 And CFO_BRL_
CD = :2 And MMC_CNTRL_TERC = 'Y'", ITM_SETID, CFOP_INCOM_PBL, &MMC_CNTRL_TERC);
If All(&MMC_CNTRL_TERC) Then
MMC_NF_LN_WRK.BUTTON.Enabled = True;
Else
End-If;
*/
/* MMC - ASM - Fin */
/****************************************************************************
********/
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 26/04/2006 - Cdigo Antigo
- Fim */
[NF_LN_BRL.CFOP_INCOM_PBL.FieldFormula]
Utilizao de Variveis para verifcar se foi utilizado Controle de Terceiros */
ONF, &MMC_ENTRAPOR_TRIANGULACAO, &MMC_Controle_Terceiros;
Local string &MMC_CNTRL_TERC;
Local Rowset &Level1, &MMC_TERC_OC_RS;
Local number &i, &i2;
Global Rowset &MMC_LinhaNF_LinhasOC; /* Fabio - 21/06/2006 */
Global boolean &criou_RS_MMC_TERC_OC; /* Fabio - 21/06/2006 */
Funo Habilitar ou Desabilitar Vnculo de Ordem de Compra em todas as Linhas da NF
*/
Function Hab_Desab_Vinc_OC()
If &criou_RS_MMC_TERC_OC = False Then
&criou_RS_MMC_TERC_OC = True;
&MMC_LinhaNF_LinhasOC = CreateRowset(Record.MMC_TERC_OC);
End-If;
/* MMC - ASM - 25/02/2005 - Codigo que activa o desactiva el link de "Vincula
r Ordem de Compra" */
&Level1 = GetLevel0()(1).GetRowset(Scroll.NF_LN_BRL);
For &i = 1 To &Level1.ActiveRowCount
/* MMC - ASM - 23/02/2006 - El valor de CFO_BRL_CD se debe obtener en la l
inea del campo CFOP_INCOM_PBL */
/****** MMC_CT_09 - Cdigo antigo...
SQLExec("Select MMC_CNTRL_TERC From PS_CFO_BRL_TBL Where SETID = :1 And CFO_B
RL_CD = :2 And MMC_CNTRL_TERC = 'Y'", &Level1(&i).NF_LN_BRL.ITM_SETID.Value, &Le
vel1(&i).NF_LN_BRL.CFOP_INCOM_PBL.Value, &MMC_CNTRL_TERC);
****** MMC_CT_09 - Cdigo antigo... */
/*
&Level1(&i).MMC_NF_LN_WRK.BUTTON.Enabled = True;
Else
&Level1(&i).MMC_NF_LN_WRK.BUTTON.Enabled = False;
End-If;
*/
/* MMC_CT_09 - Novo cdigo */
If &MMC_Controle_Terceiros And
(&MMC_ENTRAPOR_PACABADO Or
&MMC_ENTRAPOR_PACABADONF) And
SQLExec("Select MMC_CNTRL_TERC From PS_CFO_BRL_TBL Where SETID = :1 And
CFO_BRL_CD = :2", &Level1(&i).NF_LN_BRL.ITM_SETID.Value, &Level1(&i).NF_LN_BRL.
CFOP_INCOM_PBL.Value, &MMC_CNTRL_TERC);
&Level1(&i).MMC_NF_LN_WRK.BUTTONOFFLINE.Visible = True;
&MMC_TERC_OC_RS = &Level1(&i).GetRowset(Scroll.MMC_CT_NFLN_TRI);
If All(&MMC_TERC_OC_RS.GetRow(1).MMC_CT_NFLN_TRI.LINE_NBR.Value) The
n
&Level1(&i).MMC_NF_LN_WRK.BUTTONOFFLINE.Enabled = False;
Else
&Level1(&i).MMC_NF_LN_WRK.BUTTONOFFLINE.Enabled = True;
End-If;
Else
&Level1(&i).MMC_NF_LN_WRK.BUTTONOFFLINE.Visible = False;
icio */
End-For;
&Level1(&i).NF_LN_BRL.PO_ID.Value = "";
m */
icio */
If &MMC_LinhaNF_LinhasOC.GetRow(&i2).MMC_TERC_OC.SEQNUM.Value = &
Level1(&i).NF_LN_BRL.NF_BRL_LINE_NUM.Value Then
Break;
End-If;
End-For;
End-If;
m */
End-If;
Else
&Level1(&i).MMC_NF_LN_WRK.BUTTONOFFLINE.Visible = False;
o */
/* WELBE 11/07/2006 Comentado pois no deve limpar a scroll neste caso
End-For; */
REM WELBE 11/07/2006 &Level1(&i).NF_LN_BRL.PO_ID.Value = "";
/
o */
/* WELBE 11/07/2006 Comentado pois no deve limpar a scroll neste caso
If &MMC_LinhaNF_LinhasOC.GetRow(&i2).MMC_TERC_OC.SEQNUM.Value = &Lev
el1(&i).NF_LN_BRL.NF_BRL_LINE_NUM.Value Then
Break;
End-If;
End-For;
End-If;
*/
/
End-If;
End-For;
/* MMC -ASM */
End-Function;
[NF_LN_BRL.CFOP_INCOM_PBL.RowInit]
If %Mode = "A" Then
If TOF_TYPE_PBL.TOF_TAX_BOOK_PBL = "N" Then
CFOP_INCOM_PBL = " ";
CFOP_EXT_CD_BBL = " ";
End-If;
End-If;
/*** JEISON CALDAS - 25/11/05 - BASEADO EM CFOP PARAMETRIZADO INIBE CAMPO DE CDIG
O DE RETENO - INCIO ***/
%Component = Component.MMC_LANC_GAR) And
All(CFOP_INCOM_PBL) Then
SQLExec("SELECT 'X' FROM PS_MMC_CFOP_CODRET WHERE SETID = 'MMCSA' AND CFO_BRL
_CD = :1", CFOP_INCOM_PBL, &CFOP_BLOQ);
If &CFOP_BLOQ = "X" Then
WTHD_CD = " ";
Gray(WTHD_CD);
Else
UnGray(WTHD_CD);
End-If;
End-If;
/*** JEISON CALDAS - 25/11/05 - BASEADO EM CFOP PARAMETRIZADO INIBE CAMPO DE CDIG
O DE RETENO - FIM ***/
[NF_LN_BRL.COFINSST_PCT_BBL.RowInit]
/*******************************************************************************
****
* Customizao nos cauculos de NF devolucao.
********************************************************************************
****/
/***************************** mmcb.sds3027.sn *********************************
****/
If %Component = Component.NF_INQ_PBL Then
Gray(COFINSST_PCT_BBL);
Gray(COFINST_BSSAMT_BBL);
Gray(COFINST_BSEAMT_BBL);
Gray(PISST_PCT_BBL);
Gray(PISST_BSS_AMT_BBL);
Gray(PISST_BSE_AMT_BBL);
Gray(ICMSST_PCT_BBL);
Gray(ICMSSUB_BRL_BSS);
End-If;
/***************************** mmcb.sds3027.en *********************************
***/
[NF_LN_BRL.COFINSTAX_BRL_AMT.SaveEdit]
/*******************************************************************************
***
* Claudio Henrique da Costa - MMCB - 16/08/2006 - mmcb.hd24104
*
* Customizacao para que seja verificado se existe PIS e COFINS para o tipo de
*
* Finalidade.
*
*******************************************************************************
***/
/*******************************************************************************
***
*
*
*******************************************************************************
***/
b.sds3239.ln */
/********************** mmcb.sds3239.so **********************/
/* SQLExec("SELECT COFINS_CALC_PBL FROM SYSADM.PS_BRL_PO_PROP WHERE SETID = 'MMC
SA' AND PURCH_PROP_BRL = :1", PURCH_PROP_BRL, &Exige_COFINS);
*
*
SQLExec("SELECT COFI_GNRT_FLG_PBL FROM SYSADM.PS_VENDOR WHERE SETID = 'MMCSA' AN

D VENDOR_ID = :1", NF_HDR_BRL.VENDOR_ID, &Vendor_COFINS);
SQLExec("SELECT COFINS_CONTRIB_BRL FROM SYSADM.PS_VNDR_ADDR_SCROL WHERE SETID =
'MMCSA' AND VENDOR_ID = :1 AND ADDRESS_SEQ_NUM = :2", NF_HDR_BRL.VENDOR_ID, NF_H
DR_BRL.ADDRESS_SEQ_NUM, &Vendor_CONTRIB_COFINS); */
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.sds3239.sn **********************/
SQLExec("SELECT COFINS_CALC_PBL FROM SYSADM.PS_BRL_PO_PROP WHERE SETID = :1 AND
PURCH_PROP_BRL = :2", PURCH_PROP_BRL, &SETID, &Exige_COFINS);
SQLExec("SELECT COFI_GNRT_FLG_PBL FROM SYSADM.PS_VENDOR WHERE SETID = :1 AND VEN
DOR_ID = :2", &SETID, NF_HDR_BRL.VENDOR_ID, &Vendor_COFINS);
:1 AND VENDOR_ID = :2 AND ADDRESS_SEQ_NUM = :3", &SETID, NF_HDR_BRL.VENDOR_ID, N
F_HDR_BRL.ADDRESS_SEQ_NUM, &Vendor_CONTRIB_COFINS);
/********************** mmcb.sds3239.sn **********************/
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_NF_DEVO_HDR WHERE BUSINESS_UNIT = :1 AND
RECEIVER_ID = :2", BUSINESS_UNIT, NF_BRL_ID, &NF_DEVOLV);
If &Exige_COFINS = "Y" And
COFINSTAX_BRL_AMT = 0 And
&Vendor_COFINS = "Y" And
&Vendor_CONTRIB_COFINS = "Y" And
None(&NF_DEVOLV) Then
Error ("Valor do COFINS Invlido para Finalidade Definida!");
End-If;
[NF_LN_BRL.COFINS_AMT_BSE_BBL.SavePreChange]
/* BRLOC - PO - FFR - 15/12/03 - ICE Resolution ID: 148058 - BEGIN */
%PanelGroup = PanelGroup.DFI_TYP_WRT_PBL_PG Then
COFINS_AMT_BSE_BBL = COFINS_AMT_BBL;
End-If;
/* BRLOC - PO - FFR - 15/12/03 - ICE Resolution ID: 148058 - END */
[NF_LN_BRL.COFINS_PCT_BBL.FieldChange]
/*******************************************************************************
*****
*
*
********************************************************************************
****/
%Component = Component.MMC_LANC_GAR) Then
/*Atualiza porcentagem do COFINS de todas as linhas*/
If &LN_ATIVAS > 1 Then
&VL_MSG_BOX = WinMessage("Deseja alterar a porcentagem do COFINS para toda
s as linhas do documento fiscal?", 3, "Alterar porcentagem do COFINS?");

UpdateValue(COFINS_PCT_BBL, &LN, COFINS_PCT_BBL);
End-For;
End-If;
End-If;
End-If;
[NF_LN_BRL.DESCR.FieldChange]
Declare Function Enable_Disable_Distr_Flds PeopleCode INV_ITEM_ID FieldChange;
UnGray(RECV_HD_WRK_PBL.NF_RECALC_PBL);
&SETID_ITEM = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "MASTER_ITEM_TBL", "")
;
SQLExec("select A.INVENTORY_ITEM from PS_MASTER_ITEM_TBL A where A.SETID = :1
and A.INV_ITEM_ID = :2", &SETID_ITEM, INV_ITEM_ID, INVENTORY_ITEM);
If None(INVENTORY_ITEM) Then
If All(DESCR) Then
INVENTORY_ITEM = "N";
End-If;
End-If;
Enable_Disable_Distr_Flds(CurrentRowNumber());
/* BRLOC - PO - FFR - RELASE 8.0SP2 - BEGIN - 09/08/01 */
/* Descrio : Se o item no for um item cadastrado, deve ser permitido cadastrar a
*/
/*
classificao fiscal
*/
If None(INV_ITEM_ID) And
All(DESCR) Then
UnGray(TAX_CLASS_BRL);
End-If;
/* BRLOC - PO - FFR - RELASE 8.0SP2 - END - 09/08/01 */
End-If;
/*BRLOC-PO-APP-8.00-15/02/2001-END*/
[NF_LN_BRL.DSCNT_AMT.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/* BRLOC PM - 16/SEP/97 - Descontos agora so alimentados nas linhas - calcula
merch net e % */
/** BRLOC-PO-AO-24/04/2002 - ICE Resolution 100957 - Alterado de MERCHANDISE_
AMT para MERCH_ORIG_AMT_PBL **/
DSCNT_PCT = Round(DSCNT_AMT / MERCH_ORIG_AMT_PBL * 100, 3);
DERIVED_BRL_AP.MERCH_AMT_DSCNT = MERCH_ORIG_AMT_PBL - DSCNT_AMT;
NF_LN_WRK_PBL.MERCH_AMT_DSCNT = MERCH_ORIG_AMT_PBL - DSCNT_AMT;

[NF_LN_BRL.DSCNT_PCT.FieldChange]
/* BRLOC PM - 16/SEP/97 - Descontos agora so alimentados nas linhas - calcula mer
ch net e % */
/** BRLOC-PO-AO-24/04/2002 - ICE Resolution 100957 - Alterado de MERCHANDISE_AMT
para MERCH_ORIG_AMT_PBL **/
DSCNT_AMT = RoundCurrency(DSCNT_PCT / 100 * MERCH_ORIG_AMT_PBL, BASE_CURRENCY, N
NF_LN_WRK_PBL.MERCH_AMT_DSCNT = MERCH_ORIG_AMT_PBL - DSCNT_AMT;
[NF_LN_BRL.FREIGHT_AMT.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
rmula;
If %Component <> "MMC_NF_ALTERA" Then
If NF_HDR_BRL.FRGHT_PRORATE_PBL = "A" Then
Calc_Freight_Amt();
End-If;
/*BRLOC-PO-APP-8.00-02/04/01-END */
End-If;
[NF_LN_BRL.ICMSTAX_BRL_PCT.FieldChange]
/**** INICIO - AUGUSTO VILARINHO NETO - 12/11/2005 - Opo de alterar a porcentagem
de ICMS para todas as linhas do Documento Fiscal ****/
/*********************************************************************
* Claudio Henrique da Costa - MMC - 24/08/2007 - mmcb.AT2117
*
* Alterao para que o sistema determine situao tributrias dos
*
* impostos como sendo Outras quando as alquotas forem 0 (zero).
*
*********************************************************************/
&VL_MSG_BOX = WinMessage("Deseja alterar a porcentagem de ICMS para todas
as linhas do documento fiscal?", 3, "Alterar porcentagem de ICMS?");
UpdateValue(ICMSTAX_BRL_PCT, &LN, ICMSTAX_BRL_PCT);
End-For;
End-If; /**** FIM MENSAGEM ****/
End-If; /**** FIM LINHAS ATIVAS ****/

/* mmcb.at2117.sn */
SQLExec("SELECT ICMSTAX_STS_BBL FROM SYSADM.PS_MMC_VINC_OF_IMP WHERE TOF_PBL
= :1", TOF_PBL, &PARAMETRO_ICMS);
If ICMSTAX_BRL_PCT = 0 And
None(&PARAMETRO_ICMS) Then
ICMSTAX_STS_BBL = "OUTR";
End-If; /* mmcb.at2117.en */
End-If; /**** FIM COMPONENTE ****/
/**** FIM - AUGUSTO VILARINHO NETO - 12/11/2005 - Opo de alterar a porcentagem de
ICMS para todas as linhas do Documento Fiscal ****/
[NF_LN_BRL.ICMSTAX_BRL_RED.FieldChange]
/**** INICIO - AUGUSTO VILARINHO NETO - 12/11/2005 - Opo de alterar a porcentagem
de reduo do ICMS para todas as linhas do Documento Fiscal ****/
&VL_MSG_BOX = WinMessage("Deseja alterar a porcentagem de reduo do IMCS para
todas as linhas do documento fiscal?", 3, "Alterar porcentagem de reduo ICMS?");
UpdateValue(ICMSTAX_BRL_RED, &LN, ICMSTAX_BRL_RED);
End-For;
/**** FIM - AUGUSTO VILARINHO NETO - 12/11/2005 - Opo de alterar a porcentagem de
reduo do ICMS para todas as linhas do Documento Fiscal ****/
[NF_LN_BRL.ICMSTAX_STS_BBL.SaveEdit]
/*** JC800888 JEISON CALDAS - 22/09/06 - mmcb.AT.1512 - Colocar
istema (fora processo de edio) para que NF no seja salva com
rreta - Inicio ***/
If %Component = "NF_INFO_PBL" Or
If All(ICMSTAX_STS_BBL) And
ICMSTAX_BRL_RCVRY <> 0 And
PURCH_PROP_BRL <> "ATI" And
PURCH_PROP_BRL <> "ATP" Then
Error ("ICMS recuperado, verificar erro na regra especial
);
End-If;
End-If;
/*** JC800888 JEISON CALDAS - 22/09/06 - mmcb.AT.1512 - Colocar
istema (fora processo de edio) para que NF no seja salva com
rreta - Fim ***/
[NF_LN_BRL.ICMS_COMPL_FLG_PBL.FieldChange]
mais travar no s
a situao tributaria inco
ou no lanamento."
mais travar no s
a situao tributaria inco
&LINE_ROW = ActiveRowCount();
If ICMS_COMPL_FLG_PBL = "N" Then
UpdateValue(ICMS_COMPL_AMT_PBL, &LINE_ROW, 0);
End-If;
[NF_LN_BRL.INSURANCE_BRL_AMT.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
Formula;
/*Calc Freight Line Amt if Prorate = "Amount" */
If NF_HDR_BRL.OTHER_PRORATE_PBL = "A" Then
End-If;
/*BRLOC-PO-APP-8.00-02/04/01-END */
[NF_LN_BRL.INV_ITEM_ID.FieldChange]
/*******************************************************************************
*****************
* Itamar Junior - MMCB - 04/08/2009 - mmcb.hd72532 - Ajuste para que a descrio da
s embalagens*
* apaream na tela de recebimento
*
*******************************************************************************
*****************/
/*******************************************************************************
*****************
* Bleno Sampaio - MMCB - 26/09/2011- mmcb.hd125448
*
* Correo em SQL que mantinha fixo o SETID da MMCSA, fora do padro multi-empresa
*
*******************************************************************************
*****************/
Declare Function
la;
Declare Function
a;
Declare Function
Declare Function
Declare Function
b.hd125448.ln */
get_ship_to_country PeopleCode FUNCLIB_PBL.SHIPTO_ID FieldFormu

get_vendor_country PeopleCode FUNCLIB_PBL.VENDOR_ID FieldFormul
CFOP_Values PeopleCode FUNCLIB_PBL.CFOP_INCOM_PBL FieldFormula;
do_IR_code PeopleCode FUNCLIB_BRL_NF.VENDOR_ID FieldFormula;
BUSCA_SETID PeopleCode MMC_BU_SETID.SETID SavePreChange; /* mmc
Variveis utilizadas para controle de criao ou no de Ordem de Produo */

Declare Function Hab_Desab_Vinc_OC PeopleCode CFOP_INCOM_PBL FieldFormula;
Global boolean &MMC_Controle_Terceiros, &MMC_ENTRAPOR_ITEM, &MMC_ENTRAPOR_PACABA
DO, &MMC_ENTRAPOR_PACABADONF, &MMC_ENTRAPOR_TRIANGULACAO, &MMC_CT_GERAOP;
Component string &OldINVITEMID;
Ao alterar Quantidade ou Cdigo de Item, ou inserir ou excluir Item, ser desvincula
do de OP */
Declare Function LimpaVincOP PeopleCode MMC_TERC_WRK.BUSINESS_UNIT_IN FieldFormu
la;
/* BRLOC-IN-NAS - RELEASE 8.0 - BEGIN - 23/03/01 */
/*Gray and ungray logic for inventory business unit reference and item id fields
localizated under distribution line scroll bar.*/
Function Enable_Disable_Distr_Flds(&LVL_1_ROW)
&DIST_ROWS = ActiveRowCount(Record.NF_LN_BRL, &LVL_1_ROW, Record.BRL_DISTRIB_
LN);
&INVENTORY_ITEM = FetchValue(INVENTORY_ITEM, &LVL_1_ROW);
If &INVENTORY_ITEM = "Y" Or
None(&INVENTORY_ITEM) Or
/* BRLPO-HAT-8.01-11/07/01 - Substituido FLOW_STATUS_PBL da Header por
VOUCHER_FLOW_PBL-tof por linha */
/*
NF_HDR_BRL.FLOW_STATUS_PBL <> "V" Then */
NF_HDR_BRL.VOUCHER_FLOW_PBL <> "V" Then
/* BRLPO-HAT-8.01-11/07/01 - end */
For &I = 1 To &DIST_ROWS
UpdateValue(Record.NF_LN_BRL, &LVL_1_ROW, BRL_DISTRIB_LN.BU_IN_REF_PBL,
&I, " ");
UpdateValue(Record.NF_LN_BRL, &LVL_1_ROW, BRL_DISTRIB_LN.INV_ITEM_ID, &
I, " ");
Gray(Record.NF_LN_BRL, &LVL_1_ROW, BRL_DISTRIB_LN.BU_IN_REF_PBL, &I);
Gray(Record.NF_LN_BRL, &LVL_1_ROW, BRL_DISTRIB_LN.INV_ITEM_ID, &I);
End-For;
Else
UnGray(Record.NF_LN_BRL, &LVL_1_ROW, BRL_DISTRIB_LN.BU_IN_REF_PBL, &I);
&BU_IN_REF = FetchValue(Record.NF_LN_BRL, &LVL_1_ROW, Record.BRL_DISTRI
B_LN, &I, BRL_DISTRIB_LN.BU_IN_REF_PBL);
If None(&BU_IN_REF) Then
Gray(Record.NF_LN_BRL, &LVL_1_ROW, BRL_DISTRIB_LN.INV_ITEM_ID, &I);
Else
UnGray(Record.NF_LN_BRL, &LVL_1_ROW, BRL_DISTRIB_LN.INV_ITEM_ID, &I)
;
End-If;
End-For;
End-If;
End-Function;
Function cfop_incom();
/*brloc-po-app-8.01-18/09/01-begin */
/* Alterao na funo para sugerir o CFOP de acordo com o TOF */
&SETID = VENDOR_LOC.SETID;
&state_FROM = NF_HDR_BRL.SHIP_FROM_STATE;
&STATE_TO = NF_HDR_BRL.SHIP_BRL_TO_STATE;
&VENDOR_ESTABID = VENDOR.ESTABID;
If &state_FROM = &STATE_TO Then
&TIPO = "E";
Else
&TIPO = "I";
End-If;
/* BRLPO-HAT-8.01-10/07/01 - Substitudo TOF da Header pelo TOF da Line - Tof p
or linha */
/* CFOP_Values(&SETID, "I", &VENDOR_ESTABID, &estabid_to, NF_HDR_BRL.TOF_PBL
, PURCH_PROP_BRL, &TIPO, CFOP_INCOM_PBL, CFOP_EXT_CD_BBL); */
REM JEISON CALDAS - 02/11/05 - CAMPO DE CFOP NO DEVE SER TRATADO NO ITEM ;
REM CFOP_Values(&SETID, "I", &VENDOR_ESTABID, TOF_PBL, PURCH_PROP_BRL, &TIPO,
CFOP_INCOM_PBL, CFOP_EXT_CD_BBL) - JC800888 02/11/05;
/* BRLPO-HAT-8.01-10/07/01 - END */
/*brloc-po-app-8.01-18/09/01-end */
End-Function;
&SETID = BUSCA_SETID(); /* mmcb.hd125448.ln */

/* BRLOC-IN-NAS - RELEASE 8.0 - END - 23/03/01 */
/* - Editable for Items */
UnGray(DESCR);
REM JEISON CALDAS 02/11/05 - ITEM NO DEVE TRATAR FINALIDADE;
REM UnGray(PURCH_PROP_BRL) - JC800888 02/11/05;
UnGray(TAX_CLASS_BRL);
If INSTALLATION.PO = "Y" Then
SQLExec("select a.descr from ps_itm_purch_fs a, ps_set_cntrl_rec b where a
.inv_item_id = :1 and b.setcntrlvalue = :2 and b.recname = :3 and b.setid = a.s
etid", INV_ITEM_ID, BUSINESS_UNIT, &RECNAME, &DESCR);
REM JEISON CALDAS - 01/11/05 - ABRE CAMPO DESCRIO PARA ITENS QUE NO SEJA DE E
STOQUE;
/*************************mmcb.hd125448.so*************************/
/*SQLExec("SELECT INVENTORY_ITEM FROM PS_MASTER_ITEM_TBL WHERE SETID = 'MM
CSA' AND INV_ITEM_ID = :1", INV_ITEM_ID, &ESTOQUE);*/
/*************************mmcb.hd125448.eo*************************/
/*************************mmcb.hd125448.sn*************************/
SQLExec("SELECT INVENTORY_ITEM FROM PS_MASTER_ITEM_TBL WHERE SETID = :1 AN
D INV_ITEM_ID = :2", &SETID, INV_ITEM_ID, &ESTOQUE);
/*************************mmcb.hd125448.en*************************/
/************************************** mmcb.hd72532.sn ******************
********************/
DESCR = &DESCR;
If INV_ITEM_ID = "4/IMPROD" Or
INV_ITEM_ID = "5/IMPROD" Then
DESCR = "";
End-If;
/************************************** mmcb.hd72532.sn ******************
********************/
/************************************** mmcb.hd72532.so ******************

********************/
/*If &ESTOQUE <> "N" Then
DESCR = &DESCR;
Else */
/* mmcb.sds2946 - s.n. */
/* DESCR = "";
DESCR = &DESCR;
Gray(DESCR);
*/
/* mmcb.sds2946 - s.n. */
/* End-If; */
/************************************** mmcb.hd72532.eo ******************
********************/
/* mmcb.sds2946 - s.n. */
/* If INV_ITEM_ID = "4/IMPROD" Or
INV_ITEM_ID = "5/IMPROD" Then
DESCR = "";
UnGray(DESCR);
End-If;
*/
/* mmcb.sds2946 - s.n. */
REM PURCH_PROP_BRL = INV_ITEMS.PURCH_PROP_BRL - JC800888 02/11/05;
TAX_CLASS_BRL = INV_ITEMS.TAX_CLASS_BRL;
If All(DESCR) And
&ESTOQUE <> "N" Then
Gray(DESCR);
End-If;
/*** If None(PURCH_PROP_BRL) Then
SQLExec("SELECT PURCH_PROP_BRL FROM PS_VENDOR WHERE VENDOR_ID = :1", NF
_HDR_BRL.VENDOR_ID, PURCH_PROP_BRL);
End-If; JC800888 - 02/11/05 ***/
/*************************mmcb.hd125448.so*************************/
/* SQLExec("SELECT INVENTORY_ITEM FROM SYSADM.PS_MASTER_ITEM_TBL WHERE SET
ID = 'MMCSA' AND INV_ITEM_ID = :1", INV_ITEM_ID, &INVT);*/
/*************************mmcb.hd125448.eo*************************/
/*************************mmcb.hd125448.sn*************************/
SQLExec("SELECT INVENTORY_ITEM FROM SYSADM.PS_MASTER_ITEM_TBL WHERE SETID
= :1 AND INV_ITEM_ID = :2", &SETID, INV_ITEM_ID, &INVT);
/*************************mmcb.hd125448.en*************************/
If All(TAX_CLASS_BRL) And
&INVT <> "N" Then

Gray(TAX_CLASS_BRL);
End-If;
/*brloc-po-app-8.01-18/09/01-begin */
/* Chama funo para buscar valor de CFOP */
cfop_incom();
/*brloc-po-app-8.01-18/09/01-end */
End-If;
End-If;
;
/* Busca o preo unitrio do item relacionado ao fornecedor como sugesto de valor
*/
SQLExec("select PRICE_VNDR, UNIT_OF_MEASURE FROM PS_ITM_VNDR_UOM_PR WHERE SET
ID = :1 AND INV_ITEM_ID = :2 AND VENDOR_ID = :3 AND VNDR_LOC = :4 AND VENDOR_SET
ID = :5", &SETID_ITEM, INV_ITEM_ID, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.VNDR_LOC, N
F_HDR_BRL.VENDOR_SETID, &UNIT_PRICE, UNIT_OF_MEASURE);
If None(&UNIT_PRICE) Then
/* seleciona a descrio longa do item para ser mostrada no boto de descrio */
SQLExec("SELECT PRICE_LIST, DESCR254_MIXED FROM PS_PURCH_ITEM_ATTR WHERE S
ETID = :1 AND INV_ITEM_ID = :2", &SETID_ITEM, INV_ITEM_ID, &UNIT_PRICE, DESCR254
_MIXED);
/*BRLOC-PO-APP-8.01-20/09/01-END */
End-If;
UNIT_PRICE = &UNIT_PRICE;
/*BRLOC-PO-APP-8.00-23/08/2001-END*/
SQLExec("select A.INVENTORY_ITEM,A.UNIT_MEASURE_STD from PS_MASTER_ITEM_TBL A
where A.SETID = :1 and A.INV_ITEM_ID = :2", &SETID_ITEM, INV_ITEM_ID, INVENTORY
_ITEM, &UNIT_OF_MEASURE);
ITM_SETID = &SETID_ITEM;
/* verifica se existe unidade de medida relacionada ao fornecedor, seno atribu
e a do item */
If None(UNIT_OF_MEASURE) Then
UNIT_OF_MEASURE = &UNIT_OF_MEASURE;
End-If;
/*BRLOC-PO-APP-8.00-23/08/2001-END*/
If All(DESCR) Then
End-If;
End-If;
/*** Atribue conta contbil do item para a linha de distribuio ***/
&LINE_ROW = CurrentRowNumber();
&DIST_ROW = 1;
&ACCDFT = FetchValue(ITM_PURCH_VW.ACCOUNT, &LINE_ROW);
UpdateValue(Record.NF_LN_BRL, &LINE_ROW, BRL_DISTRIB_LN.ACCOUNT, &DIST_ROW
, &ACCDFT);
End-If;
End-If;
/* Inibe boto de recalculo quando o ITEM alterado, pois o sistema deve pegar nova
mente os dados do setup, para fazer os clculos dos impostos */
/* BRLOC-PO-APP-8.00-15/02/2001-END*/
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 26/04/2006 - Cdigo Antigo Inicio
/* Cdigo abaixo comentado. H uma melhoria aps verificao de Item Alterado */
/*******************************************************************************
********/
/* MMC - ASM - Cuando cambia el item, debo consultar nuevamente para saber si ac
tivo el link
de vincular con Orden de Compra */
rem ASM SQLExec("Select MMC_CNTRL_TERC From PS_CFO_BRL_TBL Where SETID = :1 And
CFO_BRL_CD = :2 And MMC_CNTRL_TERC = 'Y'", ITM_SETID, CFO_BRL_CD, &MMC_CNTRL_TER
C);
/* MMC - ASM - El valor de CFO_BRL_CD se debe obtener en la linea del campo CFOP
_INCOM_PBL */
/* antigo inicio...
SQLExec("Select MMC_CNTRL_TERC From PS_CFO_BRL_TBL Where SETID = :1 And CFO_BRL_
CD = :2 And MMC_CNTRL_TERC = 'Y'", ITM_SETID, CFOP_INCOM_PBL, &MMC_CNTRL_TERC);
MMC_NF_LN_WRK.BUTTON.Enabled = True;
Else
End-If;
antigo fim... */
/* MMC - ASM - Fin */
/*******************/
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 26/04/2006 - Cdigo Antigo Fim */
Ao alterar o cdigo do Item, verificar se o usurio quer realmente alterar tal in
formao. Se isso for confirmado, a varivel que indica que a pgina adveio de Controle
de Terceiros - Produto Acabado ou Produto Acabado-NF Servio passar a ser falsa. Se
no, volta para o valor antigo (que foi guardado em FieldEdit) */
&MMC_CT_GERAOP Then
If NF_LN_BRL.INV_ITEM_ID.IsChanged Then
&Resposta = WinMessage(MsgGet(9999, 99, "Essa NF de Retorno no gerar Orde
m de Produo. Deseja Continuar?"), 4, "Advertncia");
If &Resposta = %MsgResult_Yes Then
&MMC_CT_GERAOP = False;
LimpaVincOP();
Else
INV_ITEM_ID = &OldINVITEMID;
End-If;
End-If;
End-If;
End-If;
[NF_LN_BRL.INV_ITEM_ID.FieldEdit]
Component string &OldINVITEMID;

Ao alterar o cdigo do Item, guardado o valor antigo, para verificar se o usurio
quer realmente alterar tal informao. Se isso for confirmado, no evento FieldChang
e, a varivel que indica que a pgina adveio de Controle de Terceiros - Produto Acab
ado ou Produto Acabado-NF Servio passar a ser falsa */
If %Page = Page.NF_INFO_LN_PBL Then
&MMC_ENTRAPOR_PACABADONF) Then
&OldINVITEMID = NF_LN_BRL.INV_ITEM_ID.FormattedValue;
End-If;
End-If;
[NF_LN_BRL.INV_ITEM_ID.RowInit]
Rem *** DUILIO CROCE - GRUPO QUANAM - 04/04/2006 - CDIGO RETIRADO ***;
REM MMC - ASM - 18/02/2006 - Copio parte del cdigo del FieldChange para aca ;
Global boolean &MMC_Controle_Terceiros;
Global boolean &triangulacionOrig;
Local Rowset &Level1;
(&MMC_Controle_Terceiro = True Or
&triangulacionOrig = True) Then
;
REM Busca o preo unitrio do item relacionado ao fornecedor como sugesto de valor
;
/*SQLExec("select PRICE_VNDR, UNIT_OF_MEASURE FROM PS_ITM_VNDR_UOM_PR WHERE S
ETID = :1 AND INV_ITEM_ID = :2 AND VENDOR_ID = :3 AND VNDR_LOC = :4 AND VENDOR_S
ETID = :5", &SETID_ITEM, INV_ITEM_ID, NF_HDR_BRL.VENDOR_ID, NF_HDR_BRL.VNDR_LOC,
NF_HDR_BRL.VENDOR_SETID, &UNIT_PRICE, UNIT_OF_MEASURE);
If None(&UNIT_PRICE) Then
REM seleciona a descrio longa do item para ser mostrada no boto de descrio ;
SQLExec("SELECT PRICE_LIST, DESCR254_MIXED FROM PS_PURCH_ITEM_ATTR WHERE S
ETID = :1 AND INV_ITEM_ID = :2", &SETID_ITEM, INV_ITEM_ID, &UNIT_PRICE, DESCR254
_MIXED);
End-If;
UNIT_PRICE = &UNIT_PRICE;
SQLExec("select A.INVENTORY_ITEM, A.UNIT_MEASURE_STD from PS_MASTER_ITEM_TBL
A where A.SETID = :1 and A.INV_ITEM_ID = :2", &SETID_ITEM, INV_ITEM_ID, INVENTOR
Y_ITEM, &UNIT_OF_MEASURE);*/
ITM_SETID = &SETID_ITEM;
REM verifica se existe unidade de medida relacionada ao fornecedor, seno atrib
ue a do item ;
/*If None(UNIT_OF_MEASURE) Then
UNIT_OF_MEASURE = &UNIT_OF_MEASURE;
End-If;
If All(DESCR) Then
End-If;
End-If;
REM *** Atribue conta contbil do item para a linha de distribuio ***;
&DIST_ROW = 1;
REM Alterada a record onde buscada a Conta. Caso no seja encontrado valor n
enhum a busca volta a ser feita na record original ;
SQLExec("select ACCOUNT from PS_PURCH_ITEM_BU where SETID = :1 and INV_ITE
M_ID = :2 AND BUSINESS_UNIT = :3", &SETID_ITEM, INV_ITEM_ID, BUSINESS_UNIT, &ACC
DFT);
If None(&ACCDFT) Then
&ACCDFT = FetchValue(ITM_PURCH_VW.ACCOUNT, &LINE_ROW);
End-If;
UpdateValue(Record.NF_LN_BRL, &LINE_ROW, BRL_DISTRIB_LN.ACCOUNT, &DIST_ROW
, &ACCDFT);
End-If;
*/
End-If;
REM MMC - ASM - 18/02/2006 - Copio parte del cdigo del FieldChange para aca - FIN
;
Rem *** DUILIO CROCE - GRUPO QUANAM - 04/04/2006 - CDIGO RETIRADO *** */;
[NF_LN_BRL.INV_ITEM_ID.SaveEdit]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - No deixar ITEM estoque em nf servio .
*
*******************************************************************************
*****************/
/********************** mmcb.at2323.sn **********************/
/*
SQLExec("select a.inventory_item from ps_master_item_tbl a where a.setid ='MM
CSA' and a.inv_item_id =:1 ", INV_ITEM_ID, &ITEM_ESTOQUE);
If &ITEM_ESTOQUE = "Y" Then
Error ("Item: " | INV_ITEM_ID | " de estoque, no pode ser salvo em NF Servio
.");
End-If;
End-If;
*/
/********************** mmcb.at2323.en **********************/
[NF_LN_BRL.INV_ITEM_ID.SavePostChange]
/*******************************************************************************
**********
Jeferson Rodrigues - MMC - 22/07/2009 - mmcb.hd70635 - Correcao Erro ao excluir
a linha do documento fiscal
********************************************************************************
**********/
/*** mmcb.hd70635.so ***/
/*
If None(INV_ITEM_ID) Then
Error (" obrigatrio informar o Cdigo do Item! Verificar a linha: " | NF_BRL_L
INE_NUM);
End-If;
*/
/*** mmcb.hd70635.eo ***/
/*** mmcb.hd70635.sn ***/

&ACT_ROW = ActiveRowCount(Record.NF_LN_BRL);
If &ACT_ROW >= NF_BRL_LINE_NUM Then
Error (" obrigatrio informar o Cdigo do Item! Verificar a linha: " | NF_BR
L_LINE_NUM);
End-If;
End-If;
/*** mmcb.hd70635.en ***/
End-If;
[NF_LN_BRL.INV_ITEM_ID.SavePreChange]
/*******************************************************************************
***************
Gustavo Vilarinho Neto - MMCB - 09/06/2010 mmcb.hd93087
Comentrio - Obrigatrio informar o Codigo do item.
********************************************************************************
**************/
/****************mmcb.hd93087.sn************************************************
**************/
Error (" obrigatrio informar o Cdigo do Item! Verificar a linha: " | NF_BRL_L
INE_NUM);
End-If;
End-If;
/****************mmcb.hd93087.en************************************************
**************/
[NF_LN_BRL.IPITAX_BRL_PCT.FieldChange]
/*********************************************************************
*
*
*
*********************************************************************/
If (%Component = Component.NF_RECV_PBL Or /* mmcb.at2117.sn */
SQLExec("SELECT IPITAX_STS_BBL FROM SYSADM.PS_MMC_VINC_OF_IMP WHERE TOF_PBL =
:1", TOF_PBL, &PARAMETRO_IPI);
If IPITAX_BRL_PCT = 0 And
None(&PARAMETRO_IPI) Then
IPITAX_STS_BBL = "OUTR"
End-If;
[NF_LN_BRL.ITEM_ORIGIN_BBL.FieldChange]
/************************************************************************
* Mauri R. Back - MMCB - mmcb.sds4359 - 09/08/2013
*
* Replicar Origem para todos os itens
*
************************************************************************/
/********************** mmcb.sds4359.sn *********************************/
/*Painel de Entrada Direta e Entrada com Recebimento*/
/*Caso tiver mais de uma linha*/
/*Recupera se o usuario deseja alterar origem em todas as linhas*/
&MSG_BOX = WinMessage("Deseja alterar a Origem em todas as linhas do docum
ento fiscal?", 3, "Alterar Origem?");
/*Se deve ser alterado a origem em todas as linhas*/
If &MSG_BOX = 6 Then
UpdateValue(ITEM_ORIGIN_BBL, &LN, ITEM_ORIGIN_BBL);
End-For;
/********************** mmcb.sds4359.en *********************************/
[NF_LN_BRL.MERCHANDISE_AMT.FieldChange]
/*******************************************************************************
*********
BRLOC-PO-AO-24/04/2002 - ICE Resolution 100957
- Este cdigo foi comentado e movido para o campo MERCH_ORIG_AMT_PBL, pois este c
ampo deixou de ser editvel sendo substituido pelo campo MERCH_ORIG_AMT_PBL.
********************************************************************************
**********
If All(QTY_NF_BRL) And
All(MERCHANDISE_AMT) Then
UNIT_PRICE = RoundCurrency(MERCHANDISE_AMT / QTY_NF_BRL, NF_HDR_BRL.BASE_CURR
ENCY, NF_HDR_BRL.NF_BRL_DATE);
MERCH_AMT_BSE = MERCHANDISE_AMT;
End-If;
If All(DSCNT_PCT) Then
DSCNT_AMT = RoundCurrency(DSCNT_PCT / 100 * MERCHANDISE_AMT, BASE_CURRENCY, N
End-If;
DERIVED_BRL_AP.MERCH_AMT_DSCNT = MERCHANDISE_AMT - DSCNT_AMT;
*** BRLOC-PO-AO-24/04/2002 - ICE Resolution 100957 - END ***********************
**************/
[NF_LN_BRL.MERCH_ORIG_AMT_PBL.FieldChange]
/* BRLOC - PO - FFR - 23/01/2003 - ICE Resolution ID 115947 - BEGIN */
Declare Function ATUALIZA_DISTRIB PeopleCode UNIT_PRICE FieldChange;
/* BRLOC - PO - FFR - 23/01/2003 - ICE Resolution ID 115947 - END */
- Cdigo movido do campo NF_LN_BRL.MERCHANDISE_AMT que foi substituido pelo campo
MERCH_ORIG_AMT_PBL.
***************************************************************************/
If All(PO_ID) Then
SQLExec("SELECT PRICE_PO FROM PS_RECV_LN_SHIP WHERE BUSINESS_UNIT = :1 AND
RECEIVER_ID = :2 AND RECV_LN_NBR = :3 AND RECV_SHIP_SEQ_NBR = :4", BUSINESS_UNI
T, RECEIVER_ID, RECV_LN_NBR, RECV_SHIP_SEQ_NBR, &valor_antes);
If All(&valor_antes) Then
&valor_antes = &valor_antes * QTY_NF_BRL;
Else
&valor_antes = PriorValue(MERCH_ORIG_AMT_PBL);
End-If;
If (MERCH_ORIG_AMT_PBL > &valor_antes) Then
MERCH_ORIG_AMT_PBL = &valor_antes;
WinMessage("O valor nao pode ser aumentado.");
/* mmcb.sds2895 - s.n. */
Else
If (MERCH_ORIG_AMT_PBL < &valor_antes) Then
MERCH_ORIG_AMT_PBL = &valor_antes;
WinMessage("O valor nao pode ser diminudo.");
End-If;
/* mmcb.sds2895 - e.n. */
End-If;
End-If;
End-If;
All(MERCH_ORIG_AMT_PBL) Then
UNIT_PRICE = RoundCurrency(MERCH_ORIG_AMT_PBL / QTY_NF_BRL, NF_HDR_BRL.BASE_C
URRENCY, NF_HDR_BRL.NF_BRL_DATE);
End-If;
If All(DSCNT_PCT) Then
DSCNT_AMT = RoundCurrency(DSCNT_PCT / 100 * MERCH_ORIG_AMT_PBL, BASE_CURRENCY
End-If;
/* BRLOC - PO - FFR - 23/01/2003 - ICE Resolution ID 115947 - BEGIN */
/* Descrio: Atualiza as linhas de distribuio, quando o preo total
preenchido na linha, ao invs do preo unitrio*/
ATUALIZA_DISTRIB();
/* BRLOC - PO - FFR - 23/01/2003 - ICE Resolution ID 115947 - END */
[NF_LN_BRL.NF_BRL_ID.SavePostChange]
/*
&SQL = "
INSERT INTO sysadm.ps_nf_ln_brl ";
&SQL = &SQL | "(business_unit, nf_brl_id, nf_brl_line_num, total_distribs,";
&SQL = &SQL | "
max_distrib_line, business_unit_po, po_id, itm_set
id,";
&SQL = &SQL | "
inv_item_id, descr, merchandise_amt, merch_amt_bs
e, qty_nf_brl,";
&SQL = &SQL | "
statistic_amount, unit_of_measure, unit_price, fr
eight_amt_bse,";
&SQL = &SQL | "
freight_amt, insurance_brl_amt, insurance_brl_bse
,";
&SQL = &SQL | "
otherexp_brl_amt, otherexp_brl_bse, dscnt_amt, ds
cnt_amt_bse,";
&SQL = &SQL | "
dscnt_pct, error_flag, business_unit_recv, receiv
er_id,";
&SQL = &SQL | "
recv_ln_nbr, recv_ship_seq_nbr, shipto_id, txn_cu
rrency_cd,";
&SQL = &SQL | "
base_currency, currency_cd, cfo_brl_cd, purch_pro
p_brl,";
&SQL = &SQL | "
tax_class_brl, ipitax_brl_bse, ipitax_brl_amt, ip
itax_brl_pct,";
&SQL = &SQL | "
ipitax_brl_rcvry, ipitax_brl_bss, tax_type_brl, i
cmstax_brl_bse,";
&SQL = &SQL | "
icmstax_brl_amt, icmstax_brl_pct, icmstax_brl_red
,";
&SQL = &SQL | "
icmstax_brl_rcvry, icmstax_brl_bss, icmssub_brl_a
mt,";
&SQL = &SQL | "
icmssub_brl_bse, icmstax_brl_due, icmstax_brl_ret
ent,";
&SQL = &SQL | "
cfop_incom_pbl, cfop_ext_cd_bbl, ipi_crlim_pct_pb
l,";
&SQL = &SQL | "
ipi_extcr_pct_pbl, icms_crlim_pct_pbl, icms_extcr
_pct_pbl,";
&SQL = &SQL | "
icms_compl_pct_pbl, icms_compl_amt_pbl, icmstax_p
bl_div,";
&SQL = &SQL | "
ipitax_pbl_div, tof_pbl, nf_line_type_bbl, rmneio
_line_no_bbl,";
&SQL = &SQL | "
demand_source, source_bus_unit, product_id, kit_l
ine_nbr,";
&SQL = &SQL | "
item_origin_bbl, sit_trib_icms_bbl, int_tax_class
_brl,";
&SQL = &SQL | "

&SQL = &SQL | "
l,";
&SQL = &SQL | "
pis_amt_bbl,";
&SQL = &SQL | "
isstax_brl_amt,";
&SQL = &SQL | "
cms_bse_bbl,";
&SQL = &SQL | "
_bbl,";
&SQL = &SQL | "
;
&SQL = &SQL | "
bl,";
&SQL = &SQL | "
";
&SQL = &SQL | "
&SQL = &SQL | "
bse_bbl,";
&SQL = &SQL | "
,";
&SQL = &SQL | "
gross_amt_bse,";
&SQL = &SQL | "
m,";
&SQL = &SQL | "
_bbl,";
&SQL = &SQL | "
cr254_mixed,";
&SQL = &SQL | "
g_pbl,";
&SQL = &SQL | "
t_bbl,";
&SQL = &SQL | "
_amt_bbl,";
&SQL = &SQL | "
;
&SQL = &SQL | "
se_amt_bbl,";
&SQL = &SQL | "
pct_bbl,";
&SQL = &SQL | "
f_brl,";
&SQL = &SQL | "
_pbl, rtv_id,";
&SQL = &SQL | "
e_area,";
&SQL = &SQL | "
vel_4,";
&SQL = &SQL | "
t_bbl,";
&SQL = &SQL | "
l,";
&SQL = &SQL | "
_red,";
&SQL = &SQL | "
,";
&SQL = &SQL | "
l,";
unit_amt_bse_bbl, net_amt_bse_bbl, unit_cost,";

cofins_bss_amt_bbl, cofins_pct_bbl, cofins_amt_bb
cofins_amt_bse_bbl, pis_bss_amt_bbl, pis_pct_bbl,
pis_amt_bse_bbl, isstax_brl_bss, isstax_brl_pct,
isstax_brl_bse, mva_pct_bbl, lt_ipi_bse_bbl, lt_i
lt_icms_st_bse_bbl, lt_pis_bse_bbl, lt_cofins_bse
lt_iss_bse_bbl, fin_chg_pct_bbl, finchg_amt_bbl,"
finchg_amt_bse_bbl, net_unit_price, nf_act_tmpl_b
icmstax_sts_bbl, icmssub_sts_bbl, ipitax_sts_bbl,
isstax_sts_bbl, irtax_sts_bbl, insstax_sts_bbl,";
ipi_in_icmsbas_bbl, icms_red_bse_bbl, icmsst_red_
ipi_red_bse_bbl, iss_red_bse_bbl, icmssub_brl_bss
ir_red_bse_bbl, inss_red_bse_bbl, icmsst_pct_bbl,
dst_id_dis, dst_id_rev, dst_id_sur, inventory_ite
cost_adj_sts_pbl, frt_incr_bse_bbl, insr_incr_bse
otex_incr_bse_bbl, wthd_cd, process_instance, des
pymnt_terms_cd, pay_trm_bse_dt_opt, icms_compl_fl
cofinst_bssamt_bbl, cofinsst_pct_bbl, cofinsst_am
cofinst_bseamt_bbl, lt_cofinsstbse_bbl, pisst_bss
pisst_pct_bbl, pisst_amt_bbl, pisst_bse_amt_bbl,"
lt_piss_bse_bbl, ir_bss_amt_bbl, ir_pct_bbl, ir_b
ir_amt_bbl, lt_irbse_bbl, inss_bss_amt_bbl, inss_
inss_bse_amt_bbl, inss_amt_bbl, lt_inssbse_bbl, i
distrib_mthd_flg, paytrms_dt_bse_pbl, flow_status
rtv_ln_nbr, flow_id_bbl, flow_bus_unit_in, storag
stor_level_1, stor_level_2, stor_level_3, stor_le
flow_ship_id_bbl, flow_location_bbl, icms_discoun
dt_flow_bbl, coef_base_flg_pbl, coef_base_icms_pb
coef_base_ipi_pbl, merch_orig_amt_pbl, ipitax_brl
coef_base_cofi_pbl, cf_ipi_id_pbl, cf_icms_id_pbl
cf_pis_id_pbl, cf_cofins_id_pbl, coef_base_pis_pb
&SQL = &SQL
brl_amt,";
&SQL = &SQL
s_pbl";
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
&SQL = &SQL
| "
cofi_crlim_pct_pbl, pis_crlim_pct_pbl, cofinstax_
| "
pistax_brl_amt, pis_tax_status_pbl, cofi_tx_statu
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
"
)";
VALUES (:1, :2, :3, 8,";
1, 'POIND', '0000000108', 'MMCSA',";
' ', 'FABIANO TESTE', 300, 300, 1,";
0, 'UND', 300, 0,";
0, 0, 0,";
0, 0, 0, 0,";
0, 'N', 'POIND', '0000000026',";
1, 1, ' ', 'BRL',";
'BRL', 'BRL', '9.99', 'USO',";
' ', 0, 0, 0,";
0, 300, ' ', 0,";
0, 0, 0,";
0, 300, 0,";
0, 0, 0,";
'9.99', ' ', 0,";
0, 0, 0,";
0, 0, 0,";
0, 'PSERV', ' ', 0,";
' ', ' ', ' ', 0,";
' ', ' ', ' ',";
0, 0, 0,";
0, 0, 0,";
0, 0, 0, 0,";
0, 0, 0, 0,";
0, 0, 0, 0,";
0, 0, 0,";
0, 0, 0,";
0, 0, ' ',";
' ', ' ', ' ',";
' ', ' ', ' ',";
' ', 0, 0,";
0, 0, 0,";
0, 0, 0, 0,";
' ', ' ', ' ', 'N',";
'N', 0, 0,";
0, ' ', 0, ' ',";
' ', ' ', 'N',";
0, 0, 0,";
0, 0, 0,";
0, 0, 0,";
0, 0, 0, 0,";
0, 0, 0, 0,";
0, 0, 0, ' ',";
'Q', NULL, ' ', ' ',";
0, ' ', ' ', ' ',";
' ', ' ', ' ', ' ',";
' ', ' ', 0,";
NULL, ' ', 0,";
0, 0, 0,";
0, ' ', ' ',";
' ', ' ', 0,";
0, 0, 0,";
0, ' ', ' '";
);";
SQLExec(&SQL, BUSINESS_UNIT, NF_BRL_ID, NF_BRL_LINE_NUM);

*/
/*
If %OperatorId <> "JC800888" Then
If %UserId <> "CC801306" Then
&REC = CreateRecord(Record.NF_LN_BRL);
&REC.BUSINESS_UNIT.VALUE = BUSINESS_UNIT;
&REC.NF_BRL_ID.VALUE = NF_BRL_ID;
&REC.NF_BRL_LINE_NUM.VALUE = NF_BRL_LINE_NUM;
&REC.TOTAL_DISTRIBS.VALUE = TOTAL_DISTRIBS;
&REC.MAX_DISTRIB_LINE.VALUE = MAX_DISTRIB_LINE;
&REC.BUSINESS_UNIT_PO.VALUE = BUSINESS_UNIT_PO;
&REC.PO_ID.VALUE = PO_ID;
&REC.ITM_SETID.VALUE = ITM_SETID;
&REC.INV_ITEM_ID.VALUE = INV_ITEM_ID;
&REC.DESCR.VALUE = DESCR;
&REC.MERCHANDISE_AMT.VALUE = MERCHANDISE_AMT;
&REC.MERCH_AMT_BSE.VALUE = MERCH_AMT_BSE;
&REC.QTY_NF_BRL.VALUE = QTY_NF_BRL;
&REC.STATISTIC_AMOUNT.VALUE = STATISTIC_AMOUNT;
&REC.UNIT_OF_MEASURE.VALUE = UNIT_OF_MEASURE;
&REC.UNIT_PRICE.VALUE = UNIT_PRICE;
&REC.FREIGHT_AMT_BSE.VALUE = FREIGHT_AMT_BSE;
&REC.FREIGHT_AMT.VALUE = FREIGHT_AMT;
&REC.INSURANCE_BRL_AMT.VALUE = INSURANCE_BRL_AMT;
&REC.INSURANCE_BRL_BSE.VALUE = INSURANCE_BRL_BSE;
&REC.OTHEREXP_BRL_AMT.VALUE = OTHEREXP_BRL_AMT;
&REC.OTHEREXP_BRL_BSE.VALUE = OTHEREXP_BRL_BSE;
&REC.DSCNT_AMT.VALUE = DSCNT_AMT;
&REC.DSCNT_AMT_BSE.VALUE = DSCNT_AMT_BSE;
&REC.DSCNT_PCT.VALUE = DSCNT_PCT;
&REC.ERROR_FLAG.VALUE = ERROR_FLAG;
&REC.BUSINESS_UNIT_RECV.VALUE = BUSINESS_UNIT_RECV;
&REC.RECEIVER_ID.VALUE = RECEIVER_ID;
&REC.RECV_LN_NBR.VALUE = RECV_LN_NBR;
&REC.RECV_SHIP_SEQ_NBR.VALUE = RECV_SHIP_SEQ_NBR;
&REC.SHIPTO_ID.VALUE = SHIPTO_ID;
&REC.TXN_CURRENCY_CD.VALUE = TXN_CURRENCY_CD;
&REC.BASE_CURRENCY.VALUE = BASE_CURRENCY;
&REC.CURRENCY_CD.VALUE = CURRENCY_CD;
&REC.CFO_BRL_CD.VALUE = CFO_BRL_CD;
&REC.PURCH_PROP_BRL.VALUE = PURCH_PROP_BRL;
&REC.TAX_CLASS_BRL.VALUE = TAX_CLASS_BRL;
&REC.IPITAX_BRL_BSE.VALUE = IPITAX_BRL_BSE;
&REC.IPITAX_BRL_AMT.VALUE = IPITAX_BRL_AMT;
&REC.IPITAX_BRL_PCT.VALUE = IPITAX_BRL_PCT;
&REC.IPITAX_BRL_RCVRY.VALUE = IPITAX_BRL_RCVRY;
&REC.IPITAX_BRL_BSS.VALUE = IPITAX_BRL_BSS;
&REC.TAX_TYPE_BRL.VALUE = TAX_TYPE_BRL;
&REC.ICMSTAX_BRL_BSE.VALUE = ICMSTAX_BRL_BSE;
&REC.ICMSTAX_BRL_AMT.VALUE = ICMSTAX_BRL_AMT;
&REC.ICMSTAX_BRL_PCT.VALUE = ICMSTAX_BRL_PCT;
&REC.ICMSTAX_BRL_RED.VALUE = ICMSTAX_BRL_RED;
&REC.ICMSTAX_BRL_RCVRY.VALUE = ICMSTAX_BRL_RCVRY;
&REC.ICMSTAX_BRL_BSS.VALUE = ICMSTAX_BRL_BSS;
&REC.ICMSSUB_BRL_AMT.VALUE = ICMSSUB_BRL_AMT;
&REC.ICMSSUB_BRL_BSE.VALUE = ICMSSUB_BRL_BSE;
&REC.ICMSTAX_BRL_DUE.VALUE = ICMSTAX_BRL_DUE;
&REC.ICMSTAX_BRL_RETENT.VALUE = ICMSTAX_BRL_RETENT;
&REC.CFOP_INCOM_PBL.VALUE = CFOP_INCOM_PBL;
&REC.CFOP_EXT_CD_BBL.VALUE = CFOP_EXT_CD_BBL;
&REC.IPI_CRLIM_PCT_PBL.VALUE = IPI_CRLIM_PCT_PBL;
&REC.IPI_EXTCR_PCT_PBL.VALUE = IPI_EXTCR_PCT_PBL;
&REC.ICMS_CRLIM_PCT_PBL.VALUE = ICMS_CRLIM_PCT_PBL;
&REC.ICMS_EXTCR_PCT_PBL.VALUE = ICMS_EXTCR_PCT_PBL;
&REC.ICMS_COMPL_PCT_PBL.VALUE = ICMS_COMPL_PCT_PBL;
&REC.ICMS_COMPL_AMT_PBL.VALUE = ICMS_COMPL_AMT_PBL;
&REC.ICMSTAX_PBL_DIV.VALUE = ICMSTAX_PBL_DIV;
&REC.IPITAX_PBL_DIV.VALUE = IPITAX_PBL_DIV;
&REC.TOF_PBL.VALUE = TOF_PBL;
&REC.NF_LINE_TYPE_BBL.VALUE = NF_LINE_TYPE_BBL;
&REC.RMNEIO_LINE_NO_BBL.VALUE = RMNEIO_LINE_NO_BBL;
&REC.DEMAND_SOURCE.VALUE = DEMAND_SOURCE;
&REC.SOURCE_BUS_UNIT.VALUE = SOURCE_BUS_UNIT;
&REC.PRODUCT_ID.VALUE = PRODUCT_ID;
&REC.KIT_LINE_NBR.VALUE = KIT_LINE_NBR;
&REC.ITEM_ORIGIN_BBL.VALUE = ITEM_ORIGIN_BBL;
&REC.SIT_TRIB_ICMS_BBL.VALUE = SIT_TRIB_ICMS_BBL;
&REC.INT_TAX_CLASS_BRL.VALUE = INT_TAX_CLASS_BRL;
&REC.UNIT_AMT_BSE_BBL.VALUE = UNIT_AMT_BSE_BBL;
&REC.NET_AMT_BSE_BBL.VALUE = NET_AMT_BSE_BBL;
&REC.UNIT_COST.VALUE = UNIT_COST;
&REC.COFINS_BSS_AMT_BBL.VALUE = COFINS_BSS_AMT_BBL;
&REC.COFINS_PCT_BBL.VALUE = COFINS_PCT_BBL;
&REC.COFINS_AMT_BBL.VALUE = COFINS_AMT_BBL;
&REC.COFINS_AMT_BSE_BBL.VALUE = COFINS_AMT_BSE_BBL;
&REC.PIS_BSS_AMT_BBL.VALUE = PIS_BSS_AMT_BBL;
&REC.PIS_PCT_BBL.VALUE = PIS_PCT_BBL;
&REC.PIS_AMT_BBL.VALUE = PIS_AMT_BBL;
&REC.PIS_AMT_BSE_BBL.VALUE = PIS_AMT_BSE_BBL;
&REC.ISSTAX_BRL_BSS.VALUE = ISSTAX_BRL_BSS;
&REC.ISSTAX_BRL_PCT.VALUE = ISSTAX_BRL_PCT;
&REC.ISSTAX_BRL_AMT.VALUE = ISSTAX_BRL_AMT;
&REC.ISSTAX_BRL_BSE.VALUE = ISSTAX_BRL_BSE;
&REC.MVA_PCT_BBL.VALUE = MVA_PCT_BBL;
&REC.LT_IPI_BSE_BBL.VALUE = LT_IPI_BSE_BBL;
&REC.LT_ICMS_BSE_BBL.VALUE = LT_ICMS_BSE_BBL;
&REC.LT_ICMS_ST_BSE_BBL.VALUE = LT_ICMS_ST_BSE_BBL;
&REC.LT_PIS_BSE_BBL.VALUE = LT_PIS_BSE_BBL;
&REC.LT_COFINS_BSE_BBL.VALUE = LT_COFINS_BSE_BBL;
&REC.LT_ISS_BSE_BBL.VALUE = LT_ISS_BSE_BBL;
&REC.FIN_CHG_PCT_BBL.VALUE = FIN_CHG_PCT_BBL;
&REC.FINCHG_AMT_BBL.VALUE = FINCHG_AMT_BBL;
&REC.FINCHG_AMT_BSE_BBL.VALUE = FINCHG_AMT_BSE_BBL;
&REC.NET_UNIT_PRICE.VALUE = NET_UNIT_PRICE;
&REC.NF_ACT_TMPL_BBL.VALUE = NF_ACT_TMPL_BBL;
&REC.ICMSTAX_STS_BBL.VALUE = ICMSTAX_STS_BBL;
&REC.ICMSSUB_STS_BBL.VALUE = ICMSSUB_STS_BBL;
&REC.IPITAX_STS_BBL.VALUE = IPITAX_STS_BBL;
&REC.ISSTAX_STS_BBL.VALUE = ISSTAX_STS_BBL;
&REC.IRTAX_STS_BBL.VALUE = IRTAX_STS_BBL;
&REC.INSSTAX_STS_BBL.VALUE = INSSTAX_STS_BBL;
&REC.IPI_IN_ICMSBAS_BBL.VALUE = IPI_IN_ICMSBAS_BBL;
&REC.ICMS_RED_BSE_BBL.VALUE = ICMS_RED_BSE_BBL;
&REC.ICMSST_RED_BSE_BBL.VALUE = ICMSST_RED_BSE_BBL;
&REC.IPI_RED_BSE_BBL.VALUE = IPI_RED_BSE_BBL;
&REC.ISS_RED_BSE_BBL.VALUE = ISS_RED_BSE_BBL;
&REC.ICMSSUB_BRL_BSS.VALUE = ICMSSUB_BRL_BSS;
&REC.IR_RED_BSE_BBL.VALUE = IR_RED_BSE_BBL;
&REC.INSS_RED_BSE_BBL.VALUE = INSS_RED_BSE_BBL;
&REC.ICMSST_PCT_BBL.VALUE = ICMSST_PCT_BBL;
&REC.GROSS_AMT_BSE.VALUE = GROSS_AMT_BSE;
&REC.DST_ID_DIS.VALUE = DST_ID_DIS;
&REC.DST_ID_REV.VALUE = DST_ID_REV;
&REC.DST_ID_SUR.VALUE = DST_ID_SUR;
&REC.INVENTORY_ITEM.VALUE = INVENTORY_ITEM;
&REC.COST_ADJ_STS_PBL.VALUE = COST_ADJ_STS_PBL;
&REC.FRT_INCR_BSE_BBL.VALUE = FRT_INCR_BSE_BBL;
&REC.INSR_INCR_BSE_BBL.VALUE = INSR_INCR_BSE_BBL;
&REC.OTEX_INCR_BSE_BBL.VALUE = OTEX_INCR_BSE_BBL;
&REC.WTHD_CD.VALUE = WTHD_CD;
&REC.PROCESS_INSTANCE.VALUE = PROCESS_INSTANCE;
&REC.DESCR254_MIXED.VALUE = DESCR254_MIXED;
&REC.PYMNT_TERMS_CD.VALUE = PYMNT_TERMS_CD;
&REC.PAY_TRM_BSE_DT_OPT.VALUE = PAY_TRM_BSE_DT_OPT;
&REC.ICMS_COMPL_FLG_PBL.VALUE = ICMS_COMPL_FLG_PBL;
&REC.COFINST_BSSAMT_BBL.VALUE = COFINST_BSSAMT_BBL;
&REC.COFINSST_PCT_BBL.VALUE = COFINSST_PCT_BBL;
&REC.COFINSST_AMT_BBL.VALUE = COFINSST_AMT_BBL;
&REC.COFINST_BSEAMT_BBL.VALUE = COFINST_BSEAMT_BBL;
&REC.LT_COFINSSTBSE_BBL.VALUE = LT_COFINSSTBSE_BBL;
&REC.PISST_BSS_AMT_BBL.VALUE = PISST_BSS_AMT_BBL;
&REC.PISST_PCT_BBL.VALUE = PISST_PCT_BBL;
&REC.PISST_AMT_BBL.VALUE = PISST_AMT_BBL;
&REC.PISST_BSE_AMT_BBL.VALUE = PISST_BSE_AMT_BBL;
&REC.LT_PISS_BSE_BBL.VALUE = LT_PISS_BSE_BBL;
&REC.IR_BSS_AMT_BBL.VALUE = IR_BSS_AMT_BBL;
&REC.IR_PCT_BBL.VALUE = IR_PCT_BBL;
&REC.IR_BSE_AMT_BBL.VALUE = IR_BSE_AMT_BBL;
&REC.IR_AMT_BBL.VALUE = IR_AMT_BBL;
&REC.LT_IRBSE_BBL.VALUE = LT_IRBSE_BBL;
&REC.INSS_BSS_AMT_BBL.VALUE = INSS_BSS_AMT_BBL;
&REC.INSS_PCT_BBL.VALUE = INSS_PCT_BBL;
&REC.INSS_BSE_AMT_BBL.VALUE = INSS_BSE_AMT_BBL;
&REC.INSS_AMT_BBL.VALUE = INSS_AMT_BBL;
&REC.LT_INSSBSE_BBL.VALUE = LT_INSSBSE_BBL;
&REC.IF_BRL.VALUE = IF_BRL;
&REC.DISTRIB_MTHD_FLG.VALUE = DISTRIB_MTHD_FLG;
&REC.PAYTRMS_DT_BSE_PBL.VALUE = PAYTRMS_DT_BSE_PBL;
&REC.FLOW_STATUS_PBL.VALUE = FLOW_STATUS_PBL;
&REC.RTV_ID.VALUE = RTV_ID;
&REC.RTV_LN_NBR.VALUE = RTV_LN_NBR;
&REC.FLOW_ID_BBL.VALUE = FLOW_ID_BBL;
&REC.FLOW_BUS_UNIT_IN.VALUE = FLOW_BUS_UNIT_IN;
&REC.STORAGE_AREA.VALUE = STORAGE_AREA;
&REC.STOR_LEVEL_1.VALUE = STOR_LEVEL_1;
&REC.FLOW_SHIP_ID_BBL.VALUE = FLOW_SHIP_ID_BBL;
&REC.FLOW_LOCATION_BBL.VALUE = FLOW_LOCATION_BBL;
&REC.ICMS_DISCOUNT_BBL.VALUE = ICMS_DISCOUNT_BBL;
&REC.DT_FLOW_BBL.VALUE = DT_FLOW_BBL;
&REC.COEF_BASE_FLG_PBL.VALUE = COEF_BASE_FLG_PBL;
&REC.COEF_BASE_ICMS_PBL.VALUE = COEF_BASE_ICMS_PBL;
&REC.COEF_BASE_IPI_PBL.VALUE = COEF_BASE_IPI_PBL;
&REC.MERCH_ORIG_AMT_PBL.VALUE = MERCH_ORIG_AMT_PBL;
&REC.IPITAX_BRL_RED.VALUE = IPITAX_BRL_RED;
&REC.COEF_BASE_COFI_PBL.VALUE = COEF_BASE_COFI_PBL;
&REC.CF_IPI_ID_PBL.VALUE = CF_IPI_ID_PBL;
&REC.CF_ICMS_ID_PBL.VALUE = CF_ICMS_ID_PBL;
&REC.CF_PIS_ID_PBL.VALUE = CF_PIS_ID_PBL;
&REC.CF_COFINS_ID_PBL.VALUE = CF_COFINS_ID_PBL;
&REC.COEF_BASE_PIS_PBL.VALUE = COEF_BASE_PIS_PBL;
&REC.COFI_CRLIM_PCT_PBL.VALUE = COFI_CRLIM_PCT_PBL;
&REC.PIS_CRLIM_PCT_PBL.VALUE = PIS_CRLIM_PCT_PBL;
&REC.COFINSTAX_BRL_AMT.VALUE = COFINSTAX_BRL_AMT;
&REC.PISTAX_BRL_AMT.VALUE = PISTAX_BRL_AMT;
&REC.PIS_TAX_STATUS_PBL.VALUE = PIS_TAX_STATUS_PBL;
&REC.COFI_TX_STATUS_PBL.VALUE = COFI_TX_STATUS_PBL;
SQLExec(" SELECT 'Y' FROM SYSADM.PS_NF_LN_BRL WHERE BUSINESS_UNIT = :1 AND
NF_BRL_ID= :2 AND NF_BRL_LINE_NUM = :3 ", BUSINESS_UNIT, NF_BRL_ID, NF_BRL_LINE
_NUM, &EXISTE_NF);
If &EXISTE_NF = "Y" Then
&REC.Update();
Else
&REC.Insert();
End-If;
End-If;
End-If;
*/
[NF_LN_BRL.NF_BRL_ID.SavePreChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
/******************************* mmcb.sds5100 s.n ******************************
*/
SQLExec("SELECT NVL(MAX(SEQ_NBR),0) FROM PS_MMC_NF_ALT_HDR WHERE BUSINESS_UNI
T = :1 AND NF_BRL_ID = :2", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA);
If FieldChanged(FREIGHT_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','FREIGHT_AMT',:6,:7,:8)
", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF_LN
_BRL.FREIGHT_AMT.OriginalValue, FREIGHT_AMT, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(INSURANCE_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','INSURANCE_BRL_AMT',:6,
:7,:8)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254,
NF_LN_BRL.INSURANCE_BRL_AMT.OriginalValue, INSURANCE_BRL_AMT, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(OTHEREXP_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','OTHEREXP_BRL_AMT',:6,:
7,:8)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254,
NF_LN_BRL.OTHEREXP_BRL_AMT.OriginalValue, OTHEREXP_BRL_AMT, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(DSCNT_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','DSCNT_AMT',:6,:7,:8)",
BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF_LN_B
RL.DSCNT_AMT.OriginalValue, DSCNT_AMT, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(ICMSTAX_BRL_RCVRY) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','ICMSTAX_BRL_RCVRY',:6,
NF_LN_BRL.ICMSTAX_BRL_RCVRY.OriginalValue, ICMSTAX_BRL_RCVRY, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(IPITAX_BRL_RCVRY) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','IPITAX_BRL_RCVRY',:6,:
7,:8)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254,
NF_LN_BRL.IPITAX_BRL_RCVRY.OriginalValue, IPITAX_BRL_RCVRY, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(PIS_AMT_BBL) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','PIS_AMT_BBL',:6,:7,:8)
_BRL.PIS_AMT_BBL.OriginalValue, PIS_AMT_BBL, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(COFINS_AMT_BBL) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','COFINS_AMT_BBL',:6,:7,

:8)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF
_LN_BRL.COFINS_AMT_BBL.OriginalValue, COFINS_AMT_BBL, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(IPITAX_BRL_PCT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','IPITAX_BRL_PCT',:6,:7,
_LN_BRL.IPITAX_BRL_PCT.OriginalValue, IPITAX_BRL_PCT, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(IPITAX_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','IPITAX_BRL_AMT',:6,:7,
_LN_BRL.IPITAX_BRL_AMT.OriginalValue, IPITAX_BRL_AMT, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(IPITAX_BRL_BSS) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','IPITAX_BRL_BSS',:6,:7,
_LN_BRL.IPITAX_BRL_BSS.OriginalValue, IPITAX_BRL_BSS, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(COFINS_PCT_BBL) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','COFINS_PCT_BBL',:6,:7,
_LN_BRL.COFINS_PCT_BBL.OriginalValue, COFINS_PCT_BBL, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(COFINS_BSS_AMT_BBL) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','COFINS_BSS_AMT_BBL',:6
,:7,:8)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254
, NF_LN_BRL.COFINS_BSS_AMT_BBL.OriginalValue, COFINS_BSS_AMT_BBL, NF_BRL_LINE_NU
M);
End-If;
If FieldChanged(COFINSTAX_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','COFINSTAX_BRL_AMT',:6,
NF_LN_BRL.COFINSTAX_BRL_AMT.OriginalValue, COFINSTAX_BRL_AMT, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(PIS_PCT_BBL) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','PIS_PCT_BBL',:6,:7,:8)
_BRL.PIS_PCT_BBL.OriginalValue, PIS_PCT_BBL, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(PIS_BSS_AMT_BBL) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','PIS_BSS_AMT_BBL',:6,:7
,:8)", BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, N
F_LN_BRL.PIS_BSS_AMT_BBL.OriginalValue, PIS_BSS_AMT_BBL, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(PISTAX_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','PISTAX_BRL_AMT',:6,:7,
_LN_BRL.PISTAX_BRL_AMT.OriginalValue, PISTAX_BRL_AMT, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(ICMSTAX_BRL_PCT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','ICMSTAX_BRL_PCT',:6,:7
F_LN_BRL.ICMSTAX_BRL_PCT.OriginalValue, ICMSTAX_BRL_PCT, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(ICMSTAX_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','ICMSTAX_BRL_AMT',:6,:7
F_LN_BRL.ICMSTAX_BRL_AMT.OriginalValue, ICMSTAX_BRL_AMT, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(ICMSTAX_BRL_BSS) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','ICMSTAX_BRL_BSS',:6,:7
F_LN_BRL.ICMSTAX_BRL_BSS.OriginalValue, ICMSTAX_BRL_BSS, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(ICMSSUB_BRL_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','ICMSSUB_BRL_AMT',:6,:7
F_LN_BRL.ICMSSUB_BRL_AMT.OriginalValue, ICMSSUB_BRL_AMT, NF_BRL_LINE_NUM);

End-If;
If FieldChanged(TAX_CLASS_BRL) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','TAX_CLASS_BRL',:6,:7,:
LN_BRL.TAX_CLASS_BRL.OriginalValue, TAX_CLASS_BRL, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(QTY_NF_BRL) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','QTY_NF_BRL',:6,:7,:8)"
, BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF_LN_
BRL.QTY_NF_BRL.OriginalValue, QTY_NF_BRL, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(UNIT_PRICE) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','UNIT_PRICE',:6,:7,:8)"
, BUSINESS_UNIT, NF_BRL_ID, &SEQUENCIA, %UserId, MMC_NF_ALT_WRK.DESCR254, NF_LN_
BRL.UNIT_PRICE.OriginalValue, UNIT_PRICE, NF_BRL_LINE_NUM);
End-If;
If FieldChanged(MERCHANDISE_AMT) Then
BRL_LINE_NUM) values (:1,:2,:3,:4,SYSDATE,:5,'NF_LN_BRL','MERCHANDISE_AMT',:6,:7
F_LN_BRL.MERCHANDISE_AMT.OriginalValue, MERCHANDISE_AMT, NF_BRL_LINE_NUM);
End-If;
If ((UNIT_PRICE * QTY_NF_BRL) <> MERCHANDISE_AMT) Then
Error ("Erro na linha " | NF_BRL_LINE_NUM | " -> O valor da mercadoria no b
ate com a Quantidade x Preo Unitrio.");
End-If;
FREIGHT_AMT_BSE = FREIGHT_AMT;
INSURANCE_BRL_BSE = INSURANCE_BRL_AMT;
OTHEREXP_BRL_BSE = OTHEREXP_BRL_AMT;
DSCNT_AMT_BSE = DSCNT_AMT;
ICMSSUB_BRL_BSE = ICMSSUB_BRL_AMT;
COFINS_AMT_BSE_BBL = COFINS_AMT_BBL;
PIS_AMT_BSE_BBL = PIS_AMT_BBL;
End-If;
/******************************* mmcb.sds5100 E.n ******************************
*/
[NF_LN_BRL.NF_BRL_LINE_NUM.RowDelete]
/* BRLOC PM 23/JUL/97 - NF Total Lines */
If NF_HDR_BRL.NF_BRL_STATUS = "V" Then
Error MsgGet(30000, 194, "You cannot delete a NF line if the NF has been vouc
hered.");
End-If;
&ROWS = NF_HDR_BRL.NF_BRL_TTL_LINES;
If &ROWS <> 0 Then
&ROWS = &ROWS - 1;
End-If;
NF_HDR_BRL.NF_BRL_TTL_LINES = &ROWS;
[NF_LN_BRL.NF_BRL_LINE_NUM.RowInsert]
/*******************************************************************************
****
*
* Erro ao inserir uma nova linha na NF de devoluo, onde o sistema no esta
* pegando a ltima linha da NF
*
********************************************************************************
****/
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 07/06/2006 - Inicio */
If NF_HDR_BRL.NF_BRL_STATUS = "V" Then
Error MsgGet(30000, 195, "You cannot add a NF line if the NF has been voucher
ed.");
End-If;
/* BRLOC PM 23/JUL/97 - NF Lines auto numbering */
(&MMC_ENTRAPOR_ITEM = True Or
&MMC_ENTRAPOR_PACABADO = True Or
&MMC_ENTRAPOR_PACABADONF = True Or
&MMC_ENTRAPOR_TRIANGULACAO = True) Then
NF_HDR_BRL.MAX_LINE = GetLevel0().GetRow(1).GetRowset(Scroll.NF_LN_BRL).Activ
eRowCount - 1;
End-If;
/************************** mmcb.hd97139.sn **************************/
&QTY_LINHAS = ActiveRowCount(NF_BRL_LINE_NUM) - 1;
If NF_HDR_BRL.MAX_LINE <> &QTY_LINHAS Or
NF_HDR_BRL.NF_BRL_TTL_LINES <> &QTY_LINHAS Then
NF_HDR_BRL.MAX_LINE = &QTY_LINHAS;
NF_HDR_BRL.NF_BRL_TTL_LINES = &QTY_LINHAS;
End-If;
/************************** mmcb.hd97139.en **************************/
NF_BRL_LINE_NUM = NF_HDR_BRL.MAX_LINE + 1;
NF_HDR_BRL.MAX_LINE = NF_HDR_BRL.MAX_LINE + 1;
NF_HDR_BRL.NF_BRL_TTL_LINES = NF_HDR_BRL.NF_BRL_TTL_LINES + 1;
[NF_LN_BRL.OTHEREXP_BRL_AMT.FieldChange]
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
Formula;
If NF_HDR_BRL.OTHER_PRORATE_PBL = "A" Then
End-If;
/*BRLOC-PO-APP-8.00-02/04/01-END */
[NF_LN_BRL.PISTAX_BRL_AMT.SaveEdit]
/*******************************************************************************
***
* Claudio Henrique da Costa - MMCB - 16/08/2006 - mmcb.hd24104
*
* Customizacao para que seja verificado se existe PIS e COFINS para o tipo de
*
* Finalidade.
*
*******************************************************************************
***/
/*******************************************************************************
***
*
*
*******************************************************************************
***/
/*******************************************************************************
*******
*
*
********************************************************************************
*******/
b.sds3239.ln */
/********************** mmcb.sds3239.so **********************/

/* SQLExec("SELECT PIS_CALC_PBL FROM SYSADM.PS_BRL_PO_PROP WHERE SETID = 'MMCSA'
AND PURCH_PROP_BRL = :1", PURCH_PROP_BRL, &Exige_PIS);
SQLExec("SELECT PIS_GNRT_FLG_PBL FROM SYSADM.PS_VENDOR WHERE SETID = 'MMCSA' AND
VENDOR_ID = :1", NF_HDR_BRL.VENDOR_ID, &Vendor_PIS);
'MMCSA' AND VENDOR_ID = :1 AND ADDRESS_SEQ_NUM = :2", NF_HDR_BRL.VENDOR_ID, NF_H
DR_BRL.ADDRESS_SEQ_NUM, &Vendor_PIS_COFINS); */
/********************** mmcb.sds3239.eo **********************/
/********************** mmcb.sds3239.sn **********************/
SQLExec("SELECT PIS_CALC_PBL FROM SYSADM.PS_BRL_PO_PROP WHERE SETID = :1 AND PUR
CH_PROP_BRL = :2", &SETID, PURCH_PROP_BRL, &Exige_PIS);
SQLExec("SELECT PIS_GNRT_FLG_PBL FROM SYSADM.PS_VENDOR WHERE SETID = :1 AND VEND
OR_ID = :2", &SETID, NF_HDR_BRL.VENDOR_ID, &Vendor_PIS);
:1 AND VENDOR_ID = :2 AND ADDRESS_SEQ_NUM = :3", &SETID, NF_HDR_BRL.VENDOR_ID, N
F_HDR_BRL.ADDRESS_SEQ_NUM, &Vendor_PIS_COFINS);
/********************** mmcb.sds3239.en **********************/
SQLExec("SELECT 'Y' FROM SYSADM.PS_MMC_NF_DEVO_HDR WHERE BUSINESS_UNIT = :1 AND
RECEIVER_ID = :2", BUSINESS_UNIT, NF_BRL_ID, &NF_DEVOLV);
If &Exige_PIS = "Y" And
PISTAX_BRL_AMT = 0 And
&Vendor_PIS = "Y" And
&Vendor_PIS_COFINS = "Y" And
%Component <> "MMC_NF_ALTERA" And /*mmcb.sds5100*/
None(&NF_DEVOLV) Then
Error ("Valor do PIS Invlido para Finalidade Definida!");
End-If;
[NF_LN_BRL.PIS_AMT_BSE_BBL.SavePreChange]
/*** BRLOC-PO-AFF-17/10/2002 - ICE Resolution 110787 ***/
/* fabiano cunha - 21/10/2005 - Adequacao da verso 7 para 8 - inclusao do panel g
roup MMC_LANC_GAR */
%PanelGroup = PanelGroup.DFI_TYP_WRT_PBL_PG Or
%PanelGroup = PanelGroup.MMC_LANC_GAR Then
PIS_AMT_BSE_BBL = PIS_AMT_BBL;
End-If;
[NF_LN_BRL.PIS_PCT_BBL.FieldChange]
/*******************************************************************************
*****
*
*
********************************************************************************
****/

/*Atualiza porcentagem do PIS de todas as linhas*/
&VL_MSG_BOX = WinMessage("Deseja alterar a porcentagem do PIS para todas a
s linhas do documento fiscal?", 3, "Alterar porcentagem do PIS?");
UpdateValue(PIS_PCT_BBL, &LN, PIS_PCT_BBL);
End-For;
End-If;
End-If;
End-If;
[NF_LN_BRL.PURCH_PROP_BRL.FieldChange]
Declare Function CFOP_INCOM PeopleCode INV_ITEM_ID FieldChange;
/* Inibe boto de recalculo quando O PURCHASE PROPOSAL alterado, pois o sistema de
ve pegar novamente os dados do setup, para fazer os clculos dos impostos */
CFOP_INCOM();
/* BRLOC-PO-APP-8.00-13/03/01-END */
/**** INICIO - AUGUSTO VILARINHO NETO - 12/11/2005 - Opo de alterar a finalidade
em todas linhas na Entrada Direta de Documento Fiscal ****/
&VL_MSG_BOX = WinMessage("Deseja alterar a finalidade da operao para todas a
s linhas do documento fiscal?", 3, "Alterar finalidade da operao?");
UpdateValue(PURCH_PROP_BRL, &LN, PURCH_PROP_BRL);
End-For;
End-If /**** FIM MENSAGEM ****/
End-If /**** FIM LINHAS ATIVAS ****/
/**** FIM - AUGUSTO VILARINHO NETO - 12/11/2005 - Opo de alterar a finalidade em t
odas linhas na Entrada Direta de Documento Fiscal ****/
/*** JEISON CALDAS - Atualiza valor do imposto a recuperar - Inicio - 02/05/06 *
**/
REM ICMS ;
SQLExec("SELECT 'X' FROM PS_EXC_RCRT_PBL WHERE SETID = 'MMCSA' AND RULE_ID_PB
L = 'CICMS' AND CRITERIA_ID_PBL = 'FINO' AND CRITERIA_VALUE_PBL = :1", PURCH_PRO
P_BRL, &RET_ICMS);
If &RET_ICMS = "X" Then
ICMSTAX_BRL_RCVRY = ICMSTAX_BRL_AMT;
Else
ICMSTAX_BRL_RCVRY = 0;
End-If;
REM IPI ;
SQLExec("SELECT 'X' FROM PS_EXC_RCRT_PBL
L = 'CIPI' AND CRITERIA_ID_PBL = 'FINO' AND
_BRL, &RET_IPI);
If &RET_IPI = "X" Then
IPITAX_BRL_RCVRY = IPITAX_BRL_AMT;
Else
IPITAX_BRL_RCVRY = 0;
End-If;
REM PIS ;
SQLExec("SELECT 'X' FROM PS_EXC_RCRT_PBL
L = 'CPIS' AND CRITERIA_ID_PBL = 'FINO' AND
_BRL, &RET_PIS);
If &RET_PIS = "X" Then
PIS_AMT_BBL = PISTAX_BRL_AMT;
Else
PIS_AMT_BBL = 0;
End-If;
WHERE SETID = 'MMCSA' AND RULE_ID_PB

CRITERIA_VALUE_PBL = :1", PURCH_PROP
WHERE SETID = 'MMCSA' AND RULE_ID_PB

CRITERIA_VALUE_PBL = :1", PURCH_PROP
REM COFINS ;
SQLExec("SELECT 'X' FROM PS_EXC_RCRT_PBL WHERE SETID = 'MMCSA' AND RULE_ID_PB
L = 'CCOFI' AND CRITERIA_ID_PBL = 'FINO' AND CRITERIA_VALUE_PBL = :1", PURCH_PRO
P_BRL, &RET_COFI);
If &RET_COFI = "X" Then
COFINS_AMT_BBL = COFINSTAX_BRL_AMT;
Else
COFINS_AMT_BBL = 0;
End-If;
End-If;
/*** JEISON CALDAS - Atualiza valor do imposto a recuperar - Final - 02/05/06 **
*/
[NF_LN_BRL.PURCH_PROP_BRL.SavePostChange]
/*******************************************************************************
******
*
* Atualizar MMC_ASSET_LOC, quando um ativo for movimentado
*
********************************************************************************
*****/
/*******************************************************************************
******
*
* O campo DOCUMENT_ID da tabela PS_ASSET_LOCATION so aceita 12 caracteres e tem
*
* casos onde o nmero da nota mais a sria e maior que este campo.
*
********************************************************************************
*****/
/************************************************************************
*
*
*************************************************************************/
mmcb.sds4689.lo */
/*** JC800888 Jeison Caldas - 26.11.09 - SDS 3085 - Controle Transferncia de Ativ
o - Acrescentada linha de histrico - Inicio ***/
REM VERIFICO SE ITEM DE ATIVO E SE ESTAVA CONTROLADO NA EMISSO DE NOTAS;
SQLExec("SELECT B.MMC_TIPO_TRANSF_AM, C.ASSET_ID, C.BUSINESS_UNIT FROM SYSADM
.PS_MMC_NFD_LINE A, SYSADM.PS_MMC_ATIVO_OFISC B, SYSADM.PS_MMC_FAT_ITM_ATI C WH
ERE A.BUSINESS_UNIT = :1 AND A.NF_BRL_ID
= :2 AND A.NF_BRL_LINE_NUM = :3 AND
A.TOF_PBL = B.TOF_PBL AND B.EFFDT = (SELECT MAX(BM.EFFDT) FROM SYSADM.PS_MMC_
ATIVO_OFISC BM WHERE B.TOF_PBL = BM.TOF_PBL) AND B.MMC_MOVIMENT_ATIVO = 'Y' AND
A.MMC_UN_ORIGEM = C.BUSINESS_UNIT AND A.MMC_NF_ID_ORIGEM = C.NF_BRL_ID AND A.MMC
_NF_LINE_ORIGEM = C.NF_BRL_LINE_NUM", BUSINESS_UNIT, NF_BRL_ID, NF_BRL_LINE_NUM,
&TIPO_TRANS, &ASSET_ID, &BU_FAT);
REM FAZ EXTORNO DO LANAMENTO POR TIPO DE TRANSAO;
/* &BU = BU_SETID("COCT1"); */ /*mmcb.sds4689.lo*/
/************************** mmcb.sds4689.sn **************************/
SQLExec("SELECT BUSINESS_UNIT_GL FROM SYSADM.PS_BUS_UNIT_TBL_PM WHERE BUSI
NESS_UNIT = :1 ", BUSINESS_UNIT, &BU);
/************************** mmcb.sds4689.en **************************/
&DATA = NF_HDR_BRL.ACCOUNTING_DT;
&NF_BRL = NF_HDR_BRL.NF_BRL | "-" | NF_HDR_BRL.NF_BRL_SERIES;
&LOCATION = NF_HDR_BRL.EF_LOC_BRL;
/************************* mmcb.hd164807.sn *************************/
If Len(&NF_BRL) > 12 Then
&NUM_NF_BRL = Value(NF_HDR_BRL.NF_BRL);
&NF_BRL = Substring((String(&NUM_NF_BRL) | "-" | NF_HDR_BRL.NF_BRL_SERI
ES), 1, 12);
End-If;
/************************* mmcb.hd164807.en *************************/
If None(&LOCATION) Then
SQLExec("SELECT A.LOCATION, A.BUSINESS_UNIT_GL FROM PS_BUS_UNIT_TBL_BI
A WHERE A.BUSINESS_UNIT = :1", &BU_FAT, &LOCATION, &BU);
End-If;
REM VERIFICA SE NOTA ESTA SENDO SALVA PELA SEGUNDA VEZ E J EXISTE LANAMENTO;
SQLExec("SELECT 'Y' FROM SYSADM.PS_ASSET_LOCATION WHERE BUSINESS_UNIT = :1
AND ASSET_ID = :2 AND EFFDT = %datein(:3) AND LOCATION = :4", &BU, &ASSET_ID, &
DATA, &LOCATION, &LCTO_EXISTE);
If &LCTO_EXISTE <> "Y" Then
SQLExec("SELECT MAX(EFFSEQ + 1) FROM PS_ASSET_LOCATION WHERE BUSINESS_U
NIT = :1 AND ASSET_ID = :2", &BU, &ASSET_ID, &EFFSEQ);
SQLExec("INSERT INTO PS_ASSET_LOCATION (BUSINESS_UNIT, ASSET_ID, EFFDT,
EFFSEQ, LOCATION, DOCUMENT_ID, AUTH_STATUS, AUTHORIZATION_NAME) VALUES(:1,:2, %
DATEIN(:3), :4,:5,:6,:7,:8)", &BU, &ASSET_ID, &DATA, &EFFSEQ, &LOCATION, &NF_BRL

, " ", " ");
/****************************** mmcb.sds3686.sn ***********************
*******/
SQLExec("INSERT INTO PS_MMC_ASSET_LOC (BUSINESS_UNIT, ASSET_ID, EFFDT,
EFFSEQ, BUSINESS_UNIT_BI, NF_BRL_ID, NF_BRL_LINE_NUM) VALUES(:1,:2, %DATEIN(:3),
:4,:5,:6,:7)", &BU, &ASSET_ID, &DATA, &EFFSEQ, BUSINESS_UNIT, NF_BRL_ID, NF_BRL
_LINE_NUM);
&SQL = CreateSQL("SELECT CHILD_ASSET_ID FROM SYSADM.PS_PRNT_CH_VW_ABL W
HERE BUSINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &ASSET_ID);
SQLExec("SELECT MAX(EFFSEQ + 1) FROM PS_ASSET_LOCATION WHERE BUSINES
S_UNIT = :1 AND ASSET_ID = :2", &BU, &V_CHILD_ASSET_ID, &EFFSEQ);
SQLExec("INSERT INTO PS_ASSET_LOCATION (BUSINESS_UNIT, ASSET_ID, EFF
DT, EFFSEQ, LOCATION, DOCUMENT_ID, AUTH_STATUS, AUTHORIZATION_NAME) VALUES(:1,:2
, %DATEIN(:3), :4,:5,:6,:7,:8)", &BU, &V_CHILD_ASSET_ID, &DATA, &EFFSEQ, &LOCATI
ON, &NF_BRL, " ", " ");
SQLExec("INSERT INTO PS_MMC_ASSET_LOC (BUSINESS_UNIT, ASSET_ID, EFFD
T, EFFSEQ, BUSINESS_UNIT_BI, NF_BRL_ID, NF_BRL_LINE_NUM) VALUES(:1,:2, %DATEIN(:
3), :4,:5,:6,:7)", &BU, &V_CHILD_ASSET_ID, &DATA, &EFFSEQ, BUSINESS_UNIT, NF_BRL
_ID, NF_BRL_LINE_NUM);
End-While;
/****************************** mmcb.sds3686.en ***********************
*******/
SQLExec("UPDATE PS_BOOK SET LAST_TRANS_DT = %datein(:3), LAST_ACCOUNTIN

G_DT = %datein(:3) WHERE BUSINESS_UNIT = :1 AND ASSET_ID = :2", &BU, &ASSET_ID,
&DATA);
End-If;
If &TIPO_TRANS <> "I" Then
REM VERIFICA SE NOTA ESTA SENDO SALVA PELA SEGUNDA VEZ E J EXISTE LANAMEN
TO;
SQLExec("SELECT 'Y' FROM SYSADM.PS_ASSET_CUSTODIAN WHERE BUSINESS_UNIT
= :1 AND ASSET_ID = :2 AND EFFDT = %DATEIN(:3) AND OFFSITE_SW = :4", &BU, &ASSET
_ID, &DATA, "N", &LCTO_EXISTE);
If &LCTO_EXISTE <> "Y" Then
SQLExec("SELECT MAX(EFFSEQ + 1) FROM PS_ASSET_CUSTODIAN WHERE BUSINE
SS_UNIT = :1 AND ASSET_ID = :2", &BU, &ASSET_ID, &EFFSEQ);
SQLExec("INSERT INTO PS_ASSET_CUSTODIAN (BUSINESS_UNIT, ASSET_ID, EF
FDT, EFFSEQ, CUSTODIAN, EMPLID, OPERATING_UNIT, DEPTID, PROJECT_ID, OFFSITE_SW,
AUTH_STATUS, AUTHORIZATION_NAME, AUTHORIZATION_DT) VALUES(:1,:2, %DATEIN(:3),:4,
:5,:6,:7,:8, :9, :10, :11, :12, %DATEIN(:13))", &BU, &ASSET_ID, &DATA, &EFFSEQ,
" ", " ", " ", " ", " ", "N", "A", " ", "");
End-If;
End-If;
End-If;
End-If;
/*** JC800888 Jeison Caldas - 26.11.09 - SDS 3085 - Controle Transferncia de Ativ
o - Acrescentada linha de histrico - Fim ***/
[NF_LN_BRL.QTY_NF_BRL.FieldChange]
Declare Function Hab_Desab_Vinc_OC PeopleCode CFOP_INCOM_PBL FieldFormula;
ONF, &MMC_ENTRAPOR_TRIANGULACAO, &MMC_Controle_Terceiros, &MMC_CT_GERAOP;
Component number &OldQtyNFBrl;
Ao alterar Quantidade ou Cdigo de Item, ou inserir ou excluir Item, ser desvincula
do de OP */
Declare Function LimpaVincOP PeopleCode MMC_TERC_WRK.BUSINESS_UNIT_IN FieldFormu
la;
/*** BRLOC-PO-AO-24/04/2002 - ICE Resolution 100957 - Alterado de MERCHANDISE_AM
T para MERCH_ORIG_AMT_PBL **/
/*- Amount based on qty and unit price */
All(UNIT_PRICE) Then
MERCH_ORIG_AMT_PBL = RoundCurrency(QTY_NF_BRL * UNIT_PRICE, NF_HDR_BRL.BASE_C
ATUALIZA_DISTRIB();
End-If;
/* BRLOC-PO-APP-8.00-15/12/00-END*/
Ao alterar a quantidade do Item, verificado se o usurio quer realmente alterar ta
l informao. Se isso for confirmado, a varivel que indica que a pgina adveio de Contr
ole de Terceiros - Produto Acabado ou Produto Acabado-NF Servio passar a ser falsa
. Seno, volta para o valor antigo (que foi guardado em FieldEdit) */
&MMC_CT_GERAOP Then
If NF_LN_BRL.QTY_NF_BRL.IsChanged Then
&Resposta = WinMessage(MsgGet(9999, 99, "Essa NF de Retorno no gerar Orde
m de Produo. Deseja Continuar?"), 4, "Advertncia");
If &Resposta = %MsgResult_Yes Then
LimpaVincOP();
Else
QTY_NF_BRL = &OldQtyNFBrl;
End-If;
End-If;
End-If;
End-If;
[NF_LN_BRL.QTY_NF_BRL.FieldEdit]
Component number &OldQtyNFBrl;
Ao alterar a quantidade do Item, guardado o valor antigo, para verificar se o
usurio quer realmente alterar tal informao. Se isso for confirmado no evento Field
Change, a varivel que indica que a pgina adveio de Controle de Terceiros - Produto
Acabado ou Produto Acabado-NF Servio passar a ser falsa */
&MMC_ENTRAPOR_PACABADONF) Then
&OldQtyNFBrl = Value(LTrim(RTrim(Substitute(NF_LN_BRL.QTY_NF_BRL.Formatted
Value, ",", "."))));
End-If;
End-If;
[NF_LN_BRL.QTY_NF_BRL.RowInit]
/*** JEISON CALDAS - 12/11/2005 - CUSTOMIZAO PARA PERMITIR ALTERAO DE QUANTIDADE DE
UM RECEBIMENTO COM ORIGEM NO RECEBIMENTO FISICO - INICIO ***/
Gray(QTY_NF_BRL);
End-If;
/*** JEISON CALDAS - 12/11/2005 - CUSTOMIZAO PARA PERMITIR ALTERAO DE QUANTIDADE DE
UM RECEBIMENTO COM ORIGEM NO RECEBIMENTO FISICO - FIM ***/
[NF_LN_BRL.SHIPTO_ID.SavePostChange]
/*******************************************************************************
*****************
* Wagner Sorio / Claudio Costa - MMC - 29/02/2008- mmcb.at2323 - Sistema Contro
le Terceiros
*
* No deixar salvar local de entrega em branco para recebimento terceiros.
*****************************************************************************
*******************/
/********************** mmcb.at2323.sn **********************/
NF_HDR_BRL.NF_BRL_STATUS = "F" Then
SQLExec("UPDATE SYSADM.PS_NF_LN_BRL SET SHIPTO_ID=:1 WHERE BUSINESS_UNIT=:2 A
ND NF_BRL_ID=:3 AND NF_BRL_LINE_NUM=:4 ", NF_HDR_BRL.SHIPTO_ID, BUSINESS_UNIT, N
F_BRL_ID, NF_BRL_LINE_NUM);
End-If;
/********************** mmcb.at2323.en **********************/
[NF_LN_BRL.TAX_CLASS_BRL.FieldChange]
/*******************************************************************************
***
*
*
*******************************************************************************
***/
/*******************************************************************************
***
* Filipe/Rosangela Enc. Rafael Taveira - MMCB - 07/08/2013 - mmcb.hd180299
*
* Comentario campos da PO_LINE pois no existe referencia na tela, ocasionando er
ro*
*******************************************************************************
***/
/*******************************************************************************
****
*
*
********************************************************************************
****/
/*******************************************************************************
****
*
*
********************************************************************************
****/
/****************************************** mmcb.sds4689.sn ********************
**********************/
Function BUSCA_WTHD_CD_ANT_LEI(&PAR_SETID, &PAR_TAX_CLASS_BRL, &PAR_BUSINESS_UNI
T_PO) Returns string
&SQL = "
SELECT F.WTHD_CD
";
&SQL = &SQL | "
FROM PS_MMC_NCM_ANT_LEI E,
";
&SQL = &SQL | "
PS_MMC_NCM_ANT_HDR F
";
&SQL = &SQL | "
WHERE E.SETID = :1
";
&SQL = &SQL | "
AND E.SETID = F.SETID

";
&SQL = &SQL | "

REFIXO_NCM))) = ";
&SQL = &SQL | "
";
&SQL = &SQL | "
AND SUBSTR (E.MMC_PREFIXO_NCM, 1, LENGTH (RTRIM (E.MMC_P

SUBSTR (:2, 1, LENGTH (RTRIM (E.MMC_PREFIXO_NCM)))
AND SUBSTR (:2, 1, 4) NOT IN ('4011', '4013')
";
&SQL = &SQL | "
AND F.BUSINESS_UNIT_PO = :3
";
SQLExec(&SQL, &PAR_SETID, &PAR_TAX_CLASS_BRL, &PAR_BUSINESS_UNIT_PO, &WTHD_CD

_RESULTADO);
Return &WTHD_CD_RESULTADO;
End-Function;
/****************************************** mmcb.sds4689.en ********************
**********************/
b.sds3239.ln */
/* Inibe boto de recalculo quando a classificao fiscal alterada, pois o sistema dev
e pegar novamente os dados do setup, para fazer os clculos dos impostos */
/* BRLOC-PO-APP-8.00-13/03/01-END */
/*Customizao Reteno de Impostos para fornecedores q no anteciparam a lei - Djalma -23
/06/04 Inicio*/
If %Component <> "NF_INFO_PBL" And
%Component <> "MMC_NF_ALTERA" Then /*mmcb.sds5100.ln*/
&NCM = INV_ITEMS.TAX_CLASS_BRL;
If %Page <> "NF_INFO_LN_PBL" Then
/***************************************** mmcb.sds4689.so ***************
**************************/
/* SQLExec("SELECT F.WTHD_CD from ps_mmc_ncm_ant_lei E, PS_MMC_NCM_ANT_HDR
F where E.SETID = :1 AND E.SETID = F.SETID AND SUBSTR(E.MMC_PREFIXO_NCM,1,LENGT
H(RTRIM(E.MMC_PREFIXO_NCM))) = SUBSTR(:2,1, LENGTH(RTRIM(E.MMC_PREFIXO_NCM))) AN
D SUBSTR(:2,1, 4) NOT IN ('4011', '4013') ", &SETID, &NCM, &WTHD_CD); */
/***************************************** mmcb.sds4689.eo ***************
**************************/
/***************************************** mmcb.sds4689.sn ***************
**************************/
If None(BUSINESS_UNIT) Then
Error ("Erro: No foi possivel encontrar unidade de Negocio para buscar o
NCM Antecipao da Lei");
End-If;
&WTHD_CD = BUSCA_WTHD_CD_ANT_LEI(&SETID, &NCM, BUSINESS_UNIT);
/***************************************** mmcb.sds4689.en ***************
**************************/
If None(&WTHD_CD) Then
PO_LINE.WTHD_SW = "N";
PO_LINE.WTHD_CD = "";
SQLExec("select 'Y' from ps_master_item_tbl where setid = :1 and inv_it
em_id = :2 and inventory_item = 'Y'", &SETID, INV_ITEM_ID, &ITEM); /* mmcb.sds32

39.ln */
If All(&ITEM) Then
Gray(PO_LINE.WTHD_SW);
Gray(PO_LINE.WTHD_CD);
End-If;
End-If;
End-If;
End-If;
/*Customizao Reteno de Impostos para fornecedores q no anteciparam a lei - Djalma - F
im*/
[NF_LN_BRL.TAX_CLASS_BRL.RowInit]
/*******************************************************************************
***
*
*
*******************************************************************************
***/
/*******************************************************************************
***
* Mauri Rodrigo Back - MMCB - 18/01/2012 - mmcb.sds3875
*
* Buscar a maior data efetiva do cadastro do item.
*
*******************************************************************************
***/
b.sds3239.ln */
/* BRLOC PM - 23/JUL/97 - Default from Tax class percentage */
/* BRLOC-PO PM 15/JUL/98 - if NF Type writer no IPI% gray */
/* If All(TAX_CLASS_BRL) And
All(IPITAX_BRL_PCT) Then
Gray(IPITAX_BRL_PCT);
End-If;
*/
End-If;
/* Valmir Tavares - HQS - 13.12.2005 - Preenche o campo de classificao fiscal - In
icio */
If None(TAX_CLASS_BRL) Then
/* SQLExec("SELECT A.TAX_CLASS_BRL FROM PS_INV_ITEMS A WHERE A.EFFDT < %C
urrentDateIn AND A.SETID = 'MMCSA' AND A.INV_ITEM_ID = :1", INV_ITEM_ID, &TAX_CL
ASS_BRL); */ /* mmcb.sds3239.lo */
/*
SQLExec("SELECT A.TAX_CLASS_BRL FROM PS_INV_ITEMS A WHERE A.EFFDT
< %CurrentDateIn AND A.SETID = :1 AND A.INV_ITEM_ID = :2", &SETID, INV_ITEM_ID,
&TAX_CLASS_BRL); */ /* mmcb.sds3239.ln */ /* MMCB.SDS3875.LO */
SQLExec("SELECT A.TAX_CLASS_BRL FROM PS_INV_ITEMS A WHERE A.EFFDT < %Curre

ntDateIn AND A.SETID = :1 AND A.INV_ITEM_ID = :2 AND A.EFFDT = (SELECT MAX(AI.EF
FDT) FROM SYSADM.PS_INV_ITEMS AI WHERE A.SETID = AI.SETID AND A.INV_ITEM_ID = AI
.INV_ITEM_ID)", &SETID, INV_ITEM_ID, &TAX_CLASS_BRL);
If All(&TAX_CLASS_BRL) Then
TAX_CLASS_BRL = &TAX_CLASS_BRL;
End-If;
End-If;
End-If;
/* Valmir Tavares - HQS - 13.12.2005 - Preenche o campo de classificao fiscal - In
icio */
[NF_LN_BRL.TAX_CLASS_BRL.SaveEdit]
/* Valmir Tavares - HQS - 02.12.2005 - Torna o campo de classificao contbil obrigatr
io - Inicio */
/* Fabiano cunha - Comentado temporariamente
If None(TAX_CLASS_BRL) Then
Error ("O campo de classificao contbil obrigatrio !");
End-If;
End-If;
*/
/* Valmir Tavares - HQS - 02.12.2005 - Torna o campo de classificao contbil obrigatr
io - Fim */
[NF_LN_BRL.TAX_CLASS_BRL.SavePreChange]
/*******************************************************************************
***********************
Claudio Henrique da Costa - MMC - 26/11/2008 - mmcb.sds2905
Alterao para que o sistema carrege o NCM atual da atualizao do Item.
********************************************************************************
***********************/
/*******************************************************************************
*
- mmcb.sds3239
*
*******************************************************************************
*/
/*******************************************************************************
***********************
* Customizao parar corrigir preenchimento indevido do campo WTHD_CD
********************************************************************************
***********************/
/* Itamar Junior - MMCB - 28/09/2009 - mmcb.hd75356
* Inserindo a noVa unidade de negcio POMGI no preenchimento do campo WTHD_CD
********************************************************************************
***********************/
/*******************************************************************************
***********************
* Rafael Nascimento (Enc. Bleno Sampaio) - MMCB - 25/01/2011 - mmcb.hd108150
* Ajuste em select que verifica regra de reteno por tipo de fornecedor que estava
sem padro multi empresa
********************************************************************************
***********************/
/*******************************************************************************
*
* Leandro Rodrigues da Silva Souza - MMCB - 29/03/2012 - SDS4156
*
* Alterao para considerar a data efetiva prevista para o cadastro de NCM
*******************************************************************************
*/
/*******************************************************************************
*
*
* Adequao dos sistemas para incorporao PEA SVB.
*
*******************************************************************************
*/
/*******************************************************************************
****
*
*
********************************************************************************
****/
b.sds3239.ln */
Declare Function BUSCA_WTHD_CD_ANT_LEI PeopleCode TAX_CLASS_BRL FieldChange; /*
mmcb.sds4689.ln */
/********************** mmcb.sds3239.sn **********************/
(BUSINESS_UNIT <> MMC_BUSINESS_UNIT("POINDI", BUSINESS_UNIT) And
BUSINESS_UNIT <> MMC_BUSINESS_UNIT("POCET", BUSINESS_UNIT) And
BUSINESS_UNIT <> MMC_BUSINESS_UNIT("POMKT", BUSINESS_UNIT))) Then
/********************** mmcb.sds3239.en **********************/
SQLExec("SELECT IT.TAX_CLASS_BRL FROM SYSADM.PS_INV_ITEMS IT WHERE IT.SETID =
:1 AND IT.INV_ITEM_ID = :2 AND IT.EFFDT = (SELECT MAX(EFFDT) FROM SYSADM.PS_INV
_ITEMS ITI WHERE ITI.SETID = IT.SETID AND ITI.INV_ITEM_ID = IT.INV_ITEM_ID AND I
TI.EFFDT <=SYSDATE)", &SETID, INV_ITEM_ID, &TAX_ATUAL); /* mmcb.SDS4156.ln */
If All(&TAX_ATUAL) Then
TAX_CLASS_BRL = &TAX_ATUAL;
SQLExec("SELECT PS.BUSINESS_UNIT, PS.PO_ID, PS.LINE_NBR, PS.SCHED_NBR, PS.
TAX_CLASS_BRL FROM SYSADM.PS_RECV_LN_DISTRIB RD, SYSADM.PS_PO_LINE_SHIP PS WHERE
RD.BUSINESS_UNIT = :1 AND RD.RECEIVER_ID = :2 AND RD.RECV_LN_NBR = :3 AND RD.R
ECV_SHIP_SEQ_NBR = :4 AND RD.BUSINESS_UNIT_PO = PS.BUSINESS_UNIT AND RD.PO_ID =
PS.PO_ID AND RD.LINE_NBR = PS.LINE_NBR AND RD.SCHED_NBR = PS.SCHED_NBR", BUSINE
SS_UNIT, RECEIVER_ID, NF_BRL_LINE_NUM, RECV_SHIP_SEQ_NBR, &PO_BU, &PO_ID, &PO_LI
NE, &PO_SCHED, &PO_TAX);
SQLExec("UPDATE SYSADM.PS_PO_LINE_SHIP PS SET PS.TAX_CLASS_BRL = :1 WHERE
PS.BUSINESS_UNIT = :2 AND PS.PO_ID = :3 AND PS.LINE_NBR = :4 AND PS.SCHED_NBR =
:5", &TAX_ATUAL, &PO_BU, &PO_ID, &PO_LINE, &PO_SCHED);
/*--------------------------------------------------------------------------------------------*/
/******************************************* mmcb.sds4689.so *************
******************************/
/* SQLExec("SELECT F.WTHD_CD from ps_mmc_ncm_ant_lei E, PS_MMC_NCM_ANT_HDR
F where E.SETID = :1 AND E.SETID = F.SETID AND SUBSTR(E.MMC_PREFIXO_NCM,1,LENGT
H(RTRIM(E.MMC_PREFIXO_NCM))) = SUBSTR(:2,1, LENGTH(RTRIM(E.MMC_PREFIXO_NCM))) AN
D SUBSTR(:2,1, 4) NOT IN ('4011', '4013') ", &SETID, &TAX_ATUAL, &WTHD_CD); */
/******************************************* mmcb.sds4689.eo *************
******************************/
/***************************************** mmcb.sds4689.sn ***************
**************************/
Error ("Erro: No foi possivel encontrar unidade de Negocio para buscar o
NCM Antecipao da Lei");
End-If;
&WTHD_CD = BUSCA_WTHD_CD_ANT_LEI(&SETID, &TAX_ATUAL, BUSINESS_UNIT);
/***************************************** mmcb.sds4689.en ***************
**************************/
&WTHD_CD = " ";
End-If;
WTHD_CD = &WTHD_CD;
SQLExec("UPDATE SYSADM.PS_PO_LINE PS SET PS.WTHD_CD = :1 WHERE PS.BUSINESS
_UNIT = :2 AND PS.PO_ID = :3 AND PS.LINE_NBR = :4 ", &WTHD_CD, &PO_BU, &PO_ID, &
PO_LINE);
End-If;
/********************************************** mmcb.hd72238.SN *************

*********************************/
SQLExec("SELECT 'Y' FROM PS_MMC_ESTAB_TYPE A, PS_VENDOR B WHERE A.SETID = :1
AND A.SETID = B.SETID AND B.VENDOR_ID = :2 AND A.ESTABID = B.ESTABID", &SETID, N
F_HDR_BRL.VENDOR_ID, &EXISTE_ESTAB); /* mmcb.hd108150.ln */
If &EXISTE_ESTAB = "Y" Then
SetDefault(WTHD_CD);
ScrollFlush(Record.MMC_COD_RETL_VW);
End-If;
/********************************************** mmcb.hd72238.SN *************
*********************************/
End-If;
[NF_LN_BRL.TOF_PBL.FieldChange]
/*********************************************************************
*
*
*
*********************************************************************/
/*******************************************************************************
***
*
*
*******************************************************************************
***/
/************************************************************************
* Itamar Junior - MMCB - mmcb.hd75050 - 28/09/2009
* Adicionando novo local de destino fixo no programa.
************************************************************************/
Declare Function TofTxtHdr PeopleCode RECV_HD_WRK_PBL.REFRESH_TXT_PB_PBL FieldCh
ange;
b.sds3239.ln */
/* BRLPO - HAT - 8.01 - 05/07/01 - Popula FLOW_STATUS_PBL, verifica se os TOFs so
iguais para mover para a work da header e grava os textos legais, atualiza NF_H
DR_BRL.VOUCHER_FLOW_PBL e NF_HDR_BRL.ACCOUNT_FLOW_PBL */
Global boolean &MMC_ENTRAPOR_PACABADO, &MMC_ENTRAPOR_PACABADONF;
Global Rowset &MMC_LinhaNF_LinhasOC; /* FABIO - 21/06/2006 */
Local Rowset &MMC_TERC_OC_RS;
NF_HDR_BRL.ACCOUNT_FLOW_PBL = "N";
FLOW_STATUS_PBL = TOF_TYPE_PBL.FLOW_STATUS_PBL;
&TOF_EQ = "==";
&TOF_CUR = FetchValue(TOF_PBL, &LN_ROW);
If &LN_ROW = 1 Then
&TOF_ANT = &TOF_CUR;
End-If;
If &TOF_ANT <> &TOF_CUR Then
&TOF_EQ = "<>";
End-If;
If FetchValue(FLOW_STATUS_PBL, &LN_ROW) = "V" Then
End-If;
If FetchValue(FLOW_STATUS_PBL, &LN_ROW) = "A" Then
NF_HDR_BRL.ACCOUNT_FLOW_PBL = "A";
End-If;
End-For;
If &TOF_EQ = "<>" Then
NF_HDR_INFO_WRK.TOF_PBL = "
NF_HDR_INFO_WRK.DESCR = "
";
";
Else
NF_HDR_INFO_WRK.TOF_PBL = &TOF_CUR;
NF_HDR_INFO_WRK.DESCR = TOF_TYPE_PBL.DESCRSHORT;
End-If;
TofTxtHdr();
End-If;
/*BRLPO - HAT - 8.01 - 05/07/01 - END */
/*** JEISON CALDAS - 13/10/05 - Migrao da verso 7 para verso da customizao que altera
campos baseado na operao fiscal - Inicio ***/
nd */
All(TOF_PBL) Then
REM ATUALIZA DEFINIO DOS CAMPOS DE ICMS E IPI;
IPITAX_STS_BBL = "";
ICMSTAX_STS_BBL = "";
SQLExec("SELECT IPITAX_STS_BBL, ICMSTAX_STS_BBL, PIS_TAX_STATUS_PBL, COFI_TX_
STATUS_PBL FROM PS_MMC_VINC_OF_IMP WHERE TOF_PBL = :1", TOF_PBL, IPITAX_STS_BBL,
ICMSTAX_STS_BBL, PIS_TAX_STATUS_PBL, COFI_TX_STATUS_PBL);
SQLExec("SELECT IPITAX_STS_BBL, ICMSTAX_STS_BBL FROM SYSADM.PS_MMC_VINC_OF_IM
P WHERE TOF_PBL = :1", TOF_PBL, &PARAMETRO_IPI, &PARAMETRO_ICMS);
ICMSTAX_STS_BBL = "OUTR"
End-If;
MMC_CATALAO_WRK.MMC_MRB_VOUCHER = "NGV";
Else
MMC_CATALAO_WRK.MMC_MRB_VOUCHER = "SGV";
End-If;
/* SQLExec("SELECT STATE, COUNTRY FROM PS_VENDOR_ADDR WHERE SETID = 'MMCSA' A
ND VENDOR_ID = :1 AND ADDRESS_SEQ_NUM = :2 AND EFF_STATUS = 'A'", NF_HDR_BRL.VEN
DOR_ID, NF_HDR_BRL.ADDRESS_SEQ_NUM, &STATE, &COUNTRY); */ /* mmcb.sds3239.lo */
DOR_ID, NF_HDR_BRL.ADDRESS_SEQ_NUM, &STATE, &COUNTRY); /* mmcb.sds3239.ln */

REM CHECA LOCAL DE ENTREGA
If (NF_HDR_BRL.SHIPTO_ID =
NF_HDR_BRL.SHIPTO_ID
&ENTREGA = "SP";
Else
&ENTREGA = "GO";
End-If;
SP OU GO ;
"LCPTS" Or
= "LDEFS" Or
= "LINDS" Or
= "LOVIN" Or
= "LVEIN" Or
= "LVPEC" Or
= "LVVEI" Or
= "LMKTS" Or
= "LREVS" Or
= "LCPTS" Or
= "LMOGI" Or
= "SO PAULO") Then

INTERNO, &CFOP_EXTERNO, &CFOP_EXTERIOR, PURCH_PROP_BRL);
CFOP_INCOM_PBL = &CFOP_EXTERIOR;
Else
If All(&STATE) And
All(&ENTREGA) Then
CFOP_INCOM_PBL = &CFOP_INTERNO;
Else
CFOP_INCOM_PBL = &CFOP_EXTERNO;
End-If;
End-If;
End-If;
/*** JEISON CALDAS - JC800888 - ATIV.2016 - 18/06/07 - Alterada customizao de cd
igos fixos para campos parametrizaveis - Inicio ***/
/*** Ativ.2016 - Cdigo fixo inativado
TOF_PBL = "EGAR5" Then ***/
SQLExec("SELECT MMC_FLAG_FISCAL FROM PS_MMC_PARAMET_OFS WHERE TOF_PBL = :1 AN
D STATUS = 'A'", TOF_PBL, &MMC_FLAG_FISCAL);
If &MMC_FLAG_FISCAL = "S" Then
ICMSTAX_BRL_BSS = 0;
ICMSTAX_BRL_PCT = 0;
ICMSTAX_BRL_RED = 0;
ICMSTAX_BRL_AMT = 0;
ICMSSUB_BRL_AMT = 0;
ICMS_COMPL_AMT_PBL = 0;
COEF_BASE_ICMS_PBL = 0;
NF_LN_WRK_PBL.ICMS_COMPL_PCT_PBL = 0;
Gray(ICMSTAX_BRL_BSS);
Gray(ICMSTAX_BRL_PCT);
Gray(ICMSTAX_BRL_RED);
Gray(ICMSTAX_BRL_AMT);
Else
UnGray(ICMSTAX_STS_BBL);
UnGray(ICMSTAX_BRL_BSS);
UnGray(ICMSTAX_BRL_PCT);
UnGray(ICMSTAX_BRL_RED);
UnGray(ICMSTAX_BRL_AMT);
End-If;
End-If;
/*** JEISON CALDAS - BUSCA PARAMETRIZAO DE TABELA CUSTOMIZADA MMC_PARAMET_OFS - IN
ICIO ***/
nd */
All(TOF_PBL) Then
&VL_MSG_BOX = WinMessage("Deseja alterar campos baseado na Parametrizao da Oper
. Fiscal ?", 3, "Alterar campos para def. OF?");
SQLExec("SELECT INV_ITEM_ID, DESCR254_MIXED, QTY_LN_RECVD_VUOM, DEPTID, CA
TEGORY_ID FROM PS_MMC_PARAMET_OFS WHERE TOF_PBL = :1 AND STATUS = 'A'", TOF_PBL,
&PITEM, &PDESCR, &PQTY, &PDEPTID, &CATEGORY);
If All(&PITEM) And
None(PO_ID) Then
/* SQLExec("SELECT INVENTORY_ITEM, UNIT_MEASURE_STD FROM PS_MASTER_ITEM
_TBL WHERE SETID = 'MMCSA' AND INV_ITEM_ID = :1", &PITEM, &ESTOQUE, &UNIT_OF_MEA
SURE); */ /* mmcb.sds3239.lo */
SQLExec("SELECT INVENTORY_ITEM, UNIT_MEASURE_STD FROM PS_MASTER_ITEM_TB
L WHERE SETID = :1 AND INV_ITEM_ID = :2", &SETID, &PITEM, &ESTOQUE, &UNIT_OF_MEA
SURE); /* mmcb.sds3239.ln */
&SETID_ITEM = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "MASTER_ITEM_TBL
", "");
SQLExec("SELECT PRICE_LIST, DESCR254_MIXED FROM PS_PURCH_ITEM_ATTR WHER
E SETID = :1 AND INV_ITEM_ID = :2", &SETID_ITEM, &PITEM, &UNIT_PRICE, &DESCR254_
MIXED);
SQLExec("select a.descr from ps_itm_purch_fs a, ps_set_cntrl_rec b w
here a.inv_item_id = :1 and b.setcntrlvalue = :2 and b.recname = :3 and b.setid
= a.setid", &PITEM, BUSINESS_UNIT, &RECNAME, &DESCR);
Else
&DESCR = "";
End-If;
UpdateValue(INV_ITEM_ID, &LN, &PITEM);
UpdateValue(DESCR, &LN, &DESCR);
UpdateValue(ITM_SETID, &LN, &SETID_ITEM);
UpdateValue(UNIT_OF_MEASURE, &LN, &UNIT_OF_MEASURE);
UpdateValue(DESCR254_MIXED, &LN, &DESCR254_MIXED);
If All(&DESCR) Then
Gray(DESCR, &LN);
End-If;
End-For;
End-If;
REM FAZ TRATAMENTO PARA CATEGORIA/CONTA;
If All(&CATEGORY) And
None(PO_ID) Then
/* SQLExec("SELECT ACCOUNT FROM PS_ITM_CAT_TBL WHERE SETID = :1 AND CAT
EGORY_ID = :2", "MMCSA", &CATEGORY, &CONTA); */ /* mmcb.sds3239.lo */
RY_ID = :2", &SETID, &CATEGORY, &CONTA); /* mmcb.sds3239.ln */
UpdateValue(Record.NF_LN_BRL, &LN, BRL_DISTRIB_LN.ACCOUNT, 1, &CONTA
);
End-For;
End-If;
If All(&PDESCR) And
None(PO_ID) Then
UpdateValue(DESCR, &LN, &PDESCR);
End-For;
End-If;
If All(&PQTY) And
None(PO_ID) Then
UpdateValue(QTY_NF_BRL, &LN, &PQTY);
&PUNITP = FetchValue(UNIT_PRICE, &LN);
&PVALUE = RoundCurrency(&PQTY * &PUNITP, NF_HDR_BRL.BASE_CURRENCY
End-If;
End-For;
ATUALIZA_DISTRIB();
End-If;
If All(&PDEPTID) And
None(PO_ID) Then
UpdateValue(Record.NF_LN_BRL, &LN, BRL_DISTRIB_LN.DEPTID, 1, &PDEPTI
D);
End-For;
End-If;
End-If;
End-If;

Alterao de melhoria para habilitar / desabilitar link "Vincular Ordem de Compra
" */
If &MMC_ENTRAPOR_PACABADO Or
&MMC_ENTRAPOR_PACABADONF Then
SQLExec("Select MMC_CNTRL_TERC From PS_CFO_BRL_TBL Where SETID = :1 And CF
O_BRL_CD = :2", ITM_SETID, CFOP_INCOM_PBL, &MMC_CNTRL_TERC);
MMC_NF_LN_WRK.BUTTONOFFLINE.Visible = True;
If All(&MMC_TERC_OC_RS.GetRow(1).MMC_CT_NFLN_TRI.LINE_NBR.Value) Then
Else
MMC_NF_LN_WRK.BUTTONOFFLINE.Enabled = True;
End-If;
Else
o */
End-For;
PO_ID = "";
/
o */
If &MMC_LinhaNF_LinhasOC.GetRow(&i2).MMC_TERC_OC.SEQNUM.Value = NF_B
RL_LINE_NUM Then
Break;
End-If;
End-For;
End-If;
/
End-If;
Else
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 02/06/2006 - Inicio *
/
End-For;
PO_ID = "";
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 21/06/2006 - Inicio *
/
If &MMC_LinhaNF_LinhasOC.GetRow(&i2).MMC_TERC_OC.SEQNUM.Value = NF_BRL_
LINE_NUM Then
Break;
End-If;
End-For;
End-If;
End-If;
End-If;
[NF_LN_BRL.TOF_PBL.RowInit]
/*******************************************************************************
**************/
/* MMC - ASM - 20/02/2006 - Se agrega logica para cargar el prompt table segun s
i se ingresa mediante pgina customizada o PS Standar */
/*******************************************************************************
**************/
/*********************************************************************
*
*
*
*********************************************************************/
/*******************************************************************************
***
*
*
*******************************************************************************
***/
Component boolean &triangulacionOrig; /* Esta variable viene del PostBuild del C
omponent, con el valor original de la variable &triangulacion */
/*
If (&MMC_Controle_Terceiros = True Or
&triangulacionOrig = True) Then
DERIVED.EDITTABLE = "MMC_TOF_TYPE_VW";
Else
DERIVED.EDITTABLE = "TOF_TYPE_PBL";
End-If;
*/
/* MMC - ASM - 20/02/2006 - Se agrega logica para cargar el prompt table segun s
i se ingresa mediante pgina customizada o PS Standar - Fin */
/*******************************************************************************
**************/
/* BRLPO - HAT - 8.01 - 05/07/01 - Inicia valor Default para o TOF e FLOW_STATUS
_PBL */
/* Sugere valor do TOF da BU */
If %Mode = "A" Then
TOF_PBL = BUS_UNIT_TBL_PM.TOF_PBL;
If TOF_TYPE_PBL.FLOW_STATUS_PBL = "V" Then
NF_HDR_BRL.VOUCHER_FLOW_PBL = "V"
Else
If TOF_TYPE_PBL.FLOW_STATUS_PBL = "A" Then
NF_HDR_BRL.ACCOUNT_FLOW_PBL = "A"
End-If
End-If
End-If;
End-If;
campos baseado na operao fiscal - Inicio ***/
nd */
All(TOF_PBL) Then
REM ATUALIZA DEFINIO DOS CAMPOS DE ICMS E IPI;
1 AND MMC_GKO_ID_NF_FRET = :2", BUSINESS_UNIT, NF_BRL_ID, &NF_FROM_GKO);
If &NF_FROM_GKO = "Y" Then
&ICMSTAX_STS_BBL_GKO = ICMSTAX_STS_BBL;
End-If;
SQLExec("SELECT IPITAX_STS_BBL, ICMSTAX_STS_BBL, PIS_TAX_STATUS_PBL, COFI_TX_
STATUS_PBL FROM PS_MMC_VINC_OF_IMP WHERE TOF_PBL = :1", TOF_PBL, IPITAX_STS_BBL,
ICMSTAX_STS_BBL, PIS_TAX_STATUS_PBL, COFI_TX_STATUS_PBL);

REM
MMC_CATALAO_WRK.MMC_MRB_VOUCHER = "NGV";
Else
REM
MMC_CATALAO_WRK.MMC_MRB_VOUCHER = "SGV";
End-If;
SQLExec("SELECT IPITAX_STS_BBL, ICMSTAX_STS_BBL FROM SYSADM.PS_MMC_VINC_OF_IM
P WHERE TOF_PBL = :1", TOF_PBL, &PARAMETRO_IPI, &PARAMETRO_ICMS);
ICMSTAX_STS_BBL = "OUTR"
End-If;
If &NF_FROM_GKO = "Y" Then
ICMSTAX_STS_BBL = &ICMSTAX_STS_BBL_GKO;
End-If;
If NF_HDR_BRL.OPRID_LAST_UPDT <> "IMPORTACAO" Then
SQLExec("SELECT CFOP_STATE_BBL, CFOP_INTST_BBL, CFOP_INTNT_BBL ,PURCH_PROP
_BRL FROM PS_TOF_TYPE_PBL WHERE TOF_PBL = :1 AND EFF_STATUS = 'A'", TOF_PBL, &CF
OP_INTERNO, &CFOP_EXTERNO, &CFOP_EXTERIOR, PURCH_PROP_BRL);
End-If;
TOF_PBL = "EGAR5" Then
ICMSTAX_STS_BBL = "ISEN";
ICMSTAX_BRL_BSS = 0;
ICMSTAX_BRL_PCT = 0;
ICMSTAX_BRL_RED = 0;
ICMSTAX_BRL_AMT = 0;
ICMSSUB_BRL_AMT = 0;
ICMS_COMPL_AMT_PBL = 0;
COEF_BASE_ICMS_PBL = 0;
NF_LN_WRK_PBL.ICMS_COMPL_PCT_PBL = 0;
Gray(ICMSTAX_STS_BBL);
Gray(ICMSTAX_BRL_BSS);
Gray(ICMSTAX_BRL_PCT);
Gray(ICMSTAX_BRL_RED);
Gray(ICMSTAX_BRL_AMT);
Else
UnGray(ICMSTAX_STS_BBL);
UnGray(ICMSTAX_BRL_BSS);
UnGray(ICMSTAX_BRL_PCT);
UnGray(ICMSTAX_BRL_RED);
UnGray(ICMSTAX_BRL_AMT);
End-If;
End-If;
campos baseado na operao fiscal - Final ***/
[NF_LN_BRL.TOF_PBL.SavePreChange]
Declare Function TofTxtHdr PeopleCode RECV_HD_WRK_PBL.REFRESH_TXT_PB_PBL FieldCh
ange;
/* BRLPO - HAT - 8.01 - 05/07/01 - Popula FLOW_STATUS_PBL, verifica se os TOFs so
iguais para mover para a work da header e grava os textos legais, atualiza NF_H
DR_BRL.VOUCHER_FLOW_PBL e NF_HDR_BRL.ACCOUNT_FLOW_PBL */
&TOF_EQ = "==";
&TOF_CUR = FetchValue(TOF_PBL, &LN_ROW);
If &LN_ROW = 1 Then
&TOF_ANT = &TOF_CUR;
End-If;
If &TOF_ANT <> &TOF_CUR Then
&TOF_EQ = "<>";
End-If;
If FetchValue(FLOW_STATUS_PBL, &LN_ROW) = "V" Then
End-If;
If FetchValue(FLOW_STATUS_PBL, &LN_ROW) = "A" Then
NF_HDR_BRL.ACCOUNT_FLOW_PBL = "A";
End-If;
End-For;
If &TOF_EQ = "<>" Then
NF_HDR_INFO_WRK.TOF_PBL
NF_HDR_INFO_WRK.DESCR =
Else
NF_HDR_INFO_WRK.TOF_PBL
NF_HDR_INFO_WRK.DESCR =
End-If;
TofTxtHdr();
End-If;
= "
"
";
";
= &TOF_CUR;
TOF_TYPE_PBL.DESCRSHORT;
/*BRLPO - HAT - 8.01 - 05/07/01 - END */

[NF_LN_BRL.TXN_CURRENCY_CD.SaveEdit]
/* BRLOC-PO-APP - 8.00 - 06/12/00 */
/* Fabiano Cunha 22/10/2005 - Adequao da verso 7 para 8 */
TXN_CURRENCY_CD = NF_HDR_BRL.TXN_CURRENCY_CD;
BASE_CURRENCY = NF_HDR_BRL.BASE_CURRENCY;
CURRENCY_CD = NF_HDR_BRL.TXN_CURRENCY_CD;
End-If;
[NF_LN_BRL.UNIT_PRICE.FieldChange]
/*** BRLOC-PO-AO-24/04/2002 - ICE Resolution 100957 - Alterado de MERCHANDISE_AM
T para MERCH_ORIG_AMT_PBL **/
Function ATUALIZA_DISTRIB();
%PanelGroup = PanelGroup.NF_RECV_PBL Then
&lvl_ln = CurrentRowNumber();
&MAX_QTDE = 0;
&TOTAL_QTDE = 0;
&DIST_ROWS = ActiveRowCount(Record.NF_LN_BRL, &lvl_ln, Record.BRL_DISTRIB_
LN);
&FATOR = FetchValue(Record.NF_LN_BRL, &lvl_ln, BRL_DISTRIB_LN.EXCHNG_RT
_INTR_BSE, &I);
If None(&FATOR) Then
&FATOR = 1;
End-If;
&QTDE = QTY_NF_BRL * &FATOR;
&MERCH = RoundCurrency(&QTDE * UNIT_PRICE, NF_HDR_BRL.BASE_CURRENCY, NF
_HDR_BRL.NF_BRL_DATE);
If &QTDE > &MAX_QTDE Then
&MAX_QTDE = &QTDE;
&MAX_ROW = &I;
End-If;
&TOTAL_QTDE = &TOTAL_QTDE + &QTDE;
UpdateValue(Record.NF_LN_BRL, &lvl_ln, BRL_DISTRIB_LN.MERCH_ORIG_AMT_PB
L, &I, &MERCH);
UpdateValue(Record.NF_LN_BRL, &lvl_ln, BRL_DISTRIB_LN.QTY_VCHR, &I, &QT
DE);
End-For;
If &TOTAL_QTDE <> QTY_NF_BRL Then
&TOTAL_QTDE = &TOTAL_QTDE - QTY_NF_BRL;
&QTDE = FetchValue(Record.NF_LN_BRL, &lvl_ln, BRL_DISTRIB_LN.QTY_VCHR,
&MAX_ROW);
&QTDE = &QTDE + &TOTAL_QTDE;
UpdateValue(Record.NF_LN_BRL, &lvl_ln, BRL_DISTRIB_LN.QTY_VCHR, &MAX_RO
W, &QTDE);
&MERCH = RoundCurrency(&QTDE * UNIT_PRICE, NF_HDR_BRL.BASE_CURRENCY, NF
_HDR_BRL.NF_BRL_DATE);
UpdateValue(Record.NF_LN_BRL, &lvl_ln, BRL_DISTRIB_LN.MERCH_ORIG_AMT_PB
L, &MAX_ROW, &MERCH);
End-If;
End-If;
End-Function;
If All(PO_ID) Then
&valor_antes = PriorValue(UNIT_PRICE);
SQLExec("SELECT PRICE_PO FROM PS_RECV_LN_SHIP WHERE BUSINESS_UNIT = :1 AND
RECEIVER_ID = :2 AND RECV_LN_NBR = :3 AND RECV_SHIP_SEQ_NBR = :4", BUSINESS_UNI
T, RECEIVER_ID, RECV_LN_NBR, RECV_SHIP_SEQ_NBR, &valor_antes);
If (UNIT_PRICE > &valor_antes) Then
UNIT_PRICE = &valor_antes;
WinMessage("O preco nao pode ser aumentado.");
/* mmcb.sds2895 - s.n. */
Else
If (UNIT_PRICE < &valor_antes) Then
UNIT_PRICE = &valor_antes;
WinMessage("O preco nao pode ser diminudo.");
End-If;
/* mmcb.sds2895 - e.n. */
End-If;
End-If;
End-If;
/*- Amount based on qty and unit price */
All(UNIT_PRICE) Then
MERCH_ORIG_AMT_PBL = RoundCurrency(QTY_NF_BRL * UNIT_PRICE, NF_HDR_BRL.BASE_C
/*Atualiza o valor de desconto */
DSCNT_AMT = RoundCurrency(DSCNT_PCT / 100 * MERCH_ORIG_AMT_PBL, BASE_CURRENCY
, %Date);
/*BRLOC-PO-APP-8.00-22/08/2001-END*/
End-If;
ATUALIZA_DISTRIB();
/* BRLOC-PO-APP-8.00-15/12/00-END*/
/*** BRLOC-PO-AO-24/04/2002 - ICE Resolution 100957 - END **/
[NF_LN_BRL.WTHD_CD.FieldChange]
/**** INICIO - AUGUSTO VILARINHO NETO - 12/11/2005 - Opo de alterar o cdigo de ret
eno para todas linhas na Entrada Direta de Documento Fiscal ****/
&VL_MSG_BOX = WinMessage("Deseja alterar cdigo de reteno para todas as linhas
do documento fiscal?", 3, "Alterar codigo de reteno?");
UpdateValue(WTHD_CD, &LN, WTHD_CD);
End-For;
/**** INICIO - AUGUSTO VILARINHO NETO - 12/11/2005 - Opo de alterar o codigo de r
eteno para todas linhas na Entrada Direta de Documento Fiscal ****/
/*** JEISON CALDAS - 12/03/07 - ATIV.2045 Cd. de Arrecadao por linha do recebimento
- Inicio ***/
ScrollSelect(1, Record.MMC_COD_RETL_VW, Record.MMC_COD_RETL_VW, "WHERE WTHD_C
D = :1", WTHD_CD);
End-If
- Fim ***/
[NF_LN_BRL.WTHD_CD.RowInit]
/* Description: Default code from vendor */
Declare Function do_IR_code PeopleCode FUNCLIB_BRL_NF.VENDOR_ID FieldFormula;
/* Fabiano Cunha - 29/01/2006 - Foi retirado a busca do codigo de retencao do ca
dastro do fornecedor para apenas doc fiscal direto. A pedido do Christiano Ribei
ro
If (%PanelGroup = PanelGroup.NF_INFO_PBL) Then
WTHD_CD = do_IR_code(NF_HDR_BRL.VENDOR_ID);
End-If;
*/
/*BRLOC-PO-APP-8.00-26/03/01-END*/
- Inicio ***/
%Mode <> "A" Then
ScrollSelect(1, Record.MMC_COD_RETL_VW, Record.MMC_COD_RETL_VW, "WHERE WTHD_C
D = :1", WTHD_CD);
End-If;
- Fim ***/
[NF_LN_BRL.WTHD_CD.SaveEdit]
/*****************************************************************************
*
*
******************************************************************************/
/****************************************************************************
Claudio Henrique da Costa - MMC - 26/11/2008 - mmcb.sds2905
Alterao para que o sistema carrege o NCM atual da atualizao do Item.
*****************************************************************************/
/*****************************************************************************
*
*
/*******************************************************************************
*
- mmcb.sds3239
*
*******************************************************************************
*/
/* Itamar Junior - MMCB - 28/09/2009 - mmcb.hd75356
*
* Inserindo a noVa unidade de negcio POMGI no preenchimento do campo WTHD_CD*
******************************************************************************/
/*******************************************************************************
*
*
* Adequao dos sistemas para incorporao PEA SVB.
*
*******************************************************************************
*/
/*******************************************************************************
****
*
*
********************************************************************************
****/
b.sds3239.ln */
Declare Function BUSCA_WTHD_CD_ANT_LEI PeopleCode TAX_CLASS_BRL FieldChange; /*
mmcb.sds4689.ln */
/************************* mmcb.sds2905.sn *************************/
/******************************** mmcb.sds4207.sn ************************
********/
/******************************** mmcb.sds4207.en /**************************
******/
SQLExec("SELECT IT.TAX_CLASS_BRL FROM SYSADM.PS_INV_ITEMS IT WHERE IT.SETID =
:1 AND IT.INV_ITEM_ID = :2 AND IT.EFFDT = (SELECT MAX(EFFDT) FROM SYSADM.PS_INV
_ITEMS ITI WHERE ITI.SETID = IT.SETID AND ITI.INV_ITEM_ID = IT.INV_ITEM_ID)", &S
ETID, INV_ITEM_ID, &TAX_ATUAL); /* mmcb.sds3239.ln */
Else
&TAX_ATUAL = TAX_CLASS_BRL;
End-If;
/******************************** mmcb.sds4207.sn ************************
********/
/******************************** mmcb.sds4207.en /**************************
******/
/* SQLExec("SELECT F.WTHD_CD from ps_mmc_ncm_ant_lei E, PS_MMC_NCM_ANT_HDR F
where E.SETID = :1 AND E.SETID = F.SETID AND SUBSTR(E.MMC_PREFIXO_NCM,1,LENGTH(R
TRIM(E.MMC_PREFIXO_NCM))) = SUBSTR(:2,1, LENGTH(RTRIM(E.MMC_PREFIXO_NCM))) AND S
UBSTR(:2,1, 4) NOT IN ('4011', '4013') ", &SETID, &TAX_ATUAL, &WTHD_CD); */
/************************************************ mmcb.sds4689.eo ***********

*************************************/
/***************************************** mmcb.sds4689.sn ******************
***********************/
Error ("Erro: No foi possivel encontrar unidade de Negocio para buscar o NC
M Antecipao da Lei");
End-If;
&WTHD_CD = BUSCA_WTHD_CD_ANT_LEI(&SETID, &TAX_ATUAL, BUSINESS_UNIT);
/***************************************** mmcb.sds4689.en ******************
***********************/
&WTHD_CD = " ";
End-If;
WTHD_CD = &WTHD_CD;
End-If;
/************************* mmcb.sds2905.en *************************/
/*** JEISON CALDAS - 29/08/06 - mmcb.AT1563 - Faz validao do Cdigo de Reteno na Nota
Fiscal - Inicio ***/
Substring(INV_ITEM_ID, 1, 2) <> "IM" Then
/******************************** mmcb.sds4207.sn ***************************
*****/
If (BUSINESS_UNIT <> MMC_BUSINESS_UNIT("POINDI", BUSINESS_UNIT) And
BUSINESS_UNIT <> MMC_BUSINESS_UNIT("POMKT", BUSINESS_UNIT)) Then
&WTHD_CD = "";
End-If;
/******************************** mmcb.sds4207.en /**************************
******/
&NCM = TAX_CLASS_BRL;
/************************************************ mmcb.sds4689.so ***********
*************************************/
/*
SQLExec("SELECT F.WTHD_CD from ps_mmc_ncm_ant_lei E, PS_MMC_NCM_ANT_HDR F whe
re E.SETID = :1 AND E.SETID = F.SETID AND SUBSTR(E.MMC_PREFIXO_NCM,1,LENGTH(RTRI
M(E.MMC_PREFIXO_NCM))) = SUBSTR(:2,1, LENGTH(RTRIM(E.MMC_PREFIXO_NCM))) AND SUBS
TR(:2,1, 4) NOT IN ('4011', '4013') ", &SETID, &NCM, &WTHD_CD); */
/************************************************ mmcb.sds4689.eo ***********
*************************************/
/***************************************** mmcb.sds4689.sn ******************
***********************/
Error ("Erro: No foi possivel encontrar unidade de Negocio para buscar o NC
M Antecipao da Lei");
End-If;
&WTHD_CD = BUSCA_WTHD_CD_ANT_LEI(&SETID, &NCM, BUSINESS_UNIT);
/***************************************** mmcb.sds4689.en ******************
***********************/
SQLExec("select 'Y' from ps_master_item_tbl where setid = :1 and inv_item_
id = :2 and inventory_item = 'Y'", &SETID, INV_ITEM_ID, &ITEM); /* mmcb.sds3239.
ln */
If &ITEM = "Y" Then
Gray(WTHD_CD);
/************************************** mmcb.hd49255.s.n **************
************************/
If WTHD_CD <> "" And
WTHD_CD <> " "
/************************* mmcb.sds2905.sn **********************
***/
And
TAX_CLASS_BRL <> &TAX_ATUAL And
BUSINESS_UNIT <> MMC_BUSINESS_UNIT("POMKT", BUSINESS_UNIT))
/************************* mmcb.sds2905.en *************************
/
Then
WinMessage("Sistema detectou preenchimento indevido do campo WTHD_CD
(Reteno) na NF: " | BUSINESS_UNIT | " - " | NF_BRL_ID | " - " | NF_BRL_LINE_NUM |
" - " | INV_ITEM_ID | " - " | TAX_CLASS_BRL | " foi preenchido incorretamente c
om o valor: " | WTHD_CD | " sistema corrigira o valor para espao em branco.");
WTHD_CD = " ";
End-If;
/************************************** mmcb.hd49255.e.n **************
************************/
End-If;
Else
SQLExec("SELECT 'Y' FROM PS_MMC_ESTAB_TYPE A, PS_VENDOR B WHERE A.SETID =
:1 AND A.SETID = B.SETID AND B.VENDOR_ID = :2 AND A.ESTABID = B.ESTABID", &SETID
, NF_HDR_BRL.VENDOR_ID, &EXISTE); /* mmcb.sds3239.ln */
Gray(WTHD_CD);
SetDefault(WTHD_CD);
/************************************** mmcb.hd49255.s.n **************
************************/
/*************************** mmcb.hd72238.SO **************************
********/
/*
If WTHD_CD <> "" And

WTHD_CD <> " " Then */
/*************************** mmcb.hd72238.EO **************************
********/
/*************************** mmcb.hd72238.SN **************************
********/
If All(WTHD_CD) Then
/*************************** mmcb.hd72238.EN ***********************
***********/
WinMessage("Sistema detectou preenchimento indevido do campo WTHD_CD
(Reteno) na NF: " | BUSINESS_UNIT | " - " | NF_BRL_ID | " - " | NF_BRL_LINE_NUM |
" - " | INV_ITEM_ID | " - " | TAX_CLASS_BRL | " foi preenchido incorretamente c
om o valor: " | WTHD_CD | " sistema corrigira o valor para espao em branco.");
WTHD_CD = " ";
End-If;
/************************************** mmcb.hd49255.e.n **************
************************/
Else
WTHD_CD = &WTHD_CD;
UnGray(WTHD_CD);
End-If;
End-If;
End-If;
/*** JEISON CALDAS - 29/08/06 - mmcb.AT1563 - Faz validao do Cdigo de Reteno na Nota
Fiscal - Fim ***/
[RECV_LN_SHIP.BUSINESS_UNIT_IN.FieldDefault]
b.sds3239.ln */
/*
** Valmir Tavares - HQS - 06.08.2004 - 932 - Inicio.
*/
If %PanelGroup = "RECV_PO" Then
If %Mode = "A" Then
/*********************** mmcb.sds3239.so ***********************/
/*
SQLExec("SELECT A.BUSINESS_UNIT_IN FROM PS_SHIPTO_TBL A WHERE A.EFFDT = (S
ELECT MAX(A_ED.EFFDT) FROM PS_SHIPTO_TBL A_ED WHERE A.SETID = A_ED.SETID AND A.S
HIPTO_ID = A_ED.SHIPTO_ID) AND A.EFF_STATUS = 'A' AND A.SETID = 'MMCSA' AND A.BU
SINESS_UNIT_RECV = :1 AND A.SHIPTO_ID = :2", BUSINESS_UNIT, SHIPTO_ID, &RESULT);
*/
/*********************** mmcb.sds3239.eo ***********************/
/*********************** mmcb.sds3239.sn ***********************/
SQLExec("SELECT A.BUSINESS_UNIT_IN FROM PS_SHIPTO_TBL A WHERE A.EFFDT = (S
ELECT MAX(A_ED.EFFDT) FROM PS_SHIPTO_TBL A_ED WHERE A.SETID = A_ED.SETID AND A.S
HIPTO_ID = A_ED.SHIPTO_ID) AND A.EFF_STATUS = 'A' AND A.SETID = :1 AND A.BUSINES
S_UNIT_RECV = :2 AND A.SHIPTO_ID = :3", &SETID, BUSINESS_UNIT, SHIPTO_ID, &RESUL
T);
/*********************** mmcb.sds3239.en ***********************/
BUSINESS_UNIT_IN = &RESULT;
End-If;
End-If;
/*
** Valmir Tavares - HQS - 06.08.2004 - 932 - Fim.
*/
[RECV_LN_SHIP.CONVERSION_RATE.SaveEdit]
/*******************************************************************************
***
* Vinicius Alves Mello - MMCB - 08/10/2010 - mmcb.hd102333
*
* Bloquear o recebimento, caso a quantidade que ser armazenada esteja errada.

*
*******************************************************************************
***/
/********************************* mmcb.hd102333.sn ****************************
***/
If %Component = "RECV_PO" And
RECV_HDR.RECV_STATUS <> "X" Then
SQLExec("SELECT DISTINCT 'Y' FROM SYSADM.PS_SHIPTO_TBL WHERE SETID = :1 AND B
USINESS_UNIT_RECV = :2 AND BUSINESS_UNIT_IN <> ' '", &SETID, BUSINESS_UNIT, &nec
essitaBuIn);
If All(&necessitaBuIn) Then
SQLExec("SELECT CONVERSION_RATE FROM SYSADM.PS_INV_ITEM_UOM WHERE SETID=:1
AND INV_ITEM_ID=:2 AND UNIT_OF_MEASURE=:3", &SETID, INV_ITEM_ID, RECEIVE_UOM,
&V_CONVERSION_RATE);
If &V_CONVERSION_RATE <> CONVERSION_RATE Then
Error ("A taxa de converso do recebimento esta diferente do cadastro (Li
nha: " | RECV_LN_NBR | " Item: " | INV_ITEM_ID | " UN Rec: " | RECEIVE_UOM | " T
X Rec: " | CONVERSION_RATE | " TX Cad: " | &V_CONVERSION_RATE | ").");
End-If;
End-If;
End-If;
/********************************* mmcb.hd102333.en ****************************
***/
[RECV_LN_SHIP.DESCR254_MIXED.FieldChange]
/*** JEISON CALDAS 03/11/05 - Tratamento para ser possivel acrescentar o chassi
do veiculo - Inicio ***/
If %Component = "RECV_PO" Then
RECV_LN_SHIP_WK.DESCR254_MIXED = DESCR254_MIXED;
End-If;
do veiculo - Fim ***/
[RECV_LN_SHIP.DESCR254_MIXED.RowInit]
*/
Local Rowset &rs_data;
%Component <> Component.CLOSE_FISCDOC_PBL Then
&CURR_ROW = CurrentRowNumber();
&rs_data = GetLevel0()(1).GetRowset(Scroll.RECV_LN_SHIP);
&rs_data(&CURR_ROW).RECV_LN_SHIP_WK.DESCR.Label = Substring(&rs_data(&CURR
_ROW).RECV_LN_SHIP.DESCR254_MIXED.Value, 1, 30);
End-If;
End-If;
do veiculo - Inicio ***/
If %Component <> "RECV_PO" Then
Gray(DESCR254_MIXED);
End-If;
do veiculo - Fim ***/
[RECV_LN_SHIP.DUE_DT.FieldDefault]
/***********************************/
/* APRD: R-BSLOSS-ZV8WB
EMM */
/* Bundle: R-NDAVE-3L7TE
*/
/* Date: March 4, 2002
*/
/* Changed from = "Y" to = "N"
*/
/***********************************/
If RECV_HDR.PO_RECEIPT_FLG = "N" Then
DUE_DT = %Date;
End-If;
[RECV_LN_SHIP.DUE_DT.SaveEdit]
/*******************************************************************************
*****************
* Mauri Rodrigo Back - MMC - mmcb.sds4483 - 07/08/2013
*
* Apenas poder fazer recebimento com data futura quem estiver parametrizado
*
* Painel: Administrar Compras > Gerenciar Recebimentos > Usar > Lib. Recebimento
no Program. *
********************************************************************************
*****************/
/**************** MMCB.SDS4483.SN ****************/
If %Component = Component.RECV_PO Then
If RECV_HDR.RECV_STATUS <> "X" Then
&DATA_ATUAL = %Date;
&HOJE = %Date;
If DUE_DT > &HOJE Then
/* Verifica se a Unidade est parametrizada no painel Administrar Compras
> Gerenciar Recebimentos > Usar > Lib. Recebimento no Program */
SQLExec("SELECT 'Y', MMC_DIAS_LATENCIA FROM SYSADM.PS_MMC_RECV_LIB WHER
E BUSINESS_UNIT = :1 AND STATUS = 'A'", BUSINESS_UNIT, &BUOK, &DIASLATENCIA);
If &BUOK = "Y" Then
&DIA = 0;
/*Apenas acrescenta a dias latencia se for dia util*/
While &DIA < &DIASLATENCIA
/*Verifica se o dia util*/
SQLExec("SELECT %datein(:1)+:2 FROM DUAL WHERE TO_CHAR(%datein(:1
),'d') NOT IN (1,7)", &DATA_ATUAL, &DIA, &new_data);
If All(&new_data) Then
&DIA = &DIA + 1;
End-If;
/*Limite dias*/
&DATA_ATUAL = &DATA_ATUAL + 1;
End-While;
If &DATA_ATUAL < DUE_DT And
&DATA_ATUAL > &HOJE Then
Error ("Para o recebimento de linhas de programao com Datas Futuras
solicite Autorizao ao Departamento Planejamento e Compras de Materiais. Evento: M
MC_TEMP.DUE_DT.SaveEdit");
End-If; /*&DIASTOTAL<DUE_DT*/
End-If; /**&BUOK=Y**/
End-If; /**DUE_DT>&HOJE**/
End-If; /**RECV_HDR.RECV_STATUS<>X**/
End-If; /**Component**/
/**************** MMCB.SDS4483.EN ****************/
[RECV_LN_SHIP.DUE_TIME.FieldDefault]
/***********************************/
/* APRD: R-BSLOSS-ZV8WB
EMM */
/* Bundle: R-NDAVE-3L7TE
*/
/* Date: March 4, 2002
*/
/* Changed from = "Y" to = "N"
*/
/***********************************/
DUE_TIME = %Time;
End-If;
[RECV_LN_SHIP.INSPECT_DTTM.SavePreChange]
If None(INSPECT_DTTM) And
All(QTY_SH_INSPD) Then
INSPECT_DTTM = %Datetime;
End-If;
[RECV_LN_SHIP.INV_ITEM_ID.FieldChange]
Declare Function Get_BU_ATTR PeopleCode FUNCLIB_PM_SQL.BU_ATTR FieldFormula;
Declare Function get_asset_flds PeopleCode FUNCLIB_PM_SQL.INV_ITEM_ID FieldFormu
la;
Declare Function MasterItemFlds PeopleCode FUNCLIB_PM_SQL.CONVERSION_RATE FieldF
ormula;
/* Incident 4478500
begin 1 of 2 */
Declare Function GetItmConvRate PeopleCode FUNCLIB_PM_SQL.CONVERSION_RATE FieldF
ormula;
Declare Function Get_Conv_Rate PeopleCode FUNCLIB_PM_SQL.CONVERSION_RATE FieldFo
rmula;
/* Incident 4478500
end 1 of 2 */
Declare Function GetItmVenLocDfls PeopleCode FUNCLIB_PM_SQL.VENDOR_ID FieldFormu
la;
Declare Function get_cur_xchng_rt PeopleCode FUNCLIB_PM_SQL.CURRENCY_CD FieldFor
mula;
Declare Function DflStockUOM PeopleCode FUNCLIB_RECV.RECEIVER_STATUS FieldFormul
a;
Declare Function GetDflAA PeopleCode FUNCLIB_RECV.RECEIVER_STATUS FieldFormula;
Declare Function POSet_Alt_Prompt PeopleCode FUNCLIB_PM.ALTACCT FieldFormula;
Declare Function GetDflLoc PeopleCode FUNCLIB_RECV.NO_PO_PB FieldFormula;
Declare Function GetDflAmBu PeopleCode FUNCLIB_RECV.NO_PO_PB FieldFormula;
Declare Function get_gl_base_currency PeopleCode FUNCLIB_PM_SQL.CURRENCY_CD Fiel
dFormula;
Declare Function SetConsignFlg PeopleCode RECV_HDR_WK.CONSIGNED_FLAG FieldChange
;
Declare Function GetBUItmInfo PeopleCode RECV_HDR_WK.CONSIGNED_FLAG FieldChange;
Declare Function RecvDescWkUpd PeopleCode RECV_HDR_WK.PB_SELECT_PO FieldChange;
Declare Function Gray_Line_PB PeopleCode RECV_HDR_WK.LINE_SELECT FieldChange;
Declare Function TtlLnQtyAssetInv PeopleCode RECV_HDR_WK.FUNCLIB FieldChange;
/* PO8.0SP1 Begin */
Declare Function AmtOnlyCheck PeopleCode RECV_HDR_WK.FUNCLIB FieldFormula;
/* PO8.0SP1 End */
Declare Function DevTrkItem PeopleCode FUNCLIB_RECV.CONVERSION_RATE FieldFormula
;
Function UpdDistFlds(&LINE_ROW, &CONSIGNED_FLAG)
&AMBU = "";
&FIN_AM_SW = "";
&PROFILE_ID = "";
&OPRID = OPRID;
GetDflLoc(&OPRID, &LOCATION);
&SETID = FetchValue(ITM_SETID, &LINE_ROW);
&INV_ITEM_ID = FetchValue(INV_ITEM_ID, &LINE_ROW);
get_asset_flds(&SETID, &INV_ITEM_ID, &PROFILE_ID);
If All(&PROFILE_ID) Then
&POBU = FetchValue(BUSINESS_UNIT, &LINE_ROW);
GetDflAmBu(&POBU, &AMBU, &FIN_AM_SW);
End-If;
&BUIN_DFL = RECV_HDR_WK.BUSINESS_UNIT_IN;
GetBUItmInfo(&LINE_ROW, &BUIN_DFL, &NON_OWN_FLAG, &CONSIGNED_FLAG, &UOM_CONV_
FLAG, &BU_ITM_VALID, &STORAGE_AREA, &STOR_LEVEL_1, &STOR_LEVEL_2, &STOR_LEVEL_3,
&STOR_LEVEL_4);
If &BU_ITM_VALID <> "Y" Then
&BUIN_DFL = " ";
End-If;
&HOLD_BUIN = &BUIN_DFL;
&HOLD_LINE = &LINE_ROW;
&DIST_MAXROW = ActiveRowCount(Scroll.RECV_LN_SHIP, &LINE_ROW, Scroll.RECV_LN_
DISTRIB);
For &DIST_ROW = 1 To &DIST_MAXROW;
&PRODUCT = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.PRODUCT, &DI
ST_ROW);
If None(&PRODUCT) Then
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.PRODUCT, &DIST_ROW,
PURCH_ITEM_WRK.PRODUCT);
End-If;
&CURRENCY_CD = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.CURRENCY
_CD, &DIST_ROW);
&PREV_CUR = &CURRENCY_CD;
If None(&CURRENCY_CD) Then
&CURRENCY_CD = CURRENCY_CD;
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.CURRENCY_CD, &DIST_
ROW, CURRENCY_CD);
End-If;
&GL_BU = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.BUSINESS_UNIT_
GL, &DIST_ROW);
&BASE_CURRENCY = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.CURREN
CY_CD_BASE, &DIST_ROW);
&PREV_BASE = &BASE_CURRENCY;
If None(&GL_BU) Then
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.BUSINESS_UNIT_GL, &
DIST_ROW, RECV_HDR_WK.BUSINESS_UNIT_GL);
&GL_BU = RECV_HDR_WK.BUSINESS_UNIT_GL;
get_gl_base_currency(&GL_BU, &BASE_CURRENCY);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.CURRENCY_CD_BASE, &
DIST_ROW, &BASE_CURRENCY);
End-If;
If &CURRENCY_CD <> &PREV_CUR Or
&BASE_CURRENCY <> &PREV_BASE Then
get_cur_xchng_rt(RECV_HDR_WK.CUR_RT_TYPE, &CURRENCY_CD, &BASE_CURRENCY,
RECV_HDR.RECEIPT_DT, &RATE_MULT, &RATE_DIV, &RATE_DATE);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.RATE_DIV, &DIST_ROW
, &RATE_DIV);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.RATE_MULT, &DIST_RO
W, &RATE_MULT);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.RT_TYPE, &DIST_ROW,
RECV_HDR_WK.CUR_RT_TYPE);
End-If;
&ACCOUNT = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.ACCOUNT, &DI
ST_ROW);
If None(&ACCOUNT) Then
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.ACCOUNT, &DIST_ROW,
PURCH_ITEM_WRK.ACCOUNT);
End-If;
&ACCOUNT = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.ACCOUNT, &DI
ST_ROW);
/*SMR - 02/02/06 - INICIO - A pedido da Katia Santos foi acrescentado camp
os para exibir descrio da conta contbil e do departamento*/
SQLExec("SELECT DESCR FROM PS_ACC_DESCR_LANG WHERE ACCOUNT = :1 AND LANGUA
GE_CD = 'POR'", &ACCOUNT, &ACCTG_DESCR);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DIST_WK.ACCOUNT_DESCR, &DIST_R
OW, &ACCTG_DESCR);
&DEPT_ID = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.DEPTID, &DIS
T_ROW);
If &DEPT_ID <> "" Then
SQLExec("SELECT DESCR FROM PS_DEPTID_MON_LANG WHERE DEPTID = :1 AND LAN
GUAGE_CD = 'POR'", &DEPT_ID, &DEPT_DESCR);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DIST_WK.DEPTID_DESCR, &DIST
_ROW, &DEPT_DESCR);
End-If;
/*SMR - 02/02/06 - FIM*/
&GL_BU = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.BUSINESS_UNIT_
GL, &DIST_ROW);
GetDflAA(&GL_BU, &ACCOUNT, &AA_OPTN, &DFL_ALTACCT);
If &AA_OPTN = "Y" Then
&ALTACCT = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.ALTACCT,
&DIST_ROW);
If None(&ALTACCT) Then
If All(PURCH_ITEM_WRK.ALTACCT) Then
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.ALTACCT, &DIS
T_ROW, PURCH_ITEM_WRK.ALTACCT);
Else
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.ALTACCT, &DIS
T_ROW, &DFL_ALTACCT);
End-If;
POSet_Alt_Prompt("", "", Record.RECV_LN_SHIP, &LINE_ROW, Record.RECV
_LN_DISTRIB, &DIST_ROW, Record.GL_ACCT_BUGL_VW, Record.ALTACCT_BUGL_VW, "");
End-If;
End-If;
If All(&AMBU, &PROFILE_ID) Then
UpdateValue(RECV_LN_WK.ASSET_FLG, &LINE_ROW, "Y");
&DIST_AMBU = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.BUSINES
S_UNIT_AM, &DIST_ROW);
If &AMBU <> &DIST_AMBU Then
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.BUSINESS_UNIT_AM
, &DIST_ROW, &AMBU);
End-If;
&DIST_PROFILE = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.PROF
ILE_ID, &DIST_ROW);
If &PROFILE_ID <> &DIST_PROFILE Then
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.PROFILE_ID, &DIS
T_ROW, &PROFILE_ID);
End-If;
&DIST_AMSW = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.BUSINES
S_UNIT_AM, &DIST_ROW);
If &FIN_AM_SW <> &DIST_AMSW Then
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.FINANCIAL_ASSET_
SW, &DIST_ROW, &FIN_AM_SW);
End-If;
End-If;
&LOCATION = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.LOCATION, &
DIST_ROW);
If None(&LOCATION) Then
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.LOCATION, &DIST_ROW
, &LOCATION);
End-If;
&BU_IN = FetchValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.BUSINESS_UNIT_
IN, &DIST_ROW);
If None(&BU_IN) Then
&BU_IN = &BUIN_DFL;
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.BUSINESS_UNIT_IN, &
DIST_ROW, &BU_IN);
End-If;
If &HOLD_BUIN <> &BU_IN Or
&HOLD_LINE <> &LINE_ROW Then
&HOLD_BUIN = &BU_IN;
&HOLD_LINE = &LINE_ROW;
GetBUItmInfo(&LINE_ROW, &BU_IN, &NON_OWN_FLAG, &CONSIGNED_FLAG, &UOM_CO
NV_FLAG, &BU_ITM_VALID, &STORAGE_AREA, &STOR_LEVEL_1, &STOR_LEVEL_2, &STOR_LEVEL

_3, &STOR_LEVEL_4);
End-If;
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.CONSIGNED_FLAG, &DIST_
ROW, &CONSIGNED_FLAG);
SetConsignFlg(&LINE_ROW, &BU_IN, &CONSIGNED_FLAG);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.CONSIGNED_FLAG, &DIST_
ROW, &CONSIGNED_FLAG);
If &CONSIGNED_FLAG = "Y" Then
UnGray(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.CONSIGNED_FLAG, &DIST_RO
W);
Else
Gray(RECV_LN_NBR, &LINE_ROW, RECV_LN_DISTRIB.CONSIGNED_FLAG, &DIST_ROW)
;
End-If;
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DIST_WK.NON_OWN_FLAG, &DIST_RO
W, &NON_OWN_FLAG);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DIST_WK.UOM_CONV_FLAG, &DIST_R
OW, &UOM_CONV_FLAG);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DIST_WK.VALID_BU_ITEM, &DIST_R
OW, &VALID_BU_ITEM);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DIST_WK.STORAGE_AREA, &DIST_RO
W, &STORAGE_AREA);
UpdateValue(RECV_LN_NBR, &LINE_ROW, RECV_LN_DIST_WK.STOR_LEVEL_1, &DIST_RO
W, &STOR_LEVEL_1);
W, &STOR_LEVEL_2);
W, &STOR_LEVEL_3);
W, &STOR_LEVEL_4);
End-For;
End-Function;
Function GetItemData(&LINE_ROW)
If None(ITM_SETID) Then
ITM_SETID = GetSetId("BUSINESS_UNIT", BUSINESS_UNIT, "PURCH_ITEM_ATTR", ""
);
End-If;
Get_BU_ATTR(ITM_SETID, INV_ITEM_ID, BUSINESS_UNIT);
DESCR254_MIXED = PURCH_ITEM_WRK.DESCR254_MIXED;
/* * * PO 8.02 Prf (Start)
RecvDescWkUpd(&LINE_ROW);
PO8.0SP1 End
*/
&LAST_PO_PRICE_PAID = PURCH_ITEM_WRK.LAST_PO_PRICE_PAID;
&ITM_CURRENCY_CD = PURCH_ITEM_WRK.CURRENCY_CD;
&HDR_CURRENCY_CD = RECV_HDR_WK.CURRENCY_CD;
If &ITM_CURRENCY_CD = RECV_HDR_WK.CURRENCY_CD Then
CURRENCY_CD = &ITM_CURRENCY_CD;
PRICE_PO = &LAST_PO_PRICE_PAID;
Else
get_cur_xchng_rt(RECV_HDR_WK.CUR_RT_TYPE, &ITM_CURRENCY_CD, RECV_HDR_WK.CU
RRENCY_CD, RECV_HDR.RECEIPT_DT, &RATE_MULT, &RATE_DIV, &RATE_DATE);
CURRENCY_CD = RECV_HDR_WK.CURRENCY_CD;
If &RATE_DIV > 0 Then
PRICE_PO = RoundCurrency(&LAST_PO_PRICE_PAID * &RATE_MULT / &RATE_DIV,
CURRENCY_CD, &RATE_DATE);
Else
PRICE_PO = RoundCurrency(&LAST_PO_PRICE_PAID, CURRENCY_CD, &RATE_DATE);
End-If;
End-If;
/* Calculate PRICE_PO_BSE */
If CURRENCY_CD = CURRENCY_CD_BASE Then
PRICE_PO_BSE = PRICE_PO;
Else
get_cur_xchng_rt(RECV_HDR_WK.CUR_RT_TYPE, CURRENCY_CD, CURRENCY_CD_BASE, R
ECV_HDR.RECEIPT_DT, &RATE_MULT, &RATE_DIV, &RATE_DATE);
If &RATE_DIV > 0 Then
PRICE_PO_BSE = RoundCurrency(PRICE_PO * &RATE_MULT / &RATE_DIV, CURRENC
Y_CD_BASE, &RATE_DATE);
Else
PRICE_PO_BSE = RoundCurrency(PRICE_PO, CURRENCY_CD_BASE, &RATE_DATE);
End-If;
End-If;
&REJECT_DAYS = PURCH_ITEM_WRK.REJECT_DAYS;
&QTY_RECV_TOL_PCT = PURCH_ITEM_WRK.QTY_RECV_TOL_PCT;
&RJCT_OVER_TOL_FLAG = PURCH_ITEM_WRK.RJCT_OVER_TOL_FLAG;
&RECV_PARTIAL_FLG = PURCH_ITEM_WRK.RECV_PARTIAL_FLG;
&MODEL = PURCH_ITEM_WRK.MODEL;
UpdateValue(RECV_LN_WK.ITEM_LIMITS_FLG, &LINE_ROW, "Y");
UpdateValue(RECV_LN_WK.REJECT_DAYS, &LINE_ROW, &REJECT_DAYS);
UpdateValue(RECV_LN_WK.RJCT_OVER_TOL_FLAG, &LINE_ROW, &RJCT_OVER_TOL_FLAG);
UpdateValue(RECV_LN_WK.RECV_PARTIAL_FLG, &LINE_ROW, &RECV_PARTIAL_FLG);
UpdateValue(RECV_LN_WK.MODEL, &LINE_ROW, &MODEL);
INSPECT_CD = PURCH_ITEM_WRK.INSPECT_CD;
IST_DISTRIB_STATUS = "N";
MasterItemFlds(ITM_SETID, INV_ITEM_ID, UNIT_MEASURE_STD, LOT_CONTROL, SERIAL_
CONTROL, MFG_ID, MFG_ITM_ID, CATEGORY_ID, &CONSIGNED_FLAG);
DevTrkItem(ITM_SETID, INV_ITEM_ID, &DEVICE_TRK);
UpdateValue(DEVICE_TRACKING, &LINE_ROW, &DEVICE_TRK);
GetItmVenLocDfls(ITM_SETID, INV_ITEM_ID, RECV_HDR.VENDOR_SETID, RECV_HDR.VEND
OR_ID, RECV_HDR.VNDR_LOC, ITM_ID_VNDR, &VNDR_CATALOG_ID, COUNTRY_IST_ORIGIN, &IS
T_REGION_ORIGIN, &VNDR_UOM, CONVERSION_RATE);
RECEIPT_UM = &VNDR_UOM;
RECEIVE_UOM = &VNDR_UOM;
/* Incident 4478500
begin 2 of 2 */
&CONVERSION_RATE = CONVERSION_RATE;
If None(&CONVERSION_RATE) Then
GetItmConvRate(ITM_SETID, INV_ITEM_ID, RECEIPT_UM, &CONVERSION_RATE);
Get_Conv_Rate(RECEIPT_UM, UNIT_MEASURE_STD, &CONVERSION_RATE);
&CONVERSION_RATE = 1.0
End-If;
End-If;
CONVERSION_RATE = &CONVERSION_RATE;
End-If;
/* Incident 4478500
end 2 of 2 */
CONVERT_STK_TO_STD = 1.0;
CONVERT_TO_PO = 1.0;
DflStockUOM(ITM_SETID, INV_ITEM_ID, &DFL_STK_UOM, &CNV_RATE);
If None(&DFL_STK_UOM) Then
&DFL_STK_UOM = UNIT_MEASURE_STD;
&CNV_RATE = 1.0;
Else
If None(&CNV_RATE) Then
&CNV_RATE = 1.0;
End-If;
End-If;
&CNV_TO_STD = CONVERSION_RATE;
&CNV_TO_STK = Round((&CNV_TO_STD * (1 / &CNV_RATE)), 8);
CONVERT_TO_STK = &CNV_TO_STK;
CONVERT_STK_TO_STD = &CNV_RATE;
RECV_STOCK_UOM = &DFL_STK_UOM;
UpdDistFlds(&LINE_ROW, &CONSIGNED_FLAG);
End-Function;
/* Mainline */
/* fabiano Cunha - 06/02/2006 - verificar se o itm esta cadastrado ou no na un
idade de estoque */
SQLExec("select 'x' from ps_bu_items_inv where business_unit = :1 and inv_ite
m_id = :2", BUSINESS_UNIT_IN, INV_ITEM_ID, &result);
If None(&result) Then
Error "item no esta cadastrado na unidade -" | BUSINESS_UNIT_IN;
End-If;
&PRIOR_ITM = PriorValue(INV_ITEM_ID);
If INV_ITEM_ID <> &PRIOR_ITM Then
GetItemData(&LINE_ROW);
TtlLnQtyAssetInv(&LINE_ROW);
RecvDescWkUpd(&LINE_ROW);
Gray_Line_PB();
End-If;
/* PO8.0SP1 Begin */
AmtOnlyCheck(&LINE_ROW);
/* PO8.0SP1 End */
End-If;
[RECV_LN_SHIP.INV_ITEM_ID.FieldEdit]
/***************************************************************************
*
* Alteracao para que aceite recebimento POTER independente do Item
*
***************************************************************************/
ONF, &MMC_ENTRAPOR_TRIANGULACAO; /* chc */
If RECV_HDR.PO_RECEIPT_FLG = "Y" Then
If &MMC_ENTRAPOR_TRIANGULACAO <> True Then /* mmcb.at1931.n */
Error MsgGet(10300, 138, "Missing Message.");
End-If; /* mmcb.at1931.n */
End-If;
[RECV_LN_SHIP.OPRID.FieldDefault]
/* RECV_LN_SHIP.OPRID.FIELDDEFAULT */
OPRID = %OperatorId;
[RECV_LN_SHIP.OP_SEQUENCE.SaveEdit]
/*
APRD R-CMORSE-DT4AF
(Begin)
/* RECV_LN_SHIP.OP_SEQUENCE.SaveEdit
*/
*/
Declare Function GetRecvQty4SubContract PeopleCode FUNCLIB_RECV.CONVERSION_RATE

FieldFormula;
Function EditPriorOpSeq(&PRIOR_OPSEQ, &CUR_RQTY, &CUR_AQTY)
GetRecvQty4SubContract(BUSINESS_UNIT_IN, PRODUCTION_ID, &PRIOR_OPSEQ, BUSINES
S_UNIT, RECEIVER_ID, RECV_LN_NBR, RECV_SHIP_SEQ_NBR, &PRIOR_RQTY, &PRIOR_AQTY);
If &CUR_RQTY > &PRIOR_AQTY Then
&PBU = BUSINESS_UNIT_PO;
&POID = PO_ID;
&PLN = LINE_NBR;
&PSCH = SCHED_NBR;
SetCursorPos(Panel.RECV_WPO, Scroll.RECV_LN_SHIP, CurrentRowNumber(), QTY_
SH_RECVD);
Error MsgGet(10300, 213, "Receipt quantity for PO %1 / %2, line %3, schedu
le %4 cannot be greater than accept quantity of prior Op Seq", &PBU, &POID, &PLN
, &PSCH);
End-If;
End-Function;
Function EditNextOpSeq(&NEXT_OPSEQ, &CUR_RQTY, &CUR_AQTY)
GetRecvQty4SubContract(BUSINESS_UNIT_IN, PRODUCTION_ID, &NEXT_OPSEQ, BUSINESS
_UNIT, RECEIVER_ID, RECV_LN_NBR, RECV_SHIP_SEQ_NBR, &NEXT_RQTY, &NEXT_AQTY);
If &CUR_AQTY < &NEXT_RQTY Then
&PBU = BUSINESS_UNIT_PO;
&POID = PO_ID;
&PLN = LINE_NBR;
&PSCH = SCHED_NBR;
SetCursorPos(Panel.RECV_WPO, Scroll.RECV_LN_SHIP, CurrentRowNumber(), QTY_
SH_RECVD);
Error MsgGet(10300, 214, "Accept quantity for PO %1 / %2 Line %3 / %4 cann
ot be less than receipt quantity of next Op Seq", &PBU, &POID, &PLN, &PSCH);
End-If;
End-Function;
/*
Mainline
*/
If All(PRODUCTION_ID) And
All(OP_SEQUENCE) Then
ScrollFlush(Record.RECV_PO_SF_VW);
RowScrollSelect(1, Record.RECV_PO_SF_VW, Record.RECV_PO_SF_VW, "where BUSINES
S_UNIT_IN = :1 and PRODUCTION_ID = :2 ORDER BY OP_SEQUENCE", BUSINESS_UNIT_IN, P
RODUCTION_ID, True);
&SF_MAX = ActiveRowCount(Record.RECV_PO_SF_VW);
If &SF_MAX > 1 Then
GetRecvQty4SubContract(BUSINESS_UNIT_IN, PRODUCTION_ID, OP_SEQUENCE, BUSIN
ESS_UNIT, RECEIVER_ID, RECV_LN_NBR, RECV_SHIP_SEQ_NBR, &CUR_RQTY, &CUR_AQTY);
End-If;
For &I = 1 To &SF_MAX;
&SF_OPSEQ = FetchValue(RECV_PO_SF_VW.OP_SEQUENCE, &I);
If &SF_OPSEQ = OP_SEQUENCE And
&I > 1 Then
&PRIOR_OPSEQ = FetchValue(RECV_PO_SF_VW.OP_SEQUENCE, &I - 1);
EditPriorOpSeq(&PRIOR_OPSEQ, &CUR_RQTY, &CUR_AQTY);
End-If;
If &SF_OPSEQ > OP_SEQUENCE Then
EditNextOpSeq(&SF_OPSEQ, &CUR_RQTY, &CUR_AQTY);
Break;
End-If;
End-For;
End-If;
/*
APRD R-CMORSE-DT4AF
(End)
*/
[RECV_LN_SHIP.PO_ID.FieldFormula]
/*****************************************************************************
* Vincius Alves Mello - MMC - mmcb.hd77195 - 04/11/2009
* Fazer com que o sistema traga o nmero da ordem de compra e a data de
* vencimento do recebimento.
*****************************************************************************/
/****************************** mmcb.hd77195.sn *****************************/
If %Component = Component.RECV_PO And
%Page = Page.RECV_WPO Then
If All(PO_ID) Then
MMC_TEMP.PO_ID = PO_ID;
SQLExec("SELECT TO_CHAR(C.DUE_DT,'DD/MM/YYYY') FROM SYSADM.PS_PO_HDR A, SY
SADM.PS_PO_LINE B, SYSADM.PS_PO_LINE_SHIP C WHERE A.BUSINESS_UNIT = B.BUSINESS_U
NIT AND A.PO_ID = B.PO_ID AND B.BUSINESS_UNIT = C.BUSINESS_UNIT AND B.PO_ID = C.
PO_ID AND B.LINE_NBR = C.LINE_NBR AND A.PO_STATUS <> 'X' AND B.CANCEL_STATUS <>
'X' AND C.CANCEL_STATUS <> 'X' AND A.BUSINESS_UNIT = :1 AND A.PO_ID = :2 AND B.L
INE_NBR = :3 AND C.SCHED_NBR = :4", BUSINESS_UNIT_PO, PO_ID, LINE_NBR, SCHED_NBR
, &dataVencimento);
If All(&dataVencimento) Then
MMC_TEMP.DUE_DT = DateValue(&dataVencimento);
End-If;
End-If;
End-If;
/****************************** mmcb.hd77195.en *****************************/
[RECV_LN_SHIP.PO_ID.SaveEdit]
/**************************************************************************
* Incluir trava para conta de investimento, validando PAA
**************************************************************************/
/**************************************************************************
* Bloquear a entrada de OCs que no foram aprovadas pelo Ativo
*
**************************************************************************/
/**************************************************************************
* Vinicius Mello - MMC - mmcb.hd91926 - 21/05/2010 (Enc. Bleno Sampaio) *
* Acertar a customizao do hd83985 do Vincius para desconsiderar quando *
* for cancelar o recebimento.
**************************************************************************/
/*************************************************************************
* Mauri R. Back - MMC - 13/07/2012 - mmcb.hd146171
*
* Retirar Validao de Aprovao de MP382.
*
*************************************************************************/
/*************************************************************************
*
* Erro na busca dos dados de Oramento.
*
*************************************************************************/
/*************************************************************************
* Mairany Cristina - MMC - 27/08/2013 - mmcb.sds4523
*
* Alterao da Mensagem de Erro Recebimento Fisico.
*
*************************************************************************/
*
*
*
/***************************** mmcb.hd86592.sn ****************************/

If RECV_HDR.RECV_STATUS <> "X" Then /**mmcb.hd91926.ln**/
SQLExec("SELECT DISTINCT 'Y' FROM SYSADM.PS_MASTER_ITEM_TBL A, SYSADM.PS_I
TM_CAT_TBL B, SYSADM.PS_MMC_ACCOUNT_PAA C WHERE A.SETID = :1 AND A.INV_ITEM_ID =
:2 AND A.SETID = B.SETID AND A.CATEGORY_ID = B.CATEGORY_ID AND B.SETID = B.SETI
D AND B.ACCOUNT = C.ACCOUNT", &SETID, INV_ITEM_ID, &CONTA_INVEST);
If All(&CONTA_INVEST) Then
If All(BUSINESS_UNIT_PO, PO_ID) Then
SQLExec("SELECT D.DEPTID, D.PROJECT_ID, D.CAP_NUM, D.CAP_SEQUENCE FR
OM SYSADM.PS_PO_HDR A , SYSADM.PS_PO_LINE B , SYSADM.PS_PO_LINE_SHIP C , SYSADM.
PS_PO_LINE_DISTRIB D WHERE A.BUSINESS_UNIT = :1 AND A.PO_ID = :2 AND B.LINE_NBR
= :3 AND A.PO_STATUS = 'D' AND A.BUSINESS_UNIT = B.BUSINESS_UNIT AND A.PO_ID = B
.PO_ID AND B.CANCEL_STATUS <> 'X' AND B.BUSINESS_UNIT = C.BUSINESS_UNIT AND B.PO
_ID = C.PO_ID AND B.LINE_NBR = C.LINE_NBR AND C.CANCEL_STATUS <> 'X' AND C.BUSIN
ESS_UNIT = D.BUSINESS_UNIT AND C.PO_ID = D.PO_ID AND C.LINE_NBR = D.LINE_NBR AND
C.SCHED_NBR = D.SCHED_NBR AND D.DISTRIB_LN_STATUS <> 'X'", BUSINESS_UNIT_PO, PO
_ID, LINE_NBR, &DEPTID, &PROJECT_ID, &CAP_NUM, &CAP_SEQUENCE);
If All(&DEPTID, &PROJECT_ID, &CAP_NUM, &CAP_SEQUENCE) Then
/***************************** mmcb.hd164098.sn *****************
************/
SQLExec("SELECT BUSINESS_UNIT_GL FROM SYSADM.PS_BUS_UNIT_TBL_PM W
HERE BUSINESS_UNIT = :1", BUSINESS_UNIT_PO, &BUSINESS_UNIT_GL);
/***************************** mmcb.hd164098.en *****************
************/
/***************************** mmcb.hd164098.so *****************
************/
/* SQLExec("SELECT 'Y' FROM SYSADM.PS_CAP_DET A WHERE A.BUSINESS_
UNIT = :1 AND A.DEPTID = :2 AND A.PROJECT_ID = :3 AND A.CAP_NUM = :4 AND A.CAP_S
EQUENCE = :5", &SETID, &DEPTID, &PROJECT_ID, &CAP_NUM, &CAP_SEQUENCE, &ENCONTROU
_PAA); */
/***************************** mmcb.hd164098.eo *****************
************/
/***************************** mmcb.sds4523.so ******************
***********/
/***************************** mmcb.hd164098.so******************
***********/
/*SQLExec("SELECT 'Y' FROM SYSADM.PS_CAP_DET A WHERE A.BUSINESS_U
NIT = :1 AND A.DEPTID = :2 AND A.PROJECT_ID = :3 AND A.CAP_NUM = :4 AND A.CAP_SE
QUENCE = :5", &BUSINESS_UNIT_GL, &DEPTID, &PROJECT_ID, &CAP_NUM, &CAP_SEQUENCE,
&ENCONTROU_PAA);*/
/***************************** mmcb.hd164098.eo******************
***********/
/*If None(&ENCONTROU_PAA) Then

Error ("O departamento, projeto, PAA
encontrados ( OC: " | BUSINESS_UNIT_PO | " - " | PO_ID
R | " -- Departamento: " | &DEPTID | " -- Projeto: " |
| &CAP_NUM | " -- Seqncia do PAA: " | &CAP_SEQUENCE
e a seqncia do PAA no foram

| " -- Linha: " | LINE_NB
&PROJECT_ID | " -- PAA: "
| " ).");
End-If;*/
/***************************** mmcb.sds4523.eo ******************
***********/
/***************************** mmcb.sds4523.sn ******************
***********/
SQLExec("SELECT A.DEPTID, A.PROJECT_ID FROM SYSADM.PS_CAP_DET A W
HERE A.BUSINESS_UNIT = :1 AND A.CAP_NUM = :2 AND A.CAP_SEQUENCE = :3", &BUSINESS
_UNIT_GL, &CAP_NUM, &CAP_SEQUENCE, &DEPTID_CAP_DET, &PROJECT_ID_CAP_DET);
If &DEPTID <> &DEPTID_CAP_DET Then
Error ("O departamento da ordem de compra o '" | &DEPTID | "'
e o departamento do PAA o '" | &DEPTID_CAP_DET | "'. Corrija o departamento ou e
ntre em contato com a Controladoria.");
End-If;
If &PROJECT_ID <> &PROJECT_ID_CAP_DET Then
Error ("O projeto da ordem de compra o '" | &PROJECT_ID | "' e
o ID de projeto do PAA '" | &PROJECT_ID_CAP_DET | "'. Corrija o projeto ou entr
e em contato com a Controladoria.");
End-If;
/***************************** mmcb.sds4523.en ******************
***********/
Else
Error ("No foi possvel recuperar os dados do projeto e PAA da OC "
| BUSINESS_UNIT_PO | " - " | PO_ID | " linha " | LINE_NBR | ".");
End-If;
Else
Error ("A conta " | &ACCOUNT | " e uma conta de investimento, sendo
que no existe uma OC relacionada a este recebimento.");
End-If;
End-If;
End-If; /**mmcb.hd91926.ln**/
End-If;
/***************************** mmcb.hd86592.en ****************************/
/***************************** mmcb.hd83985.sn ****************************/

/***************************************** mmcb.hd146171.so ********************
******
SQLExec("SELECT MMC_FLAG FROM SYSADM.PS_MMC_LIB_OCMP382 WHERE BUSINESS_UNIT =
:1 AND PO_ID = :2", BUSINESS_UNIT_PO, PO_ID, &APROV);
If &APROV = "N" Then
Error ("A ordem de compra de ativo " | PO_ID | " ainda no teve o OK do depa
rtamento de ativo.");
End-If
End-If;
***************************************** mmcb.hd146171.eo *********************
*****/
/***************************** mmcb.hd83985.en ****************************/
[RECV_LN_SHIP.PRICE_PO.FieldChange]
Declare Function ApplyPriceChg PeopleCode FUNCLIB_RECV.CURRENCY_CD FieldFormula;
/* * Mainline * * * */
&PREV_PRICE = PriorValue(PRICE_PO);
If PRICE_PO <> &PREV_PRICE Then
ApplyPriceChg(&LINE_ROW);
End-If;
[RECV_LN_SHIP.PRICE_PO.FieldEdit]
If AMT_ONLY_FLG = "N" Then
End-If;
[RECV_LN_SHIP.QTY_LN_INV_SUOM.SaveEdit]
/*******************************************************************************
***
* Vinicius Alves Mello - MMCB - 08/10/2010 - mmcb.hd102333
*
* Bloquear o recebimento, caso a quantidade que ser armazenada esteja errada.
*
*******************************************************************************
***/
/********************************* mmcb.hd102333.sn ****************************
***/
If %Component = "RECV_PO" And
RECV_HDR.RECV_STATUS <> "X" Then
If (QTY_SH_RECVD * CONVERSION_RATE) <> QTY_LN_INV_SUOM Then
SQLExec("SELECT DISTINCT 'Y' FROM SYSADM.PS_SHIPTO_TBL WHERE SETID = :1 AN
D BUSINESS_UNIT_RECV = :2 AND BUSINESS_UNIT_IN <> ' '", &SETID, BUSINESS_UNIT, &
necessitaBuIn);
If All(&necessitaBuIn) Then
SQLExec("SELECT 'Y' AS ITEM_ESTOQUE FROM SYSADM.PS_MASTER_ITEM_TBL A WH
ERE A.SETID=:1 AND A.INV_ITEM_ID=:2 AND A.INVENTORY_ITEM = 'Y'", &SETID, INV_ITE
M_ID, &V_ITEM_ESTOQUE);
If All(&V_ITEM_ESTOQUE) Then
Error ("A quantidade que ser armazenada esta errada (Linha: " | RECV_
LN_NBR | " Item: " | INV_ITEM_ID | " QTD Rec: " | QTY_SH_RECVD | " TX: " | CONVE
RSION_RATE | " QTD Est: " | QTY_LN_INV_SUOM | ").");
End-If;
End-If;
End-If;
End-If;
/********************************* mmcb.hd102333.en ****************************
***/
[RECV_LN_SHIP.QTY_SH_ACCPT.FieldChange]
/* RECV_LN_SHIP.QTY_SH_ACCPT.FIELDCHANGE */
Declare Function ChgQtyShAccptRuom PeopleCode RECV_LN_SHIP_WK.QTY_SH_ACCPT Field
Change;
/* Update Accepted Qty and Merchandise Amount for Schedule and Sum Up to Receipt
Line
------------------------------------------ */
Function Fch_QtyShAccptRuom();
&SHIP_ROW = CurrentRowNumber();
&PRIOR_QTY = PriorValue(QTY_SH_ACCPT, &SHIP_ROW);
remark change receipt uom qty and update amt for current Receipt schedule;
ChgQtyShAccptRuom(&SHIP_ROW, &PRIOR_QTY);
End-Function;
/* MainLine ----------- */
Fch_QtyShAccptRuom();
[RECV_LN_SHIP.QTY_SH_ACCPT.FieldEdit]
/* RECV_LN_SHIP.QTY_SH_ACCPT FieldEdit */
Declare Function CheckQtyShAccptRuom PeopleCode RECV_LN_SHIP_WK.QTY_SH_ACCPT Fie
ldChange;
Function Fed_QtyShAccptRuom();
&PRIOR_QTY = PriorValue(QTY_SH_ACCPT, &SHIP_ROW);
&QTY_SH_ACCPT = FetchValue(QTY_SH_ACCPT, &SHIP_ROW);
CheckQtyShAccptRuom(&SHIP_ROW, &QTY_SH_ACCPT, &PRIOR_QTY);
End-Function;
/* Mainline */
Fed_QtyShAccptRuom();
[RECV_LN_SHIP.QTY_SH_ACCPT.RowInit]
/* RECV_LN_SHIP.QTY_SH_ACCPT RowInit */
/*BRLOC-IN-MFF-R2-07/05/1999
Do not allow the following code to run if panel group is Unhold Receipt
*/
If %PanelGroup <> PanelGroup.RECV_UNHOLD_PBL Then
/*BRLOC-IN-END*/
If RECV_SHIP_STATUS = "M" Then
&LINE_ROW = CurrentRowNumber(1);
&INV_FLG = FetchValue(RECV_LN_WK.INV_FLG, &LINE_ROW);
If &INV_FLG = "Y" And
/** Added Following 1 Line for the FIx R-JMACIA-ME2VU ***/
None(PRODUCTION_ID, OP_SEQUENCE) Then
Gray(RECV_HDR_WK.PB_CANCEL_RECPT);
Gray(RECV_HDR_WK.PB_RECV_STATUS);
Gray(RECV_LN_WK.PB_CANCEL_ITEM);
Gray(QTY_SH_ACCPT);
Gray(QTY_SH_INSPD);
Gray(QTY_SH_RECVD);
Gray(QTY_SH_REJCT);
End-If;
End-If;
/*BRLOC-IN-MFF-R2-07/05/1999*/
End-If;
/*BRLOC-IN-END*/
[RECV_LN_SHIP.QTY_SH_ACCPT.SavePreChange]
/* RECV_LN_SHIP.QTY_SH_ACCPT SavePreChg */
Declare Function SubReceiptUpd PeopleCode FUNCLIB_RECV.F_MFGID FieldFormula;
Declare Function UpdLCLnStuff PeopleCode RECV_LN_SHIP_WK.QTY_SH_ACCPT FieldChang
e;
Declare Function UpdDistLCStuff PeopleCode RECV_LN_SHIP_WK.FUNCLIB FieldChange;
/* Mainline */
If FieldChanged(QTY_SH_ACCPT, &SHIP_ROW) Then
&PROCESSED = FetchValue(PROCESS_COMPLETE, &SHIP_ROW);
If &PROCESSED = "Y" Then
UpdLCLnStuff(&SHIP_ROW);
&DIST_ROW_MAX = ActiveRowCount(Scroll.RECV_LN_SHIP, &SHIP_ROW, Scroll.RECV
_LN_DISTRIB);
For &DIST_ROW = 1 To &DIST_ROW_MAX
UpdDistLCStuff(&SHIP_ROW, &DIST_ROW);
End-For;
End-If;
&OP_SEQUENCE = FetchValue(OP_SEQUENCE, &SHIP_ROW);
&PRODUCTION_ID = FetchValue(PRODUCTION_ID, &SHIP_ROW);
&RCVSHIPSTAT = FetchValue(MOVE_STAT_MFG, &SHIP_ROW);
If Not None(&OP_SEQUENCE, &PRODUCTION_ID) And
&RCVSHIPSTAT = "M" Or
&RCVSHIPSTAT = "X" Then
&PRIOR_QTY_SUOM = FetchValue(RECV_LN_SHIP_WK.QTY_SH_ACCPT_SUOM, &SHIP_ROW)
;
&ACCPT_QTY_SUOM = FetchValue(QTY_SH_ACCPT_SUOM, &SHIP_ROW);
&PRIOR_REJ_QTY_SUOM = FetchValue(RECV_LN_SHIP_WK.QTY_SH_REJCT_SUOM, &SHIP_
ROW);
&REJCT_QTY_SUOM = FetchValue(QTY_SH_REJCT_SUOM, &SHIP_ROW);
&ACTION = FetchValue(REJECT_ACTION, &SHIP_ROW);
If &PRIOR_QTY_SUOM <> &ACCPT_QTY_SUOM Or
&PRIOR_REJ_QTY_SUOM <> &REJCT_QTY_SUOM Then
&BU_IN = FetchValue(BUSINESS_UNIT_IN, &SHIP_ROW);
SubReceiptUpd(&BU_IN, &PRODUCTION_ID, &OP_SEQUENCE, &ACTION, (&ACCPT_QT

Y_SUOM - &PRIOR_QTY_SUOM), (&REJCT_QTY_SUOM - &PRIOR_REJ_QTY_SUOM));
&ACCPT_QTY = FetchValue(QTY_SH_ACCPT, &SHIP_ROW);
&REJCT_QTY = FetchValue(QTY_SH_ACCPT, &SHIP_ROW);
UpdateValue(RECV_LN_SHIP_WK.QTY_SH_ACCPT, &SHIP_ROW, &ACCPT_QTY);
UpdateValue(RECV_LN_SHIP_WK.QTY_SH_ACCPT_SUOM, &SHIP_ROW, &ACCPT_QTY_SU
OM);
UpdateValue(RECV_LN_SHIP_WK.QTY_SH_REJCT, &SHIP_ROW, &REJCT_QTY);
UpdateValue(RECV_LN_SHIP_WK.QTY_SH_REJCT_SUOM, &SHIP_ROW, &REJCT_QTY_SU
OM);
End-If;
End-If;
End-If;
[RECV_LN_SHIP.QTY_SH_ACCPT_SUOM.FieldChange]
/* RECV_LN_SHIP.QTY_SH_ACCPT_SUOM.FIELDCHANGE */
/* Update Accepted Qty and Merchandise Amount for Schedule and Sum Up to Receipt
Line
------------------------------------------ */
Function Fch_QtyShAccptSuom();
remark change std uom qty and update amt for current Receipt schedule;
&CONV = FetchValue(CONVERSION_RATE, &SHIP_ROW);
&CR = (1 / &CONV);
QTY_SH_ACCPT_VUOM = QTY_SH_ACCPT_SUOM * &CR;
MERCHANDISE_AMT = PRICE_PO * QTY_SH_ACCPT_VUOM;
End-Function;
/* MainLine ------------ */
Fch_QtyShAccptSuom();
[RECV_LN_SHIP.QTY_SH_ACCPT_VUOM.FieldChange]
/* RECV_LN_SHIP.QTY_SH_ACCPT_VUOM.FIELDCHANGE */
/* Update QTY_SH_ACCPT_SUOM and Merchandise Amount for Schedule ----------- */
Function Fch_QtyShAccptVuom();
&CR = FetchValue(CONVERSION_RATE, &SHIP_ROW);
QTY_SH_ACCPT_SUOM = QTY_SH_ACCPT_VUOM * &CR;
MERCHANDISE_AMT = PRICE_PO * QTY_SH_ACCPT_VUOM;
End-Function;
/* MainLine ------------ */
Fch_QtyShAccptVuom();
[RECV_LN_SHIP.QTY_SH_INSPD.FieldChange]
/* RECV_LN_SHIP.QTY_SH_INSPD.FIELDCHANGE */
/* Update Inspected Qty for Schedule and Sum Up to Receipt Line
------------------------------------------ */
Function Fch_QtyShInspdRuom();
remark change receipt uom qty and update amt for current Receipt schedule;
&CR_RUOM_TO_VUOM = FetchValue(CONVERT_TO_PO, &SHIP_ROW);
&CR_RUOM_TO_SUOM = FetchValue(CONVERT_TO_STK, &SHIP_ROW);
QTY_SH_INSPD_SUOM = Round(QTY_SH_INSPD * &CR_RUOM_TO_SUOM, 4);
QTY_SH_INSPD_VUOM = Round(QTY_SH_INSPD * &CR_RUOM_TO_VUOM, 4);
End-Function;
/* MainLine
----------- */
Fch_QtyShInspdRuom();
[RECV_LN_SHIP.QTY_SH_INSPD.FieldEdit]
/* * * PO 8.02 Prf (Start) */
If RECV_HDR.PO_RECEIPT_FLG = "N" And
None(INV_ITEM_ID) Then
End-If;
/* * * PO 8.02 Prf (End)
*/
&RQTY = FetchValue(QTY_SH_RECVD, &SHIP_ROW);
If QTY_SH_INSPD > &RQTY Then
Error (MsgGet(10300, 112, "Inspection quantity cannot be greater than receive
d quantity."));
End-If;
[RECV_LN_SHIP.QTY_SH_INSPD_SUOM.FieldChange]
/* RECV_LN_SHIP.QTY_SH_INSPD_SUOM.FIELDCHANGE */
----------------------------------------- */
Function Fch_QtyShInspdSuom();
&CR = (1 / &CONV);
QTY_SH_INSPD_VUOM = QTY_SH_INSPD_SUOM * &CR;
End-Function;
/* MainLine
----------- */
Fch_QtyShInspdSuom();
[RECV_LN_SHIP.QTY_SH_INSPD_VUOM.FieldChange]
/* RECV_LN_SHIP.QTY_SH_INSPD_VUOM.FIELDCHANGE */
------------------------------------------ */
Function Fch_QtyShInspdVuom();
QTY_SH_INSPD_SUOM = QTY_SH_INSPD_VUOM * &CR;
End-Function;
/* MainLine
----------- */
Fch_QtyShInspdVuom();
[RECV_LN_SHIP.QTY_SH_RECVD.FieldChange]
/* RECV_LN_SHIP.QTY_SH_RECVD.FIELDCHANGE */
/* Update Received Qty for Schedule ----------------------- */
Declare Function Fch_QtyShAccptRuom PeopleCode QTY_SH_ACCPT FieldChange;
Declare Function qty_precision_round PeopleCode FUNCLIB_FS.QTY_PRECISION FieldFo
rmula;
Function Fch_QtyShRecvdRuom();
remark change Receipt uom qty for current Receipt schedule;
/* 07-18-02 EW Incident #510059002 Begin */
/* &CR_RUOM_TO_SUOM = FetchValue(CONVERSION_RATE, &SHIP_ROW); */
&CR_VUOM_TO_SUOM = FetchValue(CONVERSION_RATE, &SHIP_ROW);
&CR_RUOM_TO_SUOM = Round((&CR_VUOM_TO_SUOM * &CR_RUOM_TO_VUOM), 4);
&SETID = FetchValue(ITM_SETID, &SHIP_ROW);
&INV_ITEM_ID = FetchValue(INV_ITEM_ID, &SHIP_ROW);
&RECEIVE_UOM = FetchValue(RECEIVE_UOM, &SHIP_ROW);
&QTY_SH_RECVD = FetchValue(QTY_SH_RECVD, &SHIP_ROW);
&CONVERT_TO_RECV = 1.0;
&QTY_PRECISION = "";
&ROUND_RULE = "";
qty_precision_round(&SETID, " ", &QTY_SH_RECVD, &INV_ITEM_ID, &RECEIVE_UOM, "
", &QTY_PRECISION, &ROUND_RULE, &CONVERT_TO_RECV);
/* PO 8.0 SP2 (Begin)
*/
If &QTY_SH_RECVD > 99999999999.9999 Then
&QTY_SH_RECVD = PriorValue(QTY_SH_RECVD, &SHIP_ROW);
End-If;
/* PO 8.0 SP2 (End)
*/
QTY_SH_RECVD = &QTY_SH_RECVD;
&PRIOR_RCV_VUOM = FetchValue(QTY_SH_RECVD_VUOM, &SHIP_ROW);
&QTY_SH_RECVD_VUOM = Round(QTY_SH_RECVD * &CR_RUOM_TO_VUOM, 4);
/* &RECEIPT_UM = FetchValue(RECEIPT_UM, &SHIP_ROW);
&ROUND_RULE = "";
qty_precision_round(&SETID, " ", &QTY_SH_RECVD_VUOM, &INV_ITEM_ID, &RECEIPT_U
M, " ", &QTY_PRECISION, &ROUND_RULE, &CR_RUOM_TO_VUOM);*/
QTY_SH_RECVD_VUOM = &QTY_SH_RECVD_VUOM;
/* &QTY_SH_RECVD_SUOM = Round(QTY_SH_RECVD_VUOM * &CR_RUOM_TO_SUOM, 4);*/
&QTY_SH_RECVD_SUOM = (QTY_SH_RECVD * &CR_RUOM_TO_SUOM);
&UNIT_MEASURE_STD = FetchValue(UNIT_MEASURE_STD, &SHIP_ROW);
&ROUND_RULE = "";
/* qty_precision_round(&SETID, " ", &QTY_SH_RECVD_VUOM, &INV_ITEM_ID, &UNIT_M
EASURE_STD, " ", &QTY_PRECISION, &ROUND_RULE, &CR_RUOM_TO_SUOM); */
qty_precision_round(&SETID, " ", &QTY_SH_RECVD_SUOM, &INV_ITEM_ID, &UNIT_MEAS
URE_STD, " ", &QTY_PRECISION, &ROUND_RULE, &CR_RUOM_TO_SUOM);
/* 07-18-02 EW Incident #510059002 End */
QTY_SH_RECVD_SUOM = &QTY_SH_RECVD_SUOM;
QTY_SH_NETRCV_VUOM = QTY_SH_NETRCV_VUOM + (QTY_SH_RECVD_VUOM - &PRIOR_RCV_VUO
M);
End-Function;
/* MainLine ------------- */
Fch_QtyShRecvdRuom();
[RECV_LN_SHIP.QTY_SH_RECVD.FieldEdit]
/*******************************************************************************
************************************
* Leandro Rodrigues da Silva Souza - MMC - 05/12/2007 - mmcb.AT1923 - Adicionado
ao painel RECV_WPO.POR
*
*Alterada a forma de validao da quantidade recebida.
********************************************************************************
***********************************/
/*******************************************************************************
***********************************
* Wagner Sorio - MMC - 14/04/2008 - mmcb.HD47226
*
* No deixar receber mais que quantidade Saldo Ordem Compra
*
********************************************************************************
***********************************/
Declare Function Fed_QtyShAccptRuom PeopleCode QTY_SH_ACCPT FieldEdit;
ldChange;
rmula;
Local Rowset &RS0, &RS1; /* mmcb.AT1923.n */
Local Record &RS2, &RS3; /* mmcb.AT1923.n */
Function AdjAcceptQty();
/* PO 8.0 SP2 (Begin)
*/
&QTY_SH_RECVD = FetchValue(QTY_SH_RECVD, &SHIP_ROW);
&ROUND_RULE = "";
qty_precision_round(&SETID, " ", &QTY_SH_RECVD, &INV_ITEM_ID, &RECEIVE_UOM, "
If &QTY_SH_RECVD > 99999999999.9999 Then
Error MsgGet(10300, 224, "Quantity value entered is to large after UOM rou
nding is applied.");
End-If;
&QTY_SH_RECVD_VUOM = Round(QTY_SH_RECVD * &CR_RUOM_TO_VUOM, 4);
&RECEIPT_UM = FetchValue(RECEIPT_UM, &SHIP_ROW);
&ROUND_RULE = "";
qty_precision_round(&SETID, " ", &QTY_SH_RECVD_VUOM, &INV_ITEM_ID, &RECEIPT_U
M, " ", &QTY_PRECISION, &ROUND_RULE, &CR_RUOM_TO_VUOM);
If &QTY_SH_RECVD_VUOM > 99999999999.9999 Then
End-If;
&CR_RUOM_TO_SUOM = FetchValue(CONVERSION_RATE, &SHIP_ROW);
&QTY_SH_RECVD_SUOM = Round(QTY_SH_RECVD_VUOM * &CR_RUOM_TO_SUOM, 4);
&ROUND_RULE = "";
qty_precision_round(&SETID, " ", &QTY_SH_RECVD_SUOM, &INV_ITEM_ID, &UNIT_MEAS
If &QTY_SH_RECVD_SUOM > 99999999999.9999 Then
End-If;
/* PO 8.0 SP2 (End)
*/
&PRIOR_QTY = PriorValue(QTY_SH_RECVD);
&ADJ_QTY = QTY_SH_RECVD - &PRIOR_QTY;

&PRIOR_ACCPT_QTY = FetchValue(QTY_SH_ACCPT, &SHIP_ROW);
&QTY_SH_ACCPT = QTY_SH_ACCPT + &ADJ_QTY;
QTY_SH_ACCPT = &QTY_SH_ACCPT;
CheckQtyShAccptRuom(&SHIP_ROW, &QTY_SH_ACCPT, &PRIOR_ACCPT_QTY);
End-Function;
/* SN - FC010305 - HD22222 - 13/12/2006 */
/***************************** mmcb.HD47226.SO *****************************/
/*
If %Page = "RECV_WPO" Then
&QTY_ACEITA = FetchValue(QTY_SH_ACCPT, &SHIP_ROW);
&QTY_DIGITADA = FetchValue(QTY_SH_RECVD, &SHIP_ROW);
&BU_PO = FetchValue(BUSINESS_UNIT_PO, &SHIP_ROW);
&PO_ID = FetchValue(PO_ID, &SHIP_ROW);
If &BU_PO <> "POTER" Then
SQLExec("SELECT B.QTY_PO FROM PS_PO_LINE A, PS_PO_LINE_SHIP B WHERE A.B
USINESS_UNIT = B.BUSINESS_UNIT AND A.PO_ID = B.PO_ID AND A.LINE_NBR = B.LINE_NBR
AND A.BUSINESS_UNIT = :1 AND A.PO_ID = :2 AND A.INV_ITEM_ID = :3", &BU_PO, &PO_
ID, &INV_ITEM_ID, &QTY_PO);
If All(&QTY_PO) Then
If &QTY_DIGITADA > &QTY_ACEITA Then
Error ("A quantidade recebida no pode ser maior que a quantidade d
o Saldo da OC.");
End-If;
End-If;
&LINE_NBR = FetchValue(LINE_NBR, &SHIP_ROW);
SQLExec("SELECT B.QTY_PO FROM SYSADM.PS_PO_LINE A, SYSADM.PS_PO_LINE_SH
IP B WHERE A.BUSINESS_UNIT = B.BUSINESS_UNIT AND A.PO_ID = B.PO_ID AND A.LINE_NB
R = B.LINE_NBR AND A.BUSINESS_UNIT = :1 AND A.PO_ID = :2 AND A.LINE_NBR = :3 AND
A.INV_ITEM_ID = :4", &BU_PO, &PO_ID, &LINE_NBR, &INV_ITEM_ID, &QTY_PO);
If &QTY_DIGITADA > &QTY_PO Then
Error ("A quantidade recebida no pode ser maior que a quantidade d
o Saldo da OC.");
End-If;
End-If;
End-If;
End-If;
End-If;
*/
/***************************** mmcb.HD47226.EO *****************************/
/***************************** mmcb.HD47226.sn *****************************/
If %Component = Component.RECV_PO Then
&V_LINHA = CurrentRowNumber();
&V_BUSINESS_UNIT = FetchValue(BUSINESS_UNIT_PO, &V_LINHA);
&V_PO_ID = FetchValue(PO_ID, &V_LINHA);
&V_LINE_NBR = FetchValue(LINE_NBR, &V_LINHA);
&V_SCHED_NBR = FetchValue(SCHED_NBR, &V_LINHA);
&V_QTY_SH_RECVD = FetchValue(QTY_SH_RECVD, &V_LINHA);
/*
SQLExec("select qty_po from sysadm.ps_mmc_te_oc_vw where business_unit=:1 and
po_id =:2 and line_nbr=:3 and sched_nbr =:4", &V_BUSINESS_UNIT, &V_PO_ID, &V_LI
NE_NBR, &V_SCHED_NBR, &SALDO_OC);
*/
If All(&V_BUSINESS_UNIT) Then
&SQL_SALDO = "
SELECT ";
&SQL_SALDO = &SQL_SALDO | "
BUSINESS_UNIT , ";
PO_ID , ";
LINE_NBR, ";
SCHED_NBR , ";
QTY_PO ";
&SQL_SALDO = &SQL_SALDO | " FROM ( SELECT A.BUSINESS_UNIT , ";
A.PO_ID , ";
B.LINE_NBR ,";
C.SCHED_NBR , ";
A.VENDOR_ID , ";
A.VNDR_LOC , ";
A.ADDRESS_SEQ_NUM , ";
B.ITM_SETID , ";
B.INV_ITEM_ID , ";
B.CANCEL_STATUS , ";
C.DUE_DT , ";
C.PRICE_PO , ";
C.QTY_PO - ( SELECT CASE WHEN S
UM(QTY_SH_RECVD) IS NOT NULL THEN ";
SUM(QTY_SH_RECVD) ";
ELSE ";
0 ";
END VAL ";
FR
OM SYSADM.PS_RECV_LN_SHIP RS , ";
SYSADM.PS_RECV_HDR RH ";
WHE
RE RS.BUSINESS_UNIT = C.BUSINESS_UNIT ";
A
ND RS.PO_ID = C.PO_ID ";
A
ND RS.LINE_NBR = C.LINE_NBR ";
A
ND RS.SCHED_NBR = C.SCHED_NBR ";
A
ND RH.BUSINESS_UNIT = RS.BUSINESS_UNIT ";
A
ND RH.RECEIVER_ID = RS.RECEIVER_ID ";
A
ND RS.RECV_SHIP_STATUS NOT IN ('X') ";

A
ND RH.RECV_STATUS NOT IN ('X','H') ";
A
ND (RH.BUSINESS_UNIT, RH.RECEIVER_ID) NOT IN ";
( SELECT BUSINESS_UNIT, ";
RECEIVER_ID ";
FROM SYSADM.PS_RECV_HDR ";
WHERE BUSINESS_UNIT = '" | RE
CV_HDR.BUSINESS_UNIT | "'";
AND RECEIVER_
ID='" | RECV_HDR.RECEIVER_ID | "' ) ) ";
QTY_PO ";
FROM SYSADM.PS_PO_HDR
A , ";
SYSADM.PS_PO_LINE
B , ";
SYSADM.PS_PO_LINE
_SHIP C ";
WHERE A.BUSINESS_UNIT =
B.BUSINESS_UNIT ";
AND A.PO_ID = B.PO_ID
";
AND B.BUSINESS_UNIT =
C.BUSINESS_UNIT ";
AND B.PO_ID = C.PO_ID
";
AND B.LINE_NBR = C.LI
NE_NBR ";
AND C.CANCEL_STATUS <
> 'X' ";
AND A.PO_STATUS IN ('A',
'D') ";
/* &SQL_SALDO = &SQL_SALDO | "
AND A.RECV_STATUS IN
('N','P') "; */
) PO_SALDO ";
&SQL_SALDO = &SQL_SALDO | " WHERE PO_SALDO.BUSINESS_UNIT='" | &V_BUSINESS_
UNIT | "'";
AND PO_SALDO.PO_ID = '" | &V_PO_ID | "'"
;
AND PO_SALDO.LINE_NBR=" | &V_LINE_NBR;
AND PO_SALDO.SCHED_NBR = " | &V_SCHED_N
BR;
SQLExec(&SQL_SALDO, &RETURN_BUSINESS_UNIT, &RETURN_PO_ID, &RETURN_LINE_NBR
, &RETURN_SCHED_NBR, &SALDO_OC);
/*
If %UserId = "WS802342" Then
WinMessage(&SQL_SALDO);
SQLExec(&SQL_SALDO, &RETURN_BUSINESS_UNIT, &RETURN_PO_ID, &RETURN_LINE_NBR
, &RETURN_SCHED_NBR, &SALDO_OC);
WinMessage(&SALDO_OC);
End-If;
*/
If &V_QTY_SH_RECVD > &SALDO_OC Then
Error ("A quantidade recebida no pode ser maior que Unidade Negocio: " |
&V_BUSINESS_UNIT | " OC: " | &V_PO_ID | " Linha: " | &V_LINE_NBR | " Programao: "
| &V_SCHED_NBR | " Quantidade: " | &SALDO_OC);
End-If;
End-If;
End-If;
/***************************** mmcb.HD47226.en *****************************/
/* EN - FC010305 - HD22222 - 13/12/2006 */

/* Mainline */
/* * * PO 8.02 Prf (Start) */
End-If;
/* * * PO 8.02 Prf (End)
*/
AdjAcceptQty();
/***************************** MMCB.AT1923 - S.N *******************************
/
/*If %Page = "RECV_WPO" Then
&RS0
&RS1
&RS2
&RS3
=
=
=
=
GetLevel0();
&RS0(1).GetRowset(Scroll.RECV_LN_SHIP);
&RS1(1).GetRecord(Record.MMC_PO_DET_WRK);
&RS0(1).GetRecord(Record.MMC_PO_DET_WRK);
&TOTAL = 0;
&QTY_REC = 0;
&VALOR_UNT = 0;
&VALOR_TOTAL = 0;
&QTY_REC = &RS1(&i).RECV_LN_SHIP.QTY_SH_RECVD.Value;
&VALOR_UNT = &RS1(&i).GetRecord(Record.MMC_PO_DET_WRK).PRICE_PO.Value;
&VALOR_TOTAL = &VALOR_UNT * &QTY_REC;
&TOTAL = &TOTAL + &VALOR_TOTAL
End-For;
&RS3.PRICE_BASE.Value = &TOTAL;
End-If;*/
/***************************** MMCB.AT1923 - E.N *******************************
/
[RECV_LN_SHIP.QTY_SH_RECVD.PrePopup]
Evaluate %Panel
When = Panel.RECV_WPO
/* Disable menu entry if transaction already processed by interface(s) */
If RECV_LN_MATCH_OPT = "F" Or
MOVE_STAT_INV = "M" Or
MOVE_STAT_AM = "M" Or
MOVE_STAT_MFG = "M" Then
DisableMenuItem(BarName.RECV_QTY_CLONE_POPUP, ItemName.RECV_QTY_CLONE);
End-If;
End-Evaluate;
[RECV_LN_SHIP.QTY_SH_RECVD.SaveEdit]
/* Valmir Tavares - HQS - Validar quantidade recebida - Inicio */
/*
&QTY_RECEBIDA = FetchValue(QTY_SH_RECVD, &SHIP_ROW);
&BU_PO = FetchValue(BUSINESS_UNIT_PO, &SHIP_ROW);
&PO_ID = FetchValue(PO_ID, &SHIP_ROW);
SQLExec("SELECT B.QTY_PO FROM PS_PO_LINE A, PS_PO_LINE_SHIP B WHERE A.BUSINES
S_UNIT = B.BUSINESS_UNIT AND A.PO_ID = B.PO_ID AND A.LINE_NBR = B.LINE_NBR AND A
.BUSINESS_UNIT = :1 AND A.PO_ID = :2 AND A.INV_ITEM_ID = :3", &BU_PO, &PO_ID, &I
NV_ITEM_ID, &QTY_PO);
&QTY_RECV = &QTY_RECEBIDA - PO_PICK_ORD_WS.QTY_PRIOR_RECEIPT;
If &QTU_RECV > &QTY_PO Then
Error ("A quantidade recebida no pode ser maior que a quantidade da OC."
);
End-If;
End-If;
End-If;
*/
/* Valmir Tavares - HQS - Validar quantidade recebida - Fim */
[RECV_LN_SHIP.QTY_SH_RECVD_SUOM.FieldChange]
/* RECV_LN_SHIP.QTY_SH_RECVD_SUOM.FIELDCHANGE */
/* Update Received Qty for Schedule ------------------------- */
Declare Function Fch_QtyShAccptSuom PeopleCode QTY_SH_ACCPT_SUOM FieldChange;
Function Fch_QtyShRecvdSuom();
remark change std uom qty for current Receipt schedule;
&CR = (1 / &CONV);
QTY_SH_RECVD_VUOM = QTY_SH_RECVD_SUOM * &CR;
remark default accepted qty if no inspection required;
&INSPECT_CD = FetchValue(INSPECT_CD, &SHIP_ROW);
If &INSPECT_CD = "N" Then
If None(QTY_SH_ACCPT_SUOM) Then
QTY_SH_ACCPT_SUOM = QTY_SH_RECVD_SUOM;
Fch_QtyShAccptSuom();
End-If;
End-If;
End-Function;
/* MainLine
------------- */
Fch_QtyShRecvdSuom();
[RECV_LN_SHIP.QTY_SH_RECVD_VUOM.FieldChange]
/* RECV_LN_SHIP.QTY_SH_RECVD_VUOM.FIELDCHANGE */
/* Update Received Qty for Schedule ----------------------------------- */
Declare Function Fch_QtyShAccptVuom PeopleCode QTY_SH_ACCPT_VUOM FieldChange;
Function Fch_QtyShRecvdVuom();
QTY_SH_RECVD_SUOM = QTY_SH_RECVD_VUOM * &CR;
remark default accepted qty if no inspection required;
&INSPECT_CD = FetchValue(INSPECT_CD, &SHIP_ROW);
If &INSPECT_CD = "N" Then
If None(QTY_SH_ACCPT_VUOM) Then
QTY_SH_ACCPT_VUOM = QTY_SH_RECVD_VUOM;
Fch_QtyShAccptVuom();
End-If;
End-If;
End-Function;
/* MainLine
------------- */
Fch_QtyShRecvdVuom();
[RECV_LN_SHIP.QTY_SH_REJCT.FieldChange]
/* RECV_LN_SHIP.QTY_SH_REJCT.FIELDCHANGE */
/* Update Rejected Qty for Schedule and Sum Up to Receipt Line
------------------------------------------ */
Declare Function Fch_QtyShAccptRuom PeopleCode QTY_SH_ACCPT FieldChange;
rmula;
Function Fch_QtyShRejctRuom();
remark change receipt uom qty for current Receipt schedule;
&CR_RUOM_TO_SUOM = FetchValue(CONVERT_TO_STK, &SHIP_ROW);
&CONVERT_STK_TO_STD = FetchValue(CONVERT_STK_TO_STD, &SHIP_ROW);
&PRIOR_REJ_VUOM = FetchValue(QTY_SH_REJCT_VUOM, &SHIP_ROW);
&QTY_SH_REJCT = FetchValue(QTY_SH_REJCT, &SHIP_ROW);
&ROUND_RULE = "";
qty_precision_round(&SETID, " ", &QTY_SH_REJCT, &INV_ITEM_ID, &RECEIVE_UOM, "
QTY_SH_REJCT = &QTY_SH_REJCT;
/* &QTY_SH_REJCT_SUOM = Round(QTY_SH_REJCT * &CR_RUOM_TO_SUOM, 4); */
&QTY_SH_REJCT_SUOM = Round(QTY_SH_REJCT * &CR_RUOM_TO_SUOM * &CONVERT_STK_TO_
STD, 4);
&ROUND_RULE = "";
qty_precision_round(&SETID, " ", &QTY_SH_REJCT_SUOM, &INV_ITEM_ID, &UNIT_MEAS

QTY_SH_REJCT_SUOM = &QTY_SH_REJCT_SUOM;
&QTY_SH_REJCT_VUOM = Round(QTY_SH_REJCT * &CR_RUOM_TO_VUOM, 4);
/* &RECEIPT_UM = FetchValue(RECEIPT_UM, &SHIP_ROW);
&ROUND_RULE = "";
qty_precision_round(&SETID, " ", &QTY_SH_REJCT_VUOM, &INV_ITEM_ID, &RECEIPT_U
M, " ", &QTY_PRECISION, &ROUND_RULE, &CR_RUOM_TO_VUOM); */
/* 07-18-02 EW Incident #510059002 End */
QTY_SH_REJCT_VUOM = &QTY_SH_REJCT_VUOM;
QTY_SH_NETRCV_VUOM = QTY_SH_NETRCV_VUOM - (QTY_SH_REJCT_VUOM - &PRIOR_REJ_VUO
M);
&OP_SEQUENCE = FetchValue(OP_SEQUENCE, &SHIP_ROW);
&PRODUCTION_ID = FetchValue(PRODUCTION_ID, &SHIP_ROW);
&RCVSHIPSTAT = FetchValue(MOVE_STAT_MFG, &SHIP_ROW);
&RCVSHIPSTAT = "M" Then
&PRIOR_QTY_SUOM = FetchValue(RECV_LN_SHIP_WK.QTY_SH_REJCT_SUOM, &SHIP_ROW)
;
If None(&PRIOR_QTY_SUOM) Then
&PRIOR_QTY = PriorValue(RECV_LN_SHIP_WK.QTY_SH_REJCT, &SHIP_ROW);
&PRIOR_QTY_SUOM = Round(&PRIOR_QTY * &CR_RUOM_TO_SUOM, 4);
UpdateValue(RECV_LN_SHIP_WK.QTY_SH_REJCT_SUOM, &SHIP_ROW, &PRIOR_QTY_SU
OM);
End-If;
End-If;
End-Function;
/* MainLine
------------- */
If None(QTY_SH_REJCT) Then
REJECT_ACTION = "";
REJECT_REASON = "";
RMA_ID = "";
Gray(REJECT_ACTION);
Gray(REJECT_REASON);
Gray(RMA_ID);
Gray(RMA_LINE_NBR);
Else
UnGray(REJECT_ACTION);
UnGray(REJECT_REASON);
UnGray(RMA_ID);
UnGray(RMA_LINE_NBR);
End-If;
Fch_QtyShRejctRuom();
[RECV_LN_SHIP.QTY_SH_REJCT.FieldEdit]
/* RECV_LN_SHIP.QTY_SH_REJCT FieldEdit */
Declare Function SubReceiptEdit PeopleCode FUNCLIB_RECV.F_MFGID FieldFormula;
Declare Function GetSubRecQty PeopleCode FUNCLIB_PM_SQL.CONVERSION_RATE FieldFor
mula;
ldChange;
Function AdjAcceptQty();
&PRIOR_QTY = PriorValue(QTY_SH_REJCT);
&ADJ_QTY = QTY_SH_REJCT - &PRIOR_QTY;

&QTY_SH_ACCPT = QTY_SH_ACCPT - &ADJ_QTY;
&PRIOR_ACCPT_QTY = FetchValue(QTY_SH_ACCPT, &SHIP_ROW);
QTY_SH_ACCPT = &QTY_SH_ACCPT;
CheckQtyShAccptRuom(&SHIP_ROW, &QTY_SH_ACCPT, &PRIOR_ACCPT_QTY);
End-Function;
/* Mainline */
/* * * PO 8.02 Prf (Start) */
End-If;
/* * * PO 8.02 Prf (End)
*/
If QTY_SH_REJCT > QTY_SH_RECVD Then
Error (MsgGet(10300, 161, "Quantity Rejected cannot be greater than quantity
Received."));
Else /* BRLOC-PO-SAM - 22-Nov-2002 - ICE Resolution ID 112747 - Begin */
If QTY_SH_REJCT > 0 And
QTY_SH_REJCT <> QTY_SH_RECVD Then
Error (MsgGet(30000, 265, "It is not allowed to reject a quantity lower th
an the Received Quantity when receiving the item!"));
End-If; /* BRLOC-PO-SAM - 22-Nov-2002 - ICE Resolution ID 112747 - End */
End-If;
If &PRIOR_QTY <> QTY_SH_REJCT Then
&BU_IN = BUSINESS_UNIT_IN;
&OP_SEQUENCE = OP_SEQUENCE;
&PRODUCTION_ID = PRODUCTION_ID;
&RCVSHIPSTAT = MOVE_STAT_MFG;
&RCVSHIPSTAT = "M" Then
&CR_RUOM_TO_SUOM = RECV_LN_SHIP_WK.CONVERT_TO_STK;
If &CR_RUOM_TO_SUOM = 0 Then
&CR_RUOM_TO_SUOM = 1;
End-If;
&ADJ_QTY = &PRIOR_QTY - QTY_SH_REJCT;
&ADJ_QTY_SUOM = Round(&ADJ_QTY * &CR_RUOM_TO_SUOM, 4);
&ACTION = REJECT_ACTION;
If None(&ACTION) Then
&ACTION = "C";
End-If;
SubReceiptEdit(&BU_IN, &PRODUCTION_ID, &OP_SEQUENCE, &ACTION, &ADJ_QTY_SUO
M, &EDIT_STAT, &QTY_SF_ACCPT, &QTY_UPD_ACCPT, &QTY_UPD_REJCT, &QTY_SF_REJCT);
If &EDIT_STAT = "2" Then
&MAX_QTY_SUOM = &QTY_SF_REJCT - &QTY_UPD_REJCT;
&MAX_QTY = Round(&MAX_QTY_SUOM / &CR_RUOM_TO_SUOM, 4);
Error (MsgGet(10300, 114, "Reject quantity cannot be decreased by %1, M
ax allowed by sub-contract is %2", &ADJ_QTY, &MAX_QTY));
Else
If &EDIT_STAT = "1" Then
&MAX_QTY_SUOM = &QTY_SF_ACCPT - &QTY_UPD_ACCPT;
&MAX_QTY = Round(&MAX_QTY_SUOM / &CR_RUOM_TO_SUOM, 4);
Error (MsgGet(10300, 113, "Accept quantity cannot be decreased by %1
, Max allowed by sub-contract is %2", &ADJ_QTY, &MAX_QTY));
End-If;
End-If;
&PRIOR_QTY = RECV_LN_SHIP_WK.QTY_SH_REJCT;
If None(&PRIOR_QTY) Then
RECV_LN_SHIP_WK.QTY_SH_REJCT = &PRIOR_QTY;
End-If;
End-If;
End-If;
AdjAcceptQty();
[RECV_LN_SHIP.QTY_SH_REJCT_SUOM.FieldChange]
/* RECV_LN_SHIP.QTY_SH_REJCT_SUOM.FIELDCHANGE */
------------------------------------------ */
Function Fch_QtyShRejctSuom();
&CR = (1 / &CONV);
QTY_SH_REJCT_VUOM = QTY_SH_REJCT_SUOM * &CR;
End-Function;
/* MainLine
------------- */
If Not IsModal() Then
Fch_QtyShRejctSuom();
End-If;
If None(QTY_SH_REJCT_SUOM) Then
REJECT_ACTION = "";
REJECT_REASON = "";
RMA_ID = "";
RMA_LINE_NBR = 0;
End-If;
[RECV_LN_SHIP.QTY_SH_REJCT_VUOM.FieldChange]
/* RECV_LN_SHIP.QTY_SH_REJCT_VUOM.FIELDCHANGE */
------------------------------------------ */
Function Fch_QtyShRejctVuom();
QTY_SH_REJCT_SUOM = QTY_SH_REJCT_VUOM * &CR;
End-Function;
/* MainLine
------------- */
If Not IsModal() Then
Fch_QtyShRejctVuom();
End-If;
If None(QTY_SH_REJCT_VUOM) Then
REJECT_ACTION = "";
REJECT_REASON = "";
RMA_ID = "";
RMA_LINE_NBR = 0;
End-If;
[RECV_LN_SHIP.RECEIPT_DTTM.SavePreChange]
Para as funcionalidades de Cancelamento / Reabertura / Deleo / Encerramento de Doc
umentos Fiscais, a data RECV_LN_SHIP.RECEIPT_DTTM somente deve ser atualizada se

houver um recebimento fsico relacionado com o documento fiscal (Se o documento f
iscal no foi criado a partir de um recebimento, a scroll da RECV_LN_SHIP estar vaz
ia e o campo RECEIVER_ID = '').
*/
&RECEIPT_DTTM = RECEIPT_DTTM;
/* PO 8.0 SP2 Start */
If None(&RECEIPT_DTTM) Then
/* PO 8.0 SP2 End
*/
RECEIPT_DTTM = %Datetime;
End-If;
End-If;
[RECV_LN_SHIP.RECEIVE_UOM.FieldChange]
/* RECV_LN.RECEIVE_UOM.FIELDCHANGE */
/* Update Qty on Schedule -------------------------------------- */
Declare Function ItmVndrLocConvRate PeopleCode FUNCLIB_PM_SQL.CONVERSION_RATE Fi
eldFormula;
ormula;
Declare Function Get_Conv_Rate PeopleCode FUNCLIB_RECV.CONVERSION_RATE FieldForm
ula;
Declare Function ShToDsQtyAccptSuom PeopleCode RECV_LN_SHIP_WK.FUNCLIB FieldChan
ge;
Declare Function ShToDsQtyAccptVuom PeopleCode RECV_LN_SHIP_WK.FUNCLIB FieldChan
ge;
Declare Function TtlDsAccptVuom PeopleCode RECV_LN_WK.FUNCLIB FieldFormula;
Declare Function TtlLnQtyAssetInv PeopleCode RECV_HDR_WK.FUNCLIB FieldChange;
Declare Function GetPORate PeopleCode FUNCLIB_RECV.CONVERSION_RATE FieldFormula;
Declare Function get_cur_xchng_rt PeopleCode FUNCLIB_PM_SQL.CURRENCY_CD FieldFor
mula;
rmula;
/*
Convert_to_stk - std uom / receive uom (assumes stocking and std uom are same)
Convert_to_po - po uom/receive uom
Conversion_rate - std uom/ po uom
ex) ITEM - 10001 - Widget, VENDOR - Office Depot
PO - box , RECEIPT - case, STOCK or STD - EA
where CASE = 12 EA, BOX = 6 EA
Conversions between two different uoms is achieved by taking the ratio of each
unit of measure's std/uom rate.
ex) convert UOM_FROM (CASE) to UOM_TO (Box)
Conv_Rate1 = Std Uom/ Uom_From = EA/CASE =12
Conv_Rate2 = Std Uom/ Uom_To = EA/BOX = 6
Uom_From * CR = Uom_To
Uom_From * (Uom_To/Uom_From) = Uom_To
1 CASE
* CR = BOX
1 CASE
* 2 (Box/Case) = 2 Boxes
Conv_Rate = Uom_To/Uom_From
= (Std Uom/Uom_From)/(Std Uom/Uom_To)
= (Std Uom/CASE/ Std Uom/BOX)
= 12/6 = 2 box/case
The Conversion rate to std are always found by first looking in the item vendor
uom table, itm_vndr_uom, for a conversion rate to the std uom
10001 Office Depot CASE 12
10001 Office Depot BOX
6
if these conversion rates are found, then the ratio between these two ratios
is the
conversion rate between the two uoms
EA/CASE = 12 ( 1 CASE * EA/CASE (12) = 12 EA)
EA/BOX = 6
BOX/CASE = 12/6 = 2 ( 1 CASE * BOX/CASE (2) = 2 BOXES)
if an item does not have a vendor specific conversion rate to std then the c
onversion rate for that item to the std uom is looked for in the general uom tab
le,
ps_convert_tbl, by calling get_conv_rate(uom, std uom , conv rate).
This means that depending on the type of conversion rate you are trying to fi
nd
you may have to repeat the search for each uom.
Uom From - Uom To ( Case to Box )
(Convert_to_Stk or Conversion_Rate type)
ItmVndrConversionRate( Case, Conv_Rate1 )
if not found call Get_Conv_Rate( Case, EA, Conv_Rate1)
(Convert_to_Stk or Conversion_Rate type)
ItmVndrConversionRate( Box, Conv_Rate2 )
if not found call Get_Conv_Rate( Box, EA, Conv_Rate2)
take ratio, Convert Rate = Conv_Rate1/Conv_Rate2
(Convert_To_Po type)
*/
Function RecvUom(&LINE_ROW) Returns boolean ;
&CONVERSION_RATE = FetchValue(CONVERSION_RATE, &LINE_ROW);
&CONVERT_STK_TO_STD = FetchValue(CONVERT_STK_TO_STD, &LINE_ROW);
&RECEIVE_UOM = FetchValue(RECEIVE_UOM, &LINE_ROW);
&RECV_STOCK_UOM = FetchValue(RECV_STOCK_UOM, &LINE_ROW);
&STD_UOM = FetchValue(UNIT_MEASURE_STD, &LINE_ROW);
&ITM_SETID = FetchValue(ITM_SETID, &LINE_ROW);
&VENDOR_SETID = RECV_HDR.VENDOR_SETID;
&VENDOR_ID = RECV_HDR.VENDOR_ID;
&VNDR_LOC = RECV_HDR.VNDR_LOC;
ItmVndrLocConvRate(&ITM_SETID, &INV_ITEM_ID, &VENDOR_SETID, &VENDOR_ID, &VNDR
_LOC, &RECEIVE_UOM, &CONVERT_TO_STD);
If None(&CONVERT_TO_STD) Then
GetItmConvRate(&ITM_SETID, &INV_ITEM_ID, &RECEIVE_UOM, &CONVERT_TO_STD);
If None(&CONVERT_TO_STD) Then
Get_Conv_Rate(&RECEIVE_UOM, &STD_UOM, &CONVERT_TO_STD);
End-If;
End-If;
If All(&CONVERT_TO_STD) Then
&CONVERT_TO_PO = Round(&CONVERT_TO_STD / &CONVERSION_RATE, 8);
&CONVERT_TO_STK = Round(&CONVERT_TO_STD / &CONVERT_STK_TO_STD, 8);

Else
&CONVERT_TO_PO = 1.0;
&CONVERT_TO_STD = 1.0;
&CONVERT_TO_STK = &CONVERSION_RATE;
End-If;
UpdateValue(CONVERT_TO_PO, &LINE_ROW, &CONVERT_TO_PO);
UpdateValue(CONVERT_TO_STK, &LINE_ROW, &CONVERT_TO_STK);
Return All(&CONVERSION_RATE, &CONVERT_TO_STK);
End-Function;
Function QtyRound(&QTY, &UOM, &CONV)
&ROUND_RULE = "";
qty_precision_round(&SETID, " ", &QTY, &INV_ITEM_ID, &UOM, " ", &QTY_PRECISIO
N, &ROUND_RULE, &CONV);
End-Function;
Function Fch_ReceiveUom(&LINE_ROW);
remark change receipt uom for current Receipt line;
If RecvUom(&LINE_ROW) Then
remark change qty on Receipt Schedules;
&CR_RUOM_TO_VUOM = FetchValue(CONVERT_TO_PO, &LINE_ROW);
&CR_RUOM_TO_SUOM = &CONVERT_TO_STD;
&QTY_SH_RECVD = FetchValue(QTY_SH_RECVD, &LINE_ROW);
&QTY_SH_ACCPT = FetchValue(QTY_SH_ACCPT, &LINE_ROW);
&QTY_SH_INSPD = FetchValue(QTY_SH_INSPD, &LINE_ROW);
&QTY_SH_REJCT = FetchValue(QTY_SH_REJCT, &LINE_ROW);
&QTY_PRIOR_ACCPT_V = FetchValue(QTY_SH_ACCPT_VUOM, &LINE_ROW);
&QTY_SH_NETRCV_VUOM = FetchValue(QTY_SH_NETRCV_VUOM, &LINE_ROW);
&PRICE_PO = FetchValue(PRICE_PO, &LINE_ROW);
&PRICE_PO_BSE = FetchValue(PRICE_PO_BSE, &LINE_ROW);
&CURRENCY_CD = FetchValue(CURRENCY_CD, &LINE_ROW);
&BASE_CURRENCY = FetchValue(CURRENCY_CD_BASE, &LINE_ROW);
&POBU = FetchValue(BUSINESS_UNIT_PO, &LINE_ROW);
&POID = FetchValue(PO_ID, &LINE_ROW);
GetPORate(&POBU, &POID, &RATE_MULT, &RATE_DIV, &RATE_DATE);
Else
get_cur_xchng_rt(RECV_HDR_WK.CUR_RT_TYPE, &CURRENCY_CD, &BASE_CURRENCY,
RECV_HDR.RECEIPT_DT, &RATE_MULT, &RATE_DIV, &RATE_DATE);
End-If;
&SETID = FetchValue(ITM_SETID, &LINE_ROW);
&RECEIPT_UM = FetchValue(RECEIPT_UM, &LINE_ROW);
&CONVERT_TO_PO = &CR_RUOM_TO_VUOM;
&QTY_SH_ACCPT_VUOM = Round(&QTY_SH_ACCPT * &CR_RUOM_TO_VUOM, 4);
/* &QTY_SH_ACCPT_VUOM = &QTY_SH_ACCPT * &CR_RUOM_TO_VUOM;
QtyRound(&QTY_SH_ACCPT_VUOM, &RECEIPT_UM, &CONVERT_TO_PO); */
&QTY_SH_RECVD_VUOM = Round(&QTY_SH_RECVD * &CR_RUOM_TO_VUOM, 4);
/* &QTY_SH_RECVD_VUOM = &QTY_SH_RECVD * &CR_RUOM_TO_VUOM;
QtyRound(&QTY_SH_RECVD_VUOM, &RECEIPT_UM, &CONVERT_TO_PO); */
&QTY_SH_INSPD_VUOM = Round(&QTY_SH_INSPD * &CR_RUOM_TO_VUOM, 4);
/* &QTY_SH_INSPD_VUOM = &QTY_SH_INSPD * &CR_RUOM_TO_VUOM;
QtyRound(&QTY_SH_INSPD_VUOM, &RECEIPT_UM, &CONVERT_TO_PO); */
&QTY_SH_REJCT_VUOM = Round(&QTY_SH_REJCT * &CR_RUOM_TO_VUOM, 4);
/* &QTY_SH_REJCT_VUOM = &QTY_SH_REJCT * &CR_RUOM_TO_VUOM;

QtyRound(&QTY_SH_REJCT_VUOM, &RECEIPT_UM, &CONVERT_TO_PO); */
/* 07-18-02 EW Incident #510059002 end */
&QTY_SH_NETRCV_VUOM = &QTY_SH_NETRCV_VUOM + (&QTY_SH_ACCPT_VUOM - &QTY_PRI
OR_ACCPT_V);
&UNIT_MEASURE_STD = FetchValue(UNIT_MEASURE_STD, &LINE_ROW);
&QTY_SH_ACCPT_SUOM = &QTY_SH_ACCPT * &CR_RUOM_TO_SUOM;
QtyRound(&QTY_SH_ACCPT_SUOM, &UNIT_MEASURE_STD, &CONVERT_TO_STD);
&CONVERT_TO_STD = &CR_RUOM_TO_SUOM;
&QTY_SH_RECVD_SUOM = &QTY_SH_RECVD * &CR_RUOM_TO_SUOM;
QtyRound(&QTY_SH_RECVD_SUOM, &UNIT_MEASURE_STD, &CONVERT_TO_STD);
&QTY_SH_INSPD_SUOM = &QTY_SH_INSPD * &CR_RUOM_TO_SUOM;
QtyRound(&QTY_SH_INSPD_SUOM, &UNIT_MEASURE_STD, &CONVERT_TO_STD);
&QTY_SH_REJCT_SUOM = &QTY_SH_REJCT * &CR_RUOM_TO_SUOM;
QtyRound(&QTY_SH_REJCT_SUOM, &UNIT_MEASURE_STD, &CONVERT_TO_STD);
&MERCHANDISE_AMT = RoundCurrency(&PRICE_PO * &QTY_SH_ACCPT_VUOM, &CURRENCY
_CD, &RATE_DATE);
&MERCH_AMT_BSE = RoundCurrency(&PRICE_PO_BSE * &QTY_SH_ACCPT_VUOM, &BASE_C
URRENCY, &RATE_DATE);
UpdateValue(QTY_SH_RECVD_VUOM, &LINE_ROW, &QTY_SH_RECVD_VUOM);
UpdateValue(QTY_SH_RECVD_SUOM, &LINE_ROW, &QTY_SH_RECVD_SUOM);
UpdateValue(QTY_SH_ACCPT_VUOM, &LINE_ROW, &QTY_SH_ACCPT_VUOM);
UpdateValue(QTY_SH_ACCPT_SUOM, &LINE_ROW, &QTY_SH_ACCPT_SUOM);
UpdateValue(QTY_SH_INSPD_VUOM, &LINE_ROW, &QTY_SH_INSPD_VUOM);
UpdateValue(QTY_SH_INSPD_SUOM, &LINE_ROW, &QTY_SH_INSPD_SUOM);
UpdateValue(QTY_SH_REJCT_VUOM, &LINE_ROW, &QTY_SH_REJCT_VUOM);
UpdateValue(QTY_SH_REJCT_SUOM, &LINE_ROW, &QTY_SH_REJCT_SUOM);
UpdateValue(QTY_SH_NETRCV_VUOM, &LINE_ROW, &QTY_SH_NETRCV_VUOM);
UpdateValue(MERCHANDISE_AMT, &LINE_ROW, &MERCHANDISE_AMT);
UpdateValue(MERCH_AMT_BSE, &LINE_ROW, &MERCH_AMT_BSE);
ShToDsQtyAccptSuom(&LINE_ROW);
TtlDsAccptVuom(&LINE_ROW);
TtlLnQtyAssetInv(&LINE_ROW);
Else
&RECEIVE_UOM = FetchValue(RECEIVE_UOM, &LINE_ROW);
&RECEIPT_UM = FetchValue(RECEIPT_UM, &LINE_ROW);
Error MsgGet(10300, 71, "Conversion rate between Units of Measure %1 and %
2 not found", &RECEIVE_UOM, &RECEIPT_UM);
End-If;
End-Function;
/* MainLine
------------- */
Fch_ReceiveUom(&LINE_ROW);
[RECV_LN_SHIP.RECEIVE_UOM.FieldEdit]
/* RECV_LN_SHIP.RECEIVE_UOM.FIELDEDIT */
/* Update Qty at Schedule --------------------------------------- */
Declare Function ItmVndrConversionRate PeopleCode FUNCLIB_RECV.CONVERSION_RATE F
ieldFormula;
ormula;
Declare Function Get_Conv_Rate PeopleCode FUNCLIB_RECV.CONVERSION_RATE FieldForm
ula;
/* return true if conversion rate from UOM to STD is found */

Function IsConversionRate() Returns boolean ;
&CONVERSION_RATE = CONVERSION_RATE;
&RECEIVE_UOM = RECEIVE_UOM;
&RECV_STOCK_UOM = RECV_STOCK_UOM;
&ITM_SETID = ITM_SETID;
&INV_ITEM_ID = INV_ITEM_ID;
&VENDOR_SETID = RECV_HDR.VENDOR_SETID;
&VENDOR_ID = RECV_HDR.VENDOR_ID;
ItmVndrConversionRate(&ITM_SETID, &INV_ITEM_ID, &VENDOR_SETID, &VENDOR_ID, &R
ECEIVE_UOM, &CONVERT_TO_STK);
If None(&CONVERT_TO_STK) Then
GetItmConvRate(&ITM_SETID, &INV_ITEM_ID, &RECEIVE_UOM, &CONVERT_TO_STK);
If None(&CONVERT_TO_STK) Then
Get_Conv_Rate(&RECEIVE_UOM, &RECV_STOCK_UOM, &CONVERT_TO_STK);
End-If;
End-If;
Return All(&CONVERSION_RATE, &CONVERT_TO_STK);
End-Function;
Function FEd_ReceiveUom();
remark change receipt uom for current Receipt line;
If Not IsConversionRate() Then
&RECEIVE_UOM = RECEIVE_UOM;
&RECV_STOCK_UOM = RECV_STOCK_UOM;
Error MsgGet(10300, 108, "Conversion rate between Units of Measure %1 and
%2 not found", &RECEIVE_UOM, &RECV_STOCK_UOM);
End-If;
End-Function;
/* MainLine ------------- */
/* * * PO 8.02 Prf (Start) */
End-If;
/* * * PO 8.02 Prf (End)
*/
FEd_ReceiveUom();
[RECV_LN_SHIP.RECV_LN_NBR.RowInit]
) ou 'REOPEN_FISCDOC_PBL' (Reabertura de Doc. Fiscal) ou 'RECV_UNHOLD_PBL' ou 'D
ELETE_FISCDOC_PBL' (Deleo de Doc. Fiscal) ou 'CLOSE_FISCDOC_PBL' (Encerramento de
Doc. Fiscal).
*/
/* RECV_LN_SHIP.RECV_LN_NBR.ROWINIT */
/* 101899: Display of AM Stat/INV Stat hyperlinks inconsistent between add/upda
te mode swr 5/9/2002 */
Declare Function check_rtv PeopleCode FUNCLIB_RECV.RECEIVER_STATUS FieldFormula;
Declare Function GetShortXlatName PeopleCode FUNCLIB_RECV.RECEIVER_STATUS FieldF
ormula;
Declare Function GrayRecvLn PeopleCode RECV_HDR_WK.FUNCLIB FieldFormula;
Local Rowset &rs_data;

%Component <> Component.RECV_UNHOLD_PBL Then
&MAX_VALUE = RECV_HDR_WK.RECV_LN_NBR;
If None(RECV_LN_NBR) Then
RECV_LN_NBR = &MAX_VALUE + 1;
RECV_HDR_WK.RECV_LN_NBR = &MAX_VALUE + 1;
Else
If RECV_LN_NBR > &MAX_VALUE Then
RECV_HDR_WK.RECV_LN_NBR = RECV_LN_NBR;
End-If;
End-If;
&MAX_VALUE = FetchValue(RECV_LN_WK.RECV_SHIP_SEQ_NBR, &LINE_ROW);
If None(RECV_SHIP_SEQ_NBR) Then
RECV_SHIP_SEQ_NBR = 1;
UpdateValue(RECV_LN_WK.RECV_SHIP_SEQ_NBR, &LINE_ROW, 1);
End-If;
UpdateValue(RECV_LN_SHIP_WK.DISTRIB_LINE_NUM, &LINE_ROW, 0);
If RECV_HDR_WK.SEPARATE_INSPECT = "Y" Then
Gray(QTY_SH_INSPD);
Gray(QTY_SH_INSPD_VUOM);
Gray(QTY_SH_INSPD_SUOM);
End-If;
If RECV_LN_MATCH_OPT = "F" Then
Gray(QTY_SH_RECVD);
Gray(QTY_SH_ACCPT);
Gray(QTY_SH_REJCT);
Gray(QTY_SH_INSPD);
Gray(QTY_SH_RECVD_VUOM);
Gray(QTY_SH_ACCPT_VUOM);
Gray(QTY_SH_REJCT_VUOM);
Gray(QTY_SH_INSPD_VUOM);
Gray(RECEIPT_ALLOC_TYPE);
/* RT 11/15/2001 R-DSWIRS-PM6NF */
Gray(RECV_LN_WK.CB_HOLD_ITEM);
/* Ice Report #501399000 KN 04/22/2002 START FIX */
Gray(PRICE_PO);
/* Ice Report #501399000 KN 04/22/2002 END FIX */
End-If;
If MOVE_STAT_INV = "M" Or
MOVE_STAT_AM = "M" Or
MOVE_STAT_MFG = "M" Or
SERIAL_CONTROL = "Y" Then
Gray(RECV_STOCK_UOM);
Gray(RECEIPT_ALLOC_TYPE);
End-If;
/* RT 11/15/2001 R-DSWIRS-PM6NF */
If RECV_SHIP_STATUS = "H" Then
RECV_LN_WK.CB_HOLD_ITEM = "Y";
Else
RECV_LN_WK.CB_HOLD_ITEM = "N";
End-If;
/* * * PO 8.02 Prf (Start) */
If RECV_SHIP_STATUS = "X" Then
GrayRecvLn(&LINE_ROW);
End-If;
/*
PO8.0SP1 End
*/
If MOVE_STAT_INV = "M" Then
Gray(RECV_HDR_WK.PB_CANCEL_RECPT);
Gray(RECV_LN_WK.PB_CANCEL_ITEM);
Gray(RECV_HDR.HOLD_INVENTORY);
/* R-DSWIRS-PM6NF RT 11/13/2001
Gray(RECV_HDR_WK.CB_HOLD_RECPT); */
Gray(QTY_SH_ACCPT);
Gray(QTY_SH_INSPD);
Gray(QTY_SH_RECVD);
Gray(QTY_SH_REJCT);
Gray(RECEIVE_UOM);
End-If;
If RECV_SHIP_STATUS = "M" Then
End-If;
/* * * PO 8.02 Prf (End) */
&RECV_BU = BUSINESS_UNIT;
&RECV_ID = RECEIVER_ID;
&RECV_LN = RECV_LN_NBR;
&TABLE = "S";
&PANELGROUP = %PanelGroup;
check_rtv(&RECV_BU, &RECV_ID, &RECV_LN, &TABLE, &LINE_ROW, &DIST_ROW, &ASS
ET_ROW, &PANELGROUP);
/* 101899 - re-activate code to set AM & INV Stat hyperlinks */
/* * * PO 8.02 Prf (Start) */
&CURR_ROW = CurrentRowNumber();
&rs_data = GetLevel0()(1).GetRowset(Scroll.RECV_LN_SHIP);
&rs_data(&CURR_ROW).RECV_LN_SHIP_WK.DESCR.Label = Substring(&rs_data(&CURR
_ROW).RECV_LN_SHIP.DESCR254_MIXED.Value, 1, 30);
If MOVE_STAT_AM = "N" Then
Hide(RECV_LN_SHIP_WK.MOVE_STAT_AM);
Else
GetShortXlatName("MOVE_STAT_AM", MOVE_STAT_AM, &SHORTDESC);
&rs_data(&CURR_ROW).RECV_LN_SHIP_WK.MOVE_STAT_AM.Label = &SHORTDESC;
End-If;
If MOVE_STAT_INV = "N" Then
Hide(RECV_LN_SHIP_WK.MOVE_STAT_INV);
Else
GetShortXlatName("MOVE_STAT_INV", MOVE_STAT_INV, &SHORTDESC);
&rs_data(&CURR_ROW).RECV_LN_SHIP_WK.MOVE_STAT_INV.Label = &SHORTDESC;
End-If; /* 101899 - end of reactivated code */
&DEVICE_TRACK = FetchValue(DEVICE_TRACKING, &CURR_ROW);
If &DEVICE_TRACK = "N" Then
Hide(RECV_LN_SHIP_WK.GOTO_DEVICE_TRK, &CURR_ROW);
Else
UnHide(RECV_LN_SHIP_WK.GOTO_DEVICE_TRK, &CURR_ROW);
GetShortXlatName("GOTO_DEVICE_TRK", &DEVICE_TRACK, &SHORTDESC);
&rs_data(&CURR_ROW).RECV_LN_SHIP_WK.GOTO_DEVICE_TRK.Label = &SHORTDESC;
End-If;
End-If;
Gray(DEVICE_TRACKING);
End-If;
End-If;
[RECV_LN_SHIP.RECV_STOCK_UOM.FieldChange]
Declare Function GetStockUOMRate PeopleCode FUNCLIB_RECV.RECEIVER_STATUS FieldFo
rmula;
Function ChgStkUom()
GetStockUOMRate(ITM_SETID, INV_ITEM_ID, RECV_STOCK_UOM, &CNV_RATE);
If None(&CNV_RATE) Then
&CNV_RATE = 1.0;
End-If;
CONVERT_TO_STK = Round((CONVERSION_RATE * (1 / &CNV_RATE)), 8);
CONVERT_STK_TO_STD = &CNV_RATE;
End-Function;
/*
Mainline */
If RECV_LN_WK.UOM_CONV_FLAG <> "0" Then
&PREV_STK_UOM = PriorValue(RECV_STOCK_UOM);
remark warn user that changing the stocking UOM will disable certain batch fu
nctionality;
&MSGBOXTEXT = MsgGetText(10300, 143, "Missing Message.");
&RETURN_CD = MessageBox(36, &MSGBOXTEXT, 10300, 144, "Missing Message.");
If &RETURN_CD <> 6 Then
RECV_STOCK_UOM = &PREV_STK_UOM;
Else
ChgStkUom();
End-If;
Else
ChgStkUom();
End-If;
[RECV_LN_SHIP.RECV_STOCK_UOM.FieldEdit]
/* RECV_LN_SHIP.RECV_STOCK_UOM.FieldEdit
*/
/* * * PO 8.02 Prf (Start)
*/
End-If;
/* * * PO 8.02 Prf (End)
*/
[RECV_LN_SHIP.REJECT_REASON.SaveEdit]
/* RECV_LN_SHIP.REJECT_REASON.SAVEEDIT */
/* must provide a rejection reason if item rejected
-------------------------- */
If RECV_SHIP_STATUS <> "X" Then
If All(QTY_SH_REJCT) Then
If None(REJECT_REASON) Then
Error (MsgGet(10300, 41, "Missing Message."));
Else
If None(REJECT_ACTION) Then
Error (MsgGet(10300, 42, "Missing Message."));
End-If;
End-If;
End-If;
End-If;
[RECV_LN_SHIP.REVISION.FieldChange]
/* RECV_LN_SHIP.REVISION FieldChange */
Declare Function GetPORev PeopleCode FUNCLIB_RECV.RECEIVER_STATUS FieldFormula;
GetPORev(BUSINESS_UNIT_PO, PO_ID, LINE_NBR, SCHED_NBR, &POREV);
If All(&POREV) And
REVISION <> &POREV Then
&MSGBOXTEXT = MsgGetText(10300, 155, "Missing Message.");
&RETURN_CD = MessageBox(36, &MSGBOXTEXT, 10300, 156, "Missing Message.", &POR
EV);
If &RETURN_CD <> 6 Then
REVISION = PriorValue(REVISION, &SHIP_ROW);
End-If;
End-If;
[DFI_CANCEL_PBL.GBL.SavePostChange]
Declare Function MMC_Registro_Saida_REV PeopleCode MMC_TERC_WRK.BUSINESS_UNIT_IN
FieldFormula;
Declare Function MMC_Registro_Saida PeopleCode MMC_TERC_WRK.BUSINESS_UNIT_IN Fie
ldFormula;
/* MMC - NFC - 15/02/06 */
Local Rowset &NF_Retorno, &NF_Retorno_Linhas;
Local SQL &sql_BCT, &sql_MMC_TERC_OC;
Local Record &MMC_TERC_REC;
Local Record &MMC_TERC_OC_REC;
Local Record &MMC_TERC_TRI_REC;
Local Record &MMC_TRANS_TERC_REC;
Local Rowset &BCT_CTL_RS;
Local Row &BCT_CTL_ROW;
Local Row &BCT_DTL_ROW;
Local Record &BCT_CTL_REC;
Local Record &BCT_DTL_REC;
Local Rowset &RS_ALL, &RS;
Local Record &recHDR, &recLN;
If NF_BRL_PNL_WRK.NF_CANCEL_PBL_PB.Value = "Y" Then
/* Fluxo Reverso de Processos */
&recHDR = CreateRecord(Record.NF_HDR_BRL);
&recLN = CreateRecord(Record.NF_LN_BRL);
&BUSINESS_UNIT = NF_HDR_BRL.BUSINESS_UNIT.Value;
&NF_BRL_ID = NF_HDR_BRL.NF_BRL_ID.Value;
&SQL1
F_BRL_ID
&SQL2
F_BRL_ID
=
=
=
=
CreateSQL("SELECT * FROM PS_NF_HDR_BRL WHERE BUSINESS_UNIT = :1 and N

:2", NF_HDR_BRL.BUSINESS_UNIT.Value, NF_HDR_BRL.NF_BRL_ID.Value);
CreateSQL("SELECT * FROM PS_NF_LN_BRL WHERE BUSINESS_UNIT = :1 and N
:2", NF_HDR_BRL.BUSINESS_UNIT.Value, NF_HDR_BRL.NF_BRL_ID.Value);
&RS_ALL = CreateRowset(Record.NF_HDR_BRL, CreateRowset(Record.NF_LN_BRL));

&NF_Retorno_Linhas = &RS_ALL.GetRow(1).GetRowset(1);
While &SQL1.Fetch(&recHDR)
&recHDR.CopyFieldsTo(&RS_ALL(1).NF_HDR_BRL);
&I = 1;
While &SQL2.Fetch(&recLN)
If &I > 1 Then
rem &RS.InsertRow(&I - 1);
&NF_Retorno_Linhas.InsertRow(&I - 1);
End-If;
rem &recLN.CopyFieldsTo(&RS(&I).NF_LN_BRL);
&recLN.CopyFieldsTo(&NF_Retorno_Linhas(&I).NF_LN_BRL);
&I = &I + 1;
End-While;
End-While;
MMC_Registro_Saida_REV(&RS_ALL);
/*Reversin de Entrada con parmetro "D" = sentido*/
MMC_Registro_Saida(&RS_ALL, "D");
/**** Dados na tabela MMC_TERC ****/
SQLExec("delete from PS_MMC_TERC WHERE BUSINESS_UNIT_PO =:1 AND MMC_RETORNO_B
RL_ID=:2", &RS_ALL(1).NF_HDR_BRL.BUSINESS_UNIT.Value, &RS_ALL(1).NF_HDR_BRL.NF_B
RL_ID.Value);
/**** ****/
/**** MMC_TRANS_TERC ****/
SQLExec("delete from PS_MMC_TRANS_TERC WHERE BUSINESS_UNIT_PO =:1 AND MMC_RE
TORNO_BRL_ID=:2", &RS_ALL(1).NF_HDR_BRL.BUSINESS_UNIT.Value, &RS_ALL(1).NF_HDR_B
RL.NF_BRL_ID.Value);
/**** ****/
/**** MMC_TERC_TRI ****/
SQLExec("delete from PS_MMC_TERC_TRI WHERE BUSINESS_UNIT =:1 AND NF_BRL_ID=:2
", &RS_ALL(1).NF_HDR_BRL.BUSINESS_UNIT.Value, &RS_ALL(1).NF_HDR_BRL.NF_BRL_ID.Va
lue);
/**** ****/
/**** MMC_TERC_OC ****/
&sql_MMC_TERC_OC = CreateSQL("select BUSINESS_UNIT_PO, PO_ID FROM PS_MMC_TERC
_OC WHERE BUSINESS_UNIT =:1 AND NF_BRL_ID=:2", &RS_ALL(1).NF_HDR_BRL.BUSINESS_UN
IT.Value, &RS_ALL(1).NF_HDR_BRL.NF_BRL_ID.Value);
While &sql_MMC_TERC_OC.Fetch(&BUSINESS_UNIT_PO, &PO_ID)
SQLExec("delete from PS_MMC_TERC_OC WHERE BUSINESS_UNIT =:1 AND NF_BRL_ID=
:2 and LINE_NBR=:3", &RS_ALL(1).NF_HDR_BRL.BUSINESS_UNIT.Value, &RS_ALL(1).NF_HD
R_BRL.NF_BRL_ID.Value, &NF_Retorno_Linhas(&j).NF_LN_BRL.LINE_NBR.Value);
SQLExec("Update PS_PO_HDR Set RECV_STATUS = 'P' Where BUSINESS_UNIT = :1 A
nd PO_ID = :2", &BUSINESS_UNIT_PO, &PO_ID);
End-While;
/**** Producto acabado ****/
/*Proyecto: MMC_CT_08 - Sara Costas - 22feb2006 - Procuro as claves da tabela
PS_BCT_CTL relacionadas com a NF- Inicio*/
SQLExec("select BUSINESS_UNIT_1, EIP_CTL_ID FROM PS_MMC_BCT_AUX WHERE BUSINES
S_UNIT =:1 AND NF_BRL_ID =:2 ", &RS_ALL(1).NF_HDR_BRL.BUSINESS_UNIT.Value, &RS_A
LL(1).NF_HDR_BRL.NF_BRL_ID.Value, &BUSINESS_UNIT, &EIP_CTL_ID);
/*Proyecto: MMC_CT_08 - Sara Costas - 22feb2006 - Procuro as claves da tabela
PS_BCT_CTL relacionadas com a NF- Fin*/
If All(&BUSINESS_UNIT, &EIP_CTL_ID) Then

&sql_BCT = CreateSQL("SELECT * FROM PS_BCT_CTL WHERE BUSINESS_UNIT =:1 AND
EIP_CTL_ID =:2", &BUSINESS_UNIT, &EIP_CTL_ID);
While &sql_BCT.Fetch(&BCT_CTL_REC)
&sql_DCT = CreateSQL("SELECT * FROM PS_BCT_DTL WHERE BUSINESS_UNIT =:1
AND EIP_CTL_ID =:2", &BUSINESS_UNIT, &EIP_CTL_ID);
While &sql_DCT.fetch(&BCT_DTL_REC)
&BCT_DTL_REC.Delete();
End-While;
&sql_DCT.close();
&BCT_CTL_REC.Delete();
End-While;
&sql_BCT.Close();
/*Proyecto: MMC_CT_08 - Sara Costas - 22feb2006 - Apagado do registo auxil
iar - Inicio*/
SQLExec("delete from PS_MMC_BCT_AUX WHERE BUSINESS_UNIT =:1 AND NF_BRL_ID=
:2", &RS_ALL(1).NF_HDR_BRL.BUSINESS_UNIT.Value, &RS_ALL(1).NF_HDR_BRL.NF_BRL_ID.
Value);
/*Proyecto: MMC_CT_08 - Sara Costas - 22feb2006 - Apagado do registo auxil
iar - Fin*/
End-If;
/**** ****/
End-If;
[NF_INFO_PBL.GBL.PostBuild]
/*************************************************************************
* Claudio Costa - MMC - 29/01/2007 - mmc.hd28655
* A data do documento fiscal estava sendo alterado pelo sistema,
* logo foi realizado uma costumizaco para no alterar a data do
* documento fiscal digitado pelo usuario
/*************************************************************************
/*MMC - DR 25-01-06 Inicio*/
/*Carrega variveis de triangulaao no cabealho da NF*/
Global Record &MMC_NF_Retorno_Header_Tri;
Global Record &MMC_NF_Tri;
Global boolean &triangulacion;
/************************************************************************/
/* MMC - ASM - 20/02/2006 - Variable que se usa para el prompt dinamico
del campo TOF_PBL de Operacion Fiscal. La cargo en otra variable para mantener
el valor original */
/************************************************************************/
Component boolean &triangulacionOrig;
&triangulacionOrig = &triangulacion;
/************************************************************************/
If &triangulacion = True Then
NF_HDR_BRL.VENDOR_ID.Value = &MMC_NF_Retorno_Header_Tri.VENDOR_ID.Value;
NF_HDR_BRL.ADDRESS_SEQ_NUM.Value = &MMC_NF_Retorno_Header_Tri.ADDRESS_SEQ_NUM
.Value;
If None(NF_HDR_BRL.NF_BRL_DATE.Value) Then /***** mmc.hd28655 L.N. ******/

NF_HDR_BRL.NF_BRL_DATE.Value = &MMC_NF_Retorno_Header_Tri.NF_BRL_DATE.Valu
e;
End-If; /***** mmc.hd28655 L.N. ******/
NF_HDR_BRL.VNDR_LOC.Value = &MMC_NF_Retorno_Header_Tri.VNDR_LOC.Value;
NF_HDR_INFO_WRK.CGC_BRL.Value = &MMC_NF_Tri.CGC_BRL.Value;
&triangulacion = False;
End-If;
/*MMC - DR 25-01-06 Fim*/
[NF_INFO_PBL.GBL.PreBuild]
/*******************************************************************************
*****************
ole Terceiros *
* Customizao Sistema de Terceiros - Oculta Pagina de Industrializao
*
*******************************************************************************
*****************/
/* BRLPO - HAT - RELEASE 8.00 - 05/01/01 - Quando Type Writer Hide para seleo de R
ecebimento Fsico */
Hide(RCV_PICK_PBL_WK.SELECT_RCV_ALL_BRL);
/* BRLPO - HAT - RELEASE 8.00 - 05/01/01 - END */
/* MMC - NFC - 23/01/2006 */
MMC_NF_HDR_WRK.BUSINESS_UNIT.Visible = True;
/* MMC - NFC */
/********************** mmcb.at2323.sn **********************/

Page.MMC_TE_NF_OP.Visible = False;
/********************** mmcb.at2323.en **********************/
[NF_INFO_PBL.GBL.SavePostChange]
Declare Function MMC_Registro_Saida_O_Entrada PeopleCode MMC_TERC_WRK.BUSINESS_U
NIT_IN FieldFormula;
rem Declare Function MMC_AjusteBCT PeopleCode MMC_TERC_WRK.BUSINESS_UNIT_IN Fiel
dFormula;
/* MMC - ASM - Esta funcion ActualizarRecibimientoParcial ya no se utiliza */
rem Declare Function ActualizarRecibimientoParcial PeopleCode MMC_TERC_WRK.BUSIN
ESS_UNIT_IN FieldFormula;
/* MMC - ASM */
/*Proyecto: MMC_CT_02_02 -declarao de funo sada de mercadoria - Sara Costas - 07feb20
06 - Inicio*/
Declare Function MMC_Registro_Saida PeopleCode MMC_TERC_WRK.BUSINESS_UNIT_IN Fie

ldFormula;
/*Proyecto: MMC_CT_02_02 -declarao de funo sada de mercadoria - Sara Costas - 07feb20
06 - Fin */
/* MMC - ASM - declarao de funo entrada de mercadoria - Inicio */
Declare Function MMC_Registro_Entrada PeopleCode MMC_TERC_WRK.BUSINESS_UNIT_IN F
ieldFormula;
/* MMC - ASM - declarao de funo entrada de mercadoria - Fin*/
Declare Function GeraOCLinhaItemServico PeopleCode MMC_TERC_WRK.BUSINESS_UNIT_IN
FieldFormula;
Declare Function GeraOrdemdeProducao PeopleCode MMC_TERC_WRK.BUSINESS_UNIT_IN Fi
eldFormula;
/* MMC - NF - 28/12/2005 */
/* Varivel global que contm o produto acabado selecionado pelo usurio no Controle d
e Terceiros. */
Global string &MMC_Produto_Acabado;
Global number &MMC_Cantidad_Produto_Acabado;
Local Rowset &LinhasRS;
/* Varivel global que permite guardar a informao de registros MMC_TERC e MMC_TRANS_
TERC que depois sern atualizados */
Global Rowset &MMC_TERC_RS;
Global Rowset &MMC_TRANS_TERC_RS;
Local Record &MMC_TERC_REC;
Local Record &MMC_TRANS_TERC_REC;
Local
Local
Local
Local
Local
Local
Local
Local
Rowset
Rowset
number
number
string
Record
Rowset
Rowset
&Level1;
&Level2;
&RecibidoTodo;
&Recibido;
&Status;
&MMC_PO_TERCO_VW;
&AuxLevel2;
&Level1NFServ;
Global Rowset &BCT_CTL_RS;

Local Row &BCT_CTL_ROW;
Local Row &BCT_DTL_ROW;
Local Record &BCT_CTL_REC;
Local Record &BCT_DTL_REC;
/* MMC - ASM - Variable con UN de Destino para NF de Venda do Fornecedor - Tendr
valor si se ingres el mismo en la ptina de Triangulacion para Recebimento da NF de
Venda do Fornecedor */
Global string &BU_CONTROL_REMESSA_TERC;
Global boolean &triangulacion;
Component string &MMC_CNTRL_TERC;
ONF, &MMC_ENTRAPOR_TRIANGULACAO, &MMC_CT_GERAOP;
/* MMC - ASM */
/* WSG */
Global Rowset &MMC_NF_Retorno_LinhasOC;
/* WSG */
Global boolean &criou_RS_MMC_TERC_OC;
&MMC_TERC_REC = CreateRecord(Record.MMC_TERC);
&MMC_TRANS_TERC_REC = CreateRecord(Record.MMC_TRANS_TERC);
&LinhasRS = GetLevel0()(1).GetRowset(Scroll.NF_LN_BRL);
/* Alterado por Welbe S. de Gasperi - Grupo Quanam - 07/03/2006 - Incio */
If NF_HDR_INFO_WRK.NF_BRL_STATUS.Value = "F" Then
/* Alterado por Welbe S. de Gasperi - Grupo Quanam - 07/03/2006 - Fim */
If &MMC_ENTRAPOR_ITEM = True Or
&MMC_ENTRAPOR_PACABADO = True Or
&MMC_ENTRAPOR_PACABADONF = True Or
&MMC_ENTRAPOR_TRIANGULACAO = True Then
If &MMC_Controle_Terceiros = True Then
/* MMC - NF - 06/01/2006 : Funo que permite simular a sada mercadoria. Uti
liza-se o Component Interface MMC_TRANS_CI, que esta unido ao componente PUTAWAY
_ENTRY1_INV (Rota: Home > Controlar Estoque > Armazenar Estoque > Usar > Armazen
agem Expressa) */
/*Proyecto: MMC_CT_02_02 - Invoca funo sada de mercadoria e comenta a funo M
MC_Registro_Saida_O_Entrada- Sara Costas - 07feb2006 - Inicio*/
rem MMC_Registro_Saida_O_Entrada(GetLevel0(), "S");
If All(&BU_CONTROL_REMESSA_TERC) Then
MMC_Registro_Entrada(GetLevel0(), "R", &BU_CONTROL_REMESSA_TERC);
Else
MMC_Registro_Saida(GetLevel0(), "O");
/*Proyecto: MMC_CT_02_02 - Invoca funo entrada de mercadoria e comenta
a funo MMC_Registro_Saida_O_Entrada - Sara Costas - 07feb2006 - Fin*/
rem MMC_Registro_Saida_O_Entrada(GetLevel0(), "E");
/* MMC - ASM - Si es item de servicio se inserta entrada (020) y se
llama a la funcion de Entrada con parametro "S" (Servicio) */
/* MMC - ASM - 23/02/2006 - El valor de CFO_BRL_CD se debe obtener e
n la linea, del campo CFOP_INCOM_PBL*/
SQLExec("Select MMC_CNTRL_TERC From PS_CFO_BRL_TBL Where SETID = :1
And CFO_BRL_CD = :2 And MMC_CNTRL_TERC = 'Y'", &LinhasRS(1).NF_LN_BRL.ITM_SETID.
Value, &LinhasRS(1).NF_LN_BRL.CFOP_INCOM_PBL.Value, &MMC_CNTRL_TERC);
MMC_Registro_Entrada(GetLevel0(), "S", "");
Else
MMC_Registro_Entrada(GetLevel0(), "C", "");
End-If;
/* MMC - ASM */
/*Proyecto: MMC_CT_02 - Sara Costas - 21Feb2006 - Antes de gravar re

gistos na MMC_TERC, pra os registos que j existam se modifica o campo SELECTED_FLA
G = 'N' pra nas remessas gravadas previamente com o mesmo nro. de remessa que a a
tual. - Inicio */
For &k = 1 To &MMC_TERC_RS.ActiveRowCount
&MMC_TERC_BU = &MMC_TERC_RS(&k).MMC_TERC.BUSINESS_UNIT.Value;
&MMC_TERC_REMESSA_BRL_ID = &MMC_TERC_RS(&k).MMC_TERC.MMC_REMESSA_
BRL_ID.Value;
SQLExec("UPDATE PS_MMC_TERC SET SELECTED_FLAG = 'N' WHERE BUSINES
S_UNIT =:1 AND MMC_REMESSA_BRL_ID =:2", &MMC_TERC_BU, &MMC_TERC_REMESSA_BRL_ID);
End-For;
/*Proyecto: MMC_CT_02 - Sara Costas - 21Feb2006 - Antes de gravar re
gistos na MMC_TERC, pra os registos que j existam se modifica o campo SELECTED_FLA
G = 'N' pra nas remessas gravadas previamente com o mesmo nro. de remessa que a a
tual. - Fin */
/**** Inserir dados na tabela MMC_TERC ****/
For &j = 1 To &MMC_TERC_RS.ActiveRowCount
If All(&MMC_TERC_RS(&j).MMC_TERC.INV_ITEM_ID.Value) Then /* FABIO
- 29/06/2006 */
&MMC_TERC_REC = &MMC_TERC_RS(&j).MMC_TERC;
&MMC_TERC_REC.MMC_RETORNO_BRL_ID.Value = NF_HDR_BRL.NF_BRL_ID.
Value;
&MMC_TERC_REC.EFFDT.Value = NF_HDR_BRL.NF_BRL_DATE.Value;
&MMC_TERC_REC.RECEIVER_ID.Value = NF_HDR_BRL.RECEIVER_ID.Value
;
6 - Inicio */
/* Valorizao da Linha da NF em MMC_TERC, para vincular com TRANS
ACTION_INV e
considerar o mesmo item da mesma NF de Remessa.
Quando for por Item, basta valorizar com o nmero sequencial.
Quando for por Produto Acabado ou Produto Acabado-NF,
verifica-se se o mesmo item e a mesma quantidade */
&MMC_TERC_REC.NF_BRL_LINE_NUM.Value = &j;
Else
If &MMC_ENTRAPOR_PACABADO = True Or
&MMC_ENTRAPOR_PACABADONF = True Then
For &ix = &j To &LinhasRS.ActiveRowCount
If &LinhasRS.GetRow(&ix).NF_LN_BRL.INV_ITEM_ID.Value
= &MMC_TERC_RS(&j).MMC_TERC.INV_ITEM_ID.Value And
&LinhasRS.GetRow(&ix).NF_LN_BRL.QTY_NF_BRL.Valu
e = &MMC_TERC_RS(&j).MMC_TERC.QTY_RECEIPT.Value Then
&MMC_TERC_REC.NF_BRL_LINE_NUM.Value = &ix;
Break;
End-If;
End-For;
End-If;
End-If;
6 - Fim */
&MMC_TERC_REC.Insert();
End-If; /* FABIO - 29/06/2006 */
End-For;
/**** Inserir dados na tabela MMC_TRANS_TERC ****/
For &k = 1 To &MMC_TRANS_TERC_RS.ActiveRowCount
If All(&MMC_TRANS_TERC_RS(&k).MMC_TRANS_TERC.INV_ITEM_ID.Value) T
hen /* FABIO - 29/06/2006 */
&MMC_TRANS_TERC_REC = &MMC_TRANS_TERC_RS(&k).MMC_TRANS_TERC;
&MMC_TRANS_TERC_REC.MMC_RETORNO_BRL_ID.Value = NF_HDR_BRL.NF_B
RL_ID.Value;
&MMC_TRANS_TERC_REC.DATE_TO.Value = NF_HDR_BRL.NF_BRL_DATE.Val
ue;
6 - Inicio */
/* Valorizao da Linha da NF em MMC_TRANS_TERC, para vincular com
TRANSACTION_INV e
considerar o mesmo item da mesma NF de Remessa.
Quando for por Item, basta valorizar com o nmero sequencial.
Quando for por Produto Acabado ou Produto Acabado-NF,
verifica-se se o mesmo item e a mesma quantidade */
&MMC_TRANS_TERC_REC.NF_BRL_LINE_NUM.Value = &k;
Else
For &ix = &k To &LinhasRS.ActiveRowCount
If &LinhasRS.GetRow(&ix).NF_LN_BRL.INV_ITEM_ID.Value
= &MMC_TRANS_TERC_RS(&k).MMC_TRANS_TERC.INV_ITEM_ID.Value And
&LinhasRS.GetRow(&ix).NF_LN_BRL.QTY_NF_BRL.Valu
e = (&MMC_TRANS_TERC_RS(&k).MMC_TRANS_TERC.QTY.Value * - 1) Then
&MMC_TRANS_TERC_REC.NF_BRL_LINE_NUM.Value = &ix;
Break;
End-If;
End-For;
End-If;
End-If;
6 - Fim */
&MMC_TRANS_TERC_REC.Insert();
End-If; /* FABIO - 29/06/2006 */
End-For;
/**** Producto acabado ****/
icio
Colocada condio 1 = 0 para no executar os comandos abaixo
Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 06/06/2006 - Fi
m */
If All(&MMC_Produto_Acabado, &MMC_Cantidad_Produto_Acabado) And
1 = 0 Then
For &i = 1 To &BCT_CTL_RS.ActiveRowCount
&BCT_CTL_ROW = &BCT_CTL_RS(&i);
&BCT_CTL_ROW.BCT_CTL_REC.Insert();
/*Proyecto: MMC_CT_08 - Sara Costas - 22feb2006 - Insert em ta
bela auxliar que relaciona a NF com a tabela BCT_CTL, para a cancelamento da NF
- Inicio*/
&MMC_BCT_AUX_REC = CreateRecord(Record.MMC_BCT_AUX);
&MMC_BCT_AUX_REC.BUSINESS_UNIT.value = NF_HDR_BRL.BUSINESS_UNI
T.Value;
&MMC_BCT_AUX_REC.NF_BRL_ID.value = NF_HDR_BRL.NF_BRL_ID.Value;
&MMC_BCT_AUX_REC.BUSINESS_UNIT_1.VALUE = &BCT_CTL_ROW.BCT_CTL_
REC.BUSINESS_UNIT.Value;
&MMC_BCT_AUX_REC.EIP_CTL_ID.value = &BCT_CTL_ROW.BCT_CTL_REC.E
IP_CTL_ID.Value;
&MMC_BCT_AUX_REC.INSERT();
/*Proyecto: MMC_CT_08 - Sara Costas - 22feb2006 - Insert em ta

bela auxliar que relaciona a NF com a tabela BCT_CTL, para a cancelamento da NF
- Fin*/
For &j = 1 To &BCT_CTL_ROW.GetRowset(Scroll.BCT_CTL_RS).Active
RowCount
&BCT_CTL_ROW = &BCT_CTL_ROW.GetRowset(Scroll.BCT_CTL_RS)(&j
);
&BCT_CTL_ROW.BCT_DTL_REC.Insert();
End-For;
End-For;
End-If;
End-If;
o */
/*GeraOCLinhaItemServico(GetLevel0());*/
icio */
If &MMC_CT_GERAOP = True Then
GeraOrdemdeProducao(GetLevel0());
End-If;
m */
End-If;
/
o */
If &MMC_ENTRAPOR_PACABADONF = True Then
/* Comandos abaixo comentados, pois ser selecionada NF com Status Com
pleto */
/*
&Level1NFServ = GetLevel0()(1).GetRowset(Scroll.MMC_NFRET_NFSER);
If All(&Level1NFServ(1).MMC_NFRET_NFSER.MMC_NF_BRL_ID_SERV.Value) Th
en
SQLExec("UPDATE PS_NF_HDR_BRL SET NF_BRL_STATUS = 'F' WHERE BUSIN
ESS_UNIT = :1 AND NF_BRL_ID = :2", &Level1NFServ(1).MMC_NFRET_NFSER.BUSINESS_UNI
T.Value, &Level1NFServ(1).MMC_NFRET_NFSER.MMC_NF_BRL_ID_SERV.Value);
End-If;
*/
MMC_NF_LN_WRK.BUTTON1.Enabled = False;
End-If;
/
Else
/* MMC - ASM - Si esta variable tiene valor, entr a la pgina de Triangula

cion Se llama a la funcion con variable "R" de Recebimento da NF de Venda do Forneced
or - Se asume que en este caso de NF SIEMPRE ingresar valor al campo BU_CONTROL_R
EMESSA_TERC*/
If All(&BU_CONTROL_REMESSA_TERC) Then
MMC_Registro_Entrada(GetLevel0(), "R", &BU_CONTROL_REMESSA_TERC);
Else
/* Me fijo si es el caso de que es una NF de Servicios */
/* MMC - ASM - 23/02/2006 - El valor de CFO_BRL_CD se debe obtener e
n la linea, del campo CFOP_INCOM_PBL*/
SQLExec("Select MMC_CNTRL_TERC From PS_CFO_BRL_TBL Where SETID = :1
And CFO_BRL_CD = :2 And MMC_CNTRL_TERC = 'Y'", &LinhasRS(1).NF_LN_BRL.ITM_SETID.
Value, &LinhasRS(1).NF_LN_BRL.CFOP_INCOM_PBL.Value, &MMC_CNTRL_TERC);
MMC_Registro_Entrada(GetLevel0(), "S", "");
End-If;
End-If;
End-If;
/* LIMPA AS VARIVEIS - Welbe S. de Gasperi - 25/04/2006 */
&MMC_Produto_Acabado = "";
&MMC_Controle_Terceiros = False;
&BU_CONTROL_REMESSA_TERC = "";
&triangulacion = False;
&MMC_ENTRAPOR_ITEM = False;
&MMC_ENTRAPOR_PACABADO = False;
&MMC_ENTRAPOR_PACABADONF = False;
&MMC_ENTRAPOR_TRIANGULACAO = False;
&criou_RS_MMC_TERC_OC = False;
/* Alterado por Welbe S. de Gasperi - Grupo Quanam - 07/03/2006 - Incio */
End-If;
End-If;
/* Alterado por Welbe S. de Gasperi - Grupo Quanam - 07/03/2006 - Fim */
[NF_INFO_PBL.GBL.SavePreChange]
/*******************************************************************************
*********************
* mmcb.hd20449 - Corrigir campo de valor bruto na capa do recebimento de docume
nto fiscal que est
*
ficando zerado quando a pgina salva com status em aberto, nec
essitanto novo
*
calculo antes de salvar.
* Autor: Claudio Henrique da Costa
* Data: 07/04/2006
*******************************************************************************
**********************
/* JEISON CALDAS - 13/12/06 - ATIV.1899
* Customizao alterada devido estar deixando o valor total da NF incorreta em algu
ns casos.
*******************************************************************************
*********************/
/* MMC - NF - 26/01/2006 */
Local Rowset &NF_Linhas_RS;
Local number &VALOR_BRUTO;
Local Rowset &RS_VINC_RET_SERV;

&VALOR_ANTERIOR = GetLevel0()(1).GetRecord(Record.NF_HDR_BRL).GROSS_AMT.Value; /
* mmcb.hd20449.n */
&VALOR_BRUTO = 0;
&NF_Linhas_RS = GetLevel0()(1).GetRowset(Scroll.NF_LN_BRL);
For &i = 1 To &NF_Linhas_RS.ActiveRowCount
&TOF_VOUCHER_PBL = "N";
SQLExec("SELECT TOF_VOUCHER_PBL FROM PS_TOF_TYPE_PBL A WHERE A.TOF_PBL = :1 A
ND A.EFFDT = (SELECT MAX(B.EFFDT) FROM PS_TOF_TYPE_PBL B WHERE B.TOF_PBL = A.TOF
_PBL AND B.EFFDT <= SYSDATE) AND A.TOF_PBL = :1", &NF_Linhas_RS(&i).NF_LN_BRL.TO
F_PBL.Value, &TOF_VOUCHER_PBL);
If &TOF_VOUCHER_PBL = "Y" Then
&VALOR_BRUTO = &VALOR_BRUTO + &NF_Linhas_RS(&i).NF_LN_BRL.UNIT_PRICE.Value
;
End-If;
End-For;
If &VALOR_ANTERIOR = 0 Then /* JEISON - ATIV.1899 - S.N. */
GetLevel0()(1).GetRecord(Record.NF_HDR_BRL).GROSS_AMT.Value = &VALOR_BRUTO;
End-If;
If &VALOR_BRUTO = 0 Then /* mmcb.hd20449.sn */
GetLevel0()(1).GetRecord(Record.NF_HDR_BRL).GROSS_AMT.Value = &VALOR_ANTERIOR
;
End-If; /* mmcb.hd20449.en */
/* MMC - NF */
/* MMC - ASM - Saco las lineas de servicio que no seleccion para vincular con el
retorno */
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 02/06/2006 - Antigo - Inici
o */
/* Retirado tais comandos abaixo, pois ser vinculada apenas 1 NF de Servio,
e no h necessidade de check */
/*
&RS_VINC_RET_SERV = GetLevel0()(1).GetRowset(Scroll.MMC_NFRET_NFSER);
For &i = &RS_VINC_RET_SERV.ActiveRowCount To 1 Step - 1
If (&RS_VINC_RET_SERV(&i).MMC_RET_SER_WRK.MMC_CHECKED_ROW.Value <> "1") Or
None(&RS_VINC_RET_SERV(&i).MMC_RET_SER_WRK.MMC_CHECKED_ROW.Value) Then
&RS_VINC_RET_SERV.FlushRow(&i);
End-If;
End-For;
*/
/* Projeto MMC_CT_09 - Fabio Sobral - Grupo Quanam - 02/06/2006 - Antigo - Fim *
/
/* FIN - ASM*/

MMC Ter8 cc801306 0047 Terceiros

Uploaded by

Copyright:

Available Formats

MMC Ter8 cc801306 0047 Terceiros

Uploaded by

Document Information

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

MMC Ter8 cc801306 0047 Terceiros

Uploaded by

Copyright:

Available Formats

[FUNCLIB_OF.FLOW_FLG_BBL.

If &TASK_ID <> 1 Then

/*** BRLOC_BI - SBRITO - JUL/2001 - Pega NF's Text Related ***/

For &i = 1 To ActiveRowCount(Record.NF_H_TXT_BBL_FS);

&QRY = &QRY | "WHERE NF_BRL_ID=:3 AND BUSINESS_UNIT=:4 ";*/

&QRY4 = &QRY4 | "BUSPROCNAME,APPR_RULE_SET,APPR_INSTANCE,APPR_CHECK_FLG,";

SHIP_FROM_STATE | ", &STAT_TO=" | &SHIP_BRL_TO_STATE | ", &BU_GL=" | &BUSINESS_

INTO PS_NF_LINK_BBL ";

SQLExec(&QRY, &BU, &NF_BRL_ID, &BU, &NF_PAI, &NF_AVO, &DOC_CLASS_BBL2);

/*** BRLOC_BI - SBRITO - SET/2001 - NVL for addresss variables ***/

" INSERT INTO PS_NF_HDR_ADDR_BBL ";

WHERE A.SETID = :8 AND A.CUST_ID = :9 ";

&QRY | " AND A.EFF_STATUS = 'A' ";

Function Insert_ADDR2(&NF_BRL_ID, &BU, &TYPE, &NF_BRL_ID2);

ADDRESS1,ADDRESS2, ADDRESS3,ADDRESS4, CITY,";

&IN = "'" | &v_doc[&k] | "'";

Function GetNF_Line_Data(&NF_BRL_ID, &BUSINESS_UNIT, &NF_BRL_LINE_NUM);

&l_ondescamt = CreateArrayRept(0, 0);

/*** GERA NF DERIVED ***/

Mark_Date(&NF, &BU, &DT_TERM_BBL);

&BILL_TO_CUST_ID = " ";

&NF_NEW = " ";

* Gustavo MMC - 28-01-2009 mmcb.2946 - Cotrole de materiais de terceiros em pod

/*&INSERT = "Insert into SYSADM.PS_MMC_PRS_APONTAM(BUSINESS_UNIT, MMC_CP_G

&qty_res_bu = &qty_res_bu + &qty_allocated_ship2;

/*Altera a unidade de medida, quanidade e valor*/

Function GRAVA_STAGED_COST_INV(&SC_BUSINESS_UNIT, &SC_STAGING_ID, &SC_INV_LOT_ID

_NBR, &SC_STAGED_NUM, &SC_SOURCE_BUS_UNIT, &SC_RECV_SHIP_SEQ_NBR, &SC_DISTRIB_LI

&DIA_INICIAL = &DIA_INICIAL + 30;

/********************************************** mmcb.sds4289.sn ****************

/************************************ mmcb.at2603 - e.n */

&R_BU_ITEMS_INV.SF_RPL_PRDN_AREA.VALUE = " ";

&REC_TRANSACTION.NON_COST_FLAG.Value = " ";

&REC_TRANSACTION.TO_STOR_LEVEL_4.Value = " ";

&REC_TRANSACTION.TRANSACTION_CODE.Value = " ";

SQLExec("INSERT INTO PS_LOT_CONTROL_INV( BUSINESS_UNIT, INV_ITEM_ID, IN

" SELECT NETTABLE_FLG ";

SQLExec(&SQL, &PAR_BUSINESS_UNIT, &PAR_STORAGE_AREA, &PAR_STOR_LEVEL_1, &PAR_

ATUALIZA_BU_ITEMS_INV(&PAR_BUSINESS_UNIT, &PAR_INV_ITEM_ID, &PAR_QTY, "020",

_SCHED_LINE_NO, &PAR_DEMAND_LINE_NO, &PAR_STAGED_DATE, &PAR_INV_LOT_ID, &PAR_SER

ot_id , vendor_id , storage_code ,oprid , distrib_type , %DateOut(po_dt) , busin

AGED_NUM, &S_SOURCE_BUS_UNIT, &S_RECV_SHIP_SEQ_NBR, &S_DISTRIB_LINE_NUM, &S_DIST

&PAR_PO_ID = " ";

" SELECT 'Y'

SQLExec(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &ITEM_EXISTE_FLAG);

SQLExec(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_FROM_STORAGE_AREA, &P_FROM

L_4 | " de origem.");

&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_FROM_STORAGE_

tada: " | &P_QTY_SOLICITADA | ".");

" SELECT BII.QTY_AVAILABLE

&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID);

&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_INV_ITEM_ID, &P_TO_STORAGE_AR

&sqlStmt = CreateSQL(&SQL, &P_BUSINESS_UNIT, &P_TO_STORAGE_AREA, &P_TO_STOR_L

If &E_DEST_INSPECT_FLG = "Y" Then

" UPDATE SYSADM.PS_PHYSICAL_INV

&sqlStmt = CreateSQL(&SQL, &P_QTY_SOLICITADA, &P_QTY_SOLICITADA, &P_BUSINESS_

AREA, &P_FROM_STOR_LEVEL_1, &P_FROM_STOR_LEVEL_2, &P_FROM_STOR_LEVEL_3, &P_FROM_

&SQL = &SQL | "

&SQL = &SQL | "

/* BRLOC_BI - SBRITO - JUL/2001 - Pega NF's Text Related */

/* BRLOC_BI - SBRITO - SET/2001 - NVL for addresss variables */

/* GERA NF DERIVED */

/Altera a unidade de medida, quanidade e valor/

/****************************** mmcb.sds4289.sn

/** mmcb.sds3346.EN

/ MMCB.SDS4359.SO ******/

/* mmcb.hd219468.sn */

/********* mmcb.hd98917.sn *

/** mmcb.sds3239.so *

/ mmcb.sds3239.so /

/ mmcb.sds3426.sn /

DR_BRL.BUSINESS_UNIT.Value, MMC_TE_RECV_WRK.SETID.Value);/ /mmcb.sds3239.lo */

/* MMC_TE_RECV_VND.NF_BRL = "";/ /mmcb.sds3239.lo */