Linha Microsiga Protheus

Árvore de páginas

Rotina automática FINA010 - Naturezas

Produto:

Protheus

Versões:

Todas

Observações:

A partir da versão 12.1.17 a chamada da rotina FINA010A, deve-se ser alterada para FINA010.

Exemplo:

Versão anteriores à versão 12.1.17

MsExecAuto( { |x,y| FINA010A(x,y)} , aArray, 3)


Versão 12.1.17 e posteriores

MsExecAuto( { |x,y| FINA010(x,y)} , aArray, 3)

Exemplo:

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 } }
 
//Versão anteriores à versão 12.1.17
 //MsExecAuto( { |x,y| FINA010A(x,y)} , aArray, 3)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
 
//Versão 12.1.17 e posteriores:
MsExecAuto( { |x,y| FINA010(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")) 

//Versão anteriores à versão 12.1.17
//MsExecAuto( { |x,y| FINA010A(x,y)} , aArray, 4)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
//Versão 12.1.17 e posteriores:
MsExecAuto( { |x,y| FINA010(x,y)} , aArray, 3)  // 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 } }
 
//Versão anteriores à versão 12.1.17
//MsExecAuto( { |x,y| FINA010A(x,y)} , aArray, 5)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
 

//Versão 12.1.17 e posteriores:
MsExecAuto( { |x,y| FINA010(x,y)} , aArray, 3)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão

If lMsErroAuto
    MostraErro()
Else
    Alert("Exclusão da Natureza com sucesso!")
Endif
 
Return