EXECAUTO EECAC175- Manutencao de Empresas

Salve salve....

EXECAUTO EECAC175- EIC Manutencao de Empresas

#INCLUDE "TOTVS.CH"



User Function xxEECAC175()
Local aCabSI  		:= {} as array
Local aSY5              := {} as array
Local cMsgErr           := '' as character
Local nExecAuto         := 3 as numeric

Private lMsErroAuto      := .F. as logical
Private lAutoErrNoFile   := .T. as logical



aAdd( aSY5, {'Y5_NOME'      , SA2->A2_NOME  , Nil } )
aAdd( aSY5, {'Y5_END'       , SA2->A2_END   , Nil } )
aAdd( aSY5, {'Y5_BAIRRO'    , SA2->A2_BAIRRO, Nil } )
aAdd( aSY5, {'Y5_CIDADE'    , SA2->A2_MUN   , Nil } )
aAdd( aSY5, {'Y5_ESTADO'    , SA2->A2_EST   , Nil } )
aAdd( aSY5, {'Y5_CEP'       , SA2->A2_CEP   , Nil } )
aAdd( aSY5, {'Y5_PAIS'      , SA2->A2_PAIS  , Nil } )
aAdd( aSY5, {'Y5_FONE'      , SA2->A2_TEL   , Nil } )
aAdd( aSY5, {'Y5_NRCPFCG'   , SA2->A2_CGC   , Nil } )
aAdd( aSY5, {'Y5_TIPOAGE'   , '1'           , Nil } )
aAdd( aSY5, {'Y5_FORNECE'   , SA2->A2_COD   , Nil } )
aAdd( aSY5, {'Y5_LOJAF'     , SA2->A2_LOJA  , Nil } )
aAdd( aSY5, {'Y5_EMAIL'     , SA2->A2_EMAIL , Nil } )
aAdd( aSY5, {'Y5_BANCO'     , SA2->A2_BANCO , Nil } )
aAdd( aSY5, {'Y5_AGENCIA'   , SA2->A2_AGENCIA , Nil } )
aAdd( aSY5, {'Y5_CONTA'     , SA2->A2_NUMCON  , Nil } )
aAdd( aSY5, {'Y5_INSCR'     , SA2->A2_INSCR   , Nil } )
aAdd( aSY5, {'Y5_INSCRM'    , SA2->A2_INSCRM  , Nil } )

MSExecAuto( { |UA,ER,AM| EECAC175(UA,ER,AM) }, aSY5, {}, nExecAuto )
If lMsErroAuto
  
Else

Endif

Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima