FINA010 Naturezas - Rotina Automática. -- 116404

USER FUNCTION FIN010INC()
LOCAL aArray := {}
 
PRIVATE lMsErroAuto := .F.
 
aArray := { { "ED_CODIGO"  , "TST"             , NIL },;
            { "ED_DESCRIC" , "DESCRIÇÃO TESTE" , NIL },;
            { "ED_CALCIFR" , "N"               , NIL },;
            { "ED_CALCISS" , "N"               , NIL },;
            { "ED_CALCINS" , "N"               , NIL },;
            { "ED_CALCCSL" , "N"               , NIL },;
            { "ED_CALCCOF" , "N"               , NIL },;
            { "ED_CALCPIS" , "N"               , NIL },;
            { "ED_DEDPIS"  , "2"               , NIL },;
            { "ED_DEDCOF"  , "2"               , NIL } }
 
MsExecAuto( { |x,y| FINA010A(x,y)} , aArray, 3)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
 
 
If lMsErroAuto
    MostraErro()
Else
    Alert("Natureza incluída com sucesso!")
Endif
 
Return
 
USER FUNCTION FINA010ALT()
LOCAL aArray := {}
 
PRIVATE lMsErroAuto := .F.
 
aArray := { { "ED_CODIGO"  , "TST"                , NIL },;
                { "ED_DESCRIC" , "DESCRIÇÃO ALTERADA" , NIL } }  
           
DbSelectArea("SED")
DbSeek(xFilial("SED"))

MsExecAuto( { |x,y| FINA010A(x,y)} , aArray, 4)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão

If lMsErroAuto
    MostraErro()
Else
    Alert("Natureza alterada com sucesso!")
Endif

Return
 
 
USER FUNCTION FIN010EXC()
LOCAL aArray := {}
 
PRIVATE lMsErroAuto := .F.
 
DbSelectArea("SED")
DbSeek(xFilial("SED")+"TST")
                                
aArray := { { "ED_CODIGO" , SED->ED_CODIGO , NIL } }
 
MsExecAuto( { |x,y| FINA010A(x,y)} , aArray, 5)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
 
If lMsErroAuto
    MostraErro()
Else
    Alert("Exclusão da Natureza com sucesso!")
Endif
 
Return