Tiempo aproximado de lectura 00:05:00 min
Duda
¿Cómo se configura el Execauto de la rutina ATFA012 para modificar un registro?
Entorno
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Activo Fijo (SIGAATF) - A partir de la versión 12.1.2210
Solución
Ejemplo de Execauto ATFA012 - Modificación de Activos
Modificación
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 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | #INCLUDE "Protheus.CH"User Function AltAtfa012() 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 2" ,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}) aItens := {} //-- Preenche itens SN3->(DbSetOrder(1))//N3_FILIAL+N3_CBASE+N3_ITEM+N3_TIPO+N3_BAIXA+N3_SEQ If SN3->(DbSeek(xFilial("SN3")+"0000000000"+"0001"+"01"+"0"+"001")) AAdd(aItens,{; {"N3_CBASE" , SN3->N3_CBASE ,NIL},; {"N3_ITEM" , SN3->N3_ITEM ,NIL},; {"N3_TIPO" , SN3->N3_TIPO ,NIL},; {"N3_BAIXA" , SN3->N3_BAIXA ,NIL},; {"N3_HISTOR" , "TESTE MYAATF012 2" ,NIL},; {"N3_CCONTAB" , SN3->N3_CCONTAB ,NIL},; {"N3_CUSTBEM" , SN3->N3_CUSTBEM ,NIL},; {"N3_CDEPREC" , SN3->N3_CDEPREC ,NIL},; {"N3_CDESP" , SN3->N3_CDESP ,NIL},; {"N3_CCORREC" , SN3->N3_CCORREC ,NIL},; {"N3_CCUSTO" , SN3->N3_CCUSTO ,NIL},; {"N3_DINDEPR" , SN3->N3_DINDEPR ,NIL},; {"N3_VORIG1" , SN3->N3_VORIG1 ,NIL},; {"N3_TXDEPR1" , SN3->N3_TXDEPR1 ,NIL},; {"N3_VORIG2" , SN3->N3_VORIG2 ,NIL},; {"N3_TXDEPR2" , SN3->N3_TXDEPR2 ,NIL},; {"N3_VORIG3" , SN3->N3_VORIG3 ,NIL},; {"N3_TXDEPR3" , SN3->N3_TXDEPR3 ,NIL},; {"N3_VORIG4" , SN3->N3_VORIG4 ,NIL},; {"N3_TXDEPR4" , SN3->N3_TXDEPR4 ,NIL},; {"N3_VORIG5" , SN3->N3_VORIG5 ,NIL},; {"N3_TXDEPR5" , SN3->N3_TXDEPR5 ,NIL}}) EndIf Begin Transaction MSExecAuto({|x,y,z| Atfa012(x,y,z)},aCab,aItens,4,aParam) If lMsErroAuto MostraErro() DisarmTransaction() Endif End Transaction EndIf RestArea(aArea)Return |
0 Comentarios