Tiempo aproximado de lectura 00:05:00 min
Duda
¿Cómo se configura el Execauto de la rutina ATFA012 para eliminar un registro?
Entorno
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Activo Fijo (SIGAATF) - A partir de la versión 11.80]
Solución
Ejemplo de Execauto ATFA012 - Eliminación de Activos
Eliminar
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | #INCLUDE "Protheus.CH"User Function Exc012 Local aArea := GetArea() Local nQtd := 1 Local dAquisic := dDataBase Local dIndDepr := RetDinDepr(dDataBase) Local nQtd := 2 Local nValor := 1000 Local nTaxa := 10 Local nTamBase := TamSX3("N3_CBASE")[1] Local nTamChapa := TamSX3("N3_CBASE")[1] Local cGrupo := "0001" Local aParam := {} Local aCab := {} Local aItens := {} Private lMsErroAuto := .F. Private lMsHelpAuto := .T. SN1->(DbSetOrder(1)) //N1_FILIAL+N1_CBASE+N1_ITEM If SN1->(DbSeek(xFilial("SN1")+"0000000000"+"0001")) aCab := {} AAdd(aCab,{"N1_CBASE" , SN1->N1_CBASE ,NIL}) AAdd(aCab,{"N1_ITEM" , SN1->N1_ITEM ,NIL}) AAdd(aCab,{"N1_AQUISIC", SN1->N1_AQUISIC ,NIL}) AAdd(aCab,{"N1_DESCRIC", "TESTE MYAATF012" ,NIL}) AAdd(aCab,{"N1_QUANTD" , SN1->N1_QUANTD ,NIL}) AAdd(aCab,{"N1_CHAPA" , SN1->N1_CHAPA ,NIL}) AAdd(aCab,{"N1_PATRIM" , SN1->N1_PATRIM ,NIL}) AAdd(aCab,{"N1_GRUPO" , SN1->N1_GRUPO ,NIL}) EndIf Begin Transaction MSExecAuto({|x,y,z| Atfa012(x,y,z)},aCab,Nil,5,aParam) If lMsErroAuto MostraErro() DisarmTransaction() Endif End Transaction RestArea(aArea)Return |
0 Comentarios