Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

Exemplo de rotina automática para inclusão de rateio off-line no ambiente módulo de Contabilidade Gerencial (SigaCTB).

Observações

User Function IncluiCTQ()

Local nOpcA

Local _lOk := .T.
Local aAutoItens := {}
Local xCab

PRIVATE lMsErroAuto := .F.

cCtq_Rateio := CriaVar("CTQ_RATEIO")
cCtq_Desc := CriaVar("CTQ_DESC")
cCtq_Tipo := CriaVar("CTQ_TIPO")
cCtq_CtPar := CriaVar("CTQ_CTPAR")
cCtq_CCPar := CriaVar("CTQ_CCPAR")
cCtq_ItPar := CriaVar("CTQ_ITPAR")
cCtq_ClPar := CriaVar("CTQ_CLPAR")
cCtq_CtOri := CriaVar("CTQ_CTORI")
cCtq_CCOri := CriaVar("CTQ_CCORI")
cCtq_ItOri := CriaVar("CTQ_ITORI")
cCtq_ClOri := CriaVar("CTQ_CLORI")
nCtq_PerBas := CriaVar("CTQ_PERBAS")
cCtq_MSBLQL := '0'

xCab := { {cCtq_Rateio ,'000001' ,NIL},;
{cCtq_Desc ,'EXEMPLO' ,NIL},;
{cCtq_Tipo ,'1' ,NIL},;
{cCtq_CtPar ,'101010100' ,NIL},;
{cCtq_CcPar ,'CC2' ,NIL},;
{cCtq_ItPar ,'02' ,NIL},;
{cCtq_ClPar ,'CL2' ,NIL},;
{cCtq_CtOri ,'101010600' ,NIL},;
{cCtq_CCOri ,'CC2' ,NIL},;
{cCtq_ItOri ,'01' ,NIL},;
{cCtq_ClOri ,'CL1' ,NIL},;
{nCtq_PerBas ,100 ,NIL},;
{cCtq_MSBLQL ,'2' ,NIL} }

aAdd(aAutoItens,{ {'CTQ_FILIAL' ,'01' , NIL},;
{'CTQ_CTORI' ,'101010100 ' , NIL},;
{'CTQ_CCORI' , 'CC1 ' , NIL},;
{'CTQ_ITORI' ,'01 ', NIL},;
{'CTQ_CLORI' ,'CL1 ' , NIL},;
{'CTQ_CTPAR' ,'101010600 ' , NIL},;
{'CTQ_CCPAR' ,'CC2 ' , NIL},;
{'CTQ_ITPAR' ,'02 ' , NIL},;
{'CTQ_CLPAR' ,'CL2 ' , NIL},;
{'CTQ_SEQUEN' ,'001' , NIL},;
{'CTQ_CTCPAR' ,'101011100 ' , NIL},;
{'CTQ_CCCPAR' ,'CC3 ' , NIL},;
{'CTQ_ITCPAR' ,'123456789' , NIL},;
{'CTQ_CLCPAR' ,'' , NIL},;
{'CTQ_UM' ,'UN' , NIL},;
{'CTQ_VALOR' ,10000 , NIL},;
{'CTQ_PERCEN' ,100 , NIL},;
{'CTQ_FORMUL' ,'1' , NIL},;
{'CTQ_INTERC' ,'1', NIL} } )

MSExecAuto( {|X,Y,Z| CTBA270(X,Y,Z)} ,xCab ,aAutoItens, 3)

If lMsErroAuto <> Nil
If !lMsErroAuto
_lOk := .T.
If !IsBlind()
MsgInfo('Inclusão com sucesso!')
EndIf
Else
_lOk := .F.
If !IsBlind()
MostraErro()
MsgAlert('Erro na inclusao!')
Endif
EndIf
EndIf

Return