Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS


Linha de Produto:Microsiga Protheus®
Segmento:Logística
Módulo:SIGATMS - Gestão de Transportes 


02. DESCRIÇÃO

Ponto de entrada para adicionar registros na tela de Adiantamentos, sendo executada a partir da inclusão na rotina de Complemento de Viagens.

(ideia) Exemplo: Através da rotina de complemento da viagem na tela de adiantamentos é possível adicionar registros na tela de adiantamentos.

Seguindo a estrutura de campos do aheader:

Código Despesa, Descrição Despesa, Valor Total, Val.Cobrado, Val.Baixado, Saldo, Data Vencto ,Banco, Agencia, Conta Banco, Num Cheque, Sequencia, Tipo Despesa, Gerador, Tipo de Geração.

Aadd(aRet,{'000001','CONTRATO CARRETEIRO',10,10,10,0,dDataBase,'','','','',Space(Len(SDG->DG_NUMSEQ)),'1','TMSA144','2',.F.})

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

aRetArray

Array dos dados de adiantamentos


Sim


Retorno:

  • aRet{}

03. EXEMPLO DE UTILIZAÇÃO


TM240ADTO
#include 'protheus.ch'

User Function TM240ADTO()

Local aRet    := {}
Local cBanco  := "003"
Local cAgenc  := "1260"
Local cConta  := "0001"

If Len(aCols) == 0
	
    //-- Adiciona linha no aCols
    Aadd(aRet,Array(len(aHeader)+1))

    //-- Indica nova linha como Não Deletado
    aTail(aRet)[Len(aTail(aRet))] := .F. 

    //-- Inicializa campos da nova linha com dados em branco de acordo com o aHeader
    aEval(aHeader,{|x,nCol| aTail(aRet)[nCol] := CriaVar(x[2],.T.)})

    //-- Altera campos
    GdFieldPut("DG_CODDES" ,"TMSADIAN"            ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_DESCRI" ,"TMS-ADIANTAMENTO CTC",Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_TOTAL"  ,10                    ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_VALCOB" ,10                    ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_VALBAI" ,10                    ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_SALDO"  ,0                     ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_DATVENC",dDatabase             ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_BANCO"  ,cBanco                ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_AGENCIA",cAgenc                ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_NUMCON" ,cConta                ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_TIPDES" ,"1"                   ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_GERADOR","TMSA144"             ,Len(aRet),aHeader,aRet) 
    GdFieldPut("DG_TIPGER" ,"2"                   ,Len(aRet),aHeader,aRet) 

EndIf 

Return(aRet)


04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

DLOGTMS02-16827 DT Criação de Campos de Origem na SDG.

  • Sem rótulos