Page tree

Exemplo de funcionamento da rotina automática

Produto:

Microsiga Protheus 

Versões:

Todas 

Ocorrência:

Fucionamento da rotina automática (FINA290)

Passo a passo:

Exemplo:

User Function SelecFat

Local aArray:={}

Local aTit :={}

Private lMsErroAuto := .F.

aTit := {{ " ", "TIT01 ", " " , "NF ", .f.,"01","02"}, { " ", "TIT02 ", " " , "NF ", .f.}}

aArray := { "FAT", "NF", "FAT001", "001", CtoD("28/05/2012"), CtoD("28/05/2012"), "0001 ", "01", "", "", "001", 01, aTit , , }

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

If lMsErroAuto

MostraErro()

Else

Alert("Fatura gerada com sucesso")

Endif


Observação

Parâmetros 

- nPosArotina: Define as opções a serem executadas pela rotina automática - 3-Selecionar, 4-Cancelar.

- aFAtPag: Array com as informações para a geração da fatura. Abaixo do detalhamento das posições.

 

[01]Prefixo
[02]Tipo
[03]Numero da Fatura (se o numero estiver em branco obtêm pelo FINA290)
 [04]Natureza
[05]Data de
 [06]Data até
[07]Fornecedor
[08] Loja
[09]Fornecedor para geração
[10] Loja do fornecedor para geração
[11]Condição de pagto 
 [12] Moeda
 [13]array com os títulos da fatura
[13,1] Prefixo
[13,2] Número
[13,3]Parcela
[13,4]Tipo
[13,5]Título localizado na geração de fatura (lógico). Iniciar com falso
[13,6]Cod Fornecedor (E2_FORNECE) do título, deve ser igual ao informado na posição 7.
[13,7]Loja do Fornecedor do título
 [14]Valor de decréscimo
[15]Valor de acréscimo