Histórico da Página

Criado o O ponto de entrada A126EDGRV() tendo como finalidade a edição de dados a  edita os dados a serem gravados.

O ponto de entrada A126EDGRV() edita as informações a serem gravadas da rotina ATFA126 - Solicitação de Baixa e Transferência de Ativos, onde o mesmo  em que este passa como referência o array "aBaixa" com os dados a serem editados e adicionados.

User Function A126EDGRV()

Local aBaixa := paramixb[1]

ALERT("Ponto de Entrada A126EDGRV() executado")

AADD( aBaixa, { "N3_CBASE" , 01 , NIL } )
AADD( aBaixa, { "N3_ITEM" , 2 , NIL } )
AADD( aBaixa, { "N3_TIPO" , 01 , NIL } )
AADD( aBaixa, { "AUTQUANT" , 1 , NIL } )
AADD( aBaixa, { "AUTMOTBX" , 01 , Nil } )
AADD( aBaixa, { "AUTPERCBX" , 100 , Nil } )
AADD( aBaixa, { "AUTNOTA" , "01" , Nil } )
AADD( aBaixa, { "AUTSERIE" , "0000001" , Nil } )
AADD( aBaixa, { "AUTBXFILHOS", .T. , Nil } )
AADD( aBaixa, { "AUTVLRVENDA", 30000 , Nil } )

Return aBaixa

Português(Brasil)

Versões_Anteriores

Todos

Todas

aBaixa

aBaixa

aBxAux := AClone(aBaixa)
If ExistBlock("A126EDGRV")
aBaixa := ExecBlock("A126EDGRV", .F., .F.,{aBaixa})
If ValType(aBaixa) <> "A"
aBaixa := AClone(aBxAux)
EndIf
EndIf

aBaixa, aBxAux

ATFA126.PRW