Duda
¿Cómo utilizar la rutina automática para Prueba de aprobación simple (nOpc := 7) MATA110?
Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Compras (SIGACOM) - Todas las versiones 12
Pais: Todos
Solución
Esta rutina permite el registro de cualquier solicitud de compras de mercaderías en la empresa. La entrada de las solicitudes inicia el proceso de compras.
Ejemplo de Prueba de aprobación simple (nOpc := 7)
#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"
User Function EXEC110()
Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local nOpc := 7 //Aprobación
Local nTotItens := 1
Local nY := 0
Local nX := 0
Local cDoc := "" Local nReg := 1
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" USER "ADMIN" PASSWORD "1234"
cDoc := "SC0001" //Número de la SC que se utilizará en la aprobación
SC1->(dbSeek(xFilial("SC1")+cDoc)) //Debe seleccionarse
aadd(aCabec,{"C1_FILIAL" ,xFilial("SC1")})
aadd(aCabec,{"C1_NUM" ,cDoc})
aadd(aCabec,{"C1_EMISSAO" ,dDataBase})
aadd(aCabec,{"C1_SOLICIT" ,"Administrador"})
aadd(aCabec,{"C1_APROV" ,"B"}) //Informar "L - Liberado" / "R - Rechazado" / "B - Bloqueado"
aadd(aCabec,{"C1_ITEM" ,"0001"}) //Informe si aprobación es por Ítem, si fuera SC entera, no es necesario informar C1_ITEM
For nX := 1 To nTotItens
aLinha := {} aadd(aLinha,{"C1_FILIAL" ,xFilial("SC1")})
aadd(aLinha,{"C1_ITEM" ,StrZero(nx,len(SC1->C1_ITEM)),Nil})
aadd(aLinha,{"C1_PRODUTO",PadR("01",TamSx3("C1_PRODUTO")[1]),Nil})
aadd(aLinha,{"C1_LOCAL" ,"01",Nil})
aadd(aLinha,{"C1_QUANT" ,nX,Nil})
aadd(aItens,aLinha)
Next nXMsExecAuto({|u,v,x,y,z| MATA110(u,v,x)},aCabec,aItens,nOpc)
If !lMsErroAuto
ConOut(OemToAnsi(" Incluido SC: ")+cDoc)
Else MostraErro()
ConOut(OemToAnsi("¡Error en la inclusión!"))
EndIf
Next nYRESET ENVIRONMENTReturn
Conozca más.
PCOM06002 - Solicitudes de compras (MATA110) - Ejemplo de rutina automática
0 Comentarios