Árvore de páginas

Versões comparadas

Chave

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

...

Portuguese

Pagetitle
A430Reserv
A430Reserv

Função: A430Reserv


Versões:Advanced Protheus 7.10 , Microsiga Protheus 8.11
Nível de Acesso:


Descrição:

A rotina automatica do MATA430 D foi desenvolvida através do uso de função em substituição a tradicional rotina automatica.

A mudança foi motivada pela necessidade de alta performance no uso desta funcionalidade.

Programa Fonte:
.PRW
Sintaxe:

A430Reserv ( aOPERACAOcNUMEROcPRODUTOcLOCALnQUANTaLOTE [ aHEADER ] [ aCOLS ] [ nQUANTELIM ] ) --> Nil

Retorno:
Nil
    (nulo)
  • Informa que a operação foi bem sucessida.
Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

aOPERACAO

vetor

[1] -> [Operacao : 1 Inclui,2 Altera,3 Exclui]
[2] -> [Tipo da Reserva]
[3] -> [Documento que originou a Reserva]
[4] -> [Solicitante]
[5] -> [Filial da Reserva]
[6] -> [Observacao]





X




cNUMERO

caracter

Número da reserva




X




cPRODUTO

caracter

Código do produto




X




cLOCAL

caracter

Almoxarifado da reserva




X




nQUANT

numerico

Quantidade reservada




X




aLOTE

vetor

[1] -> [Numero do Lote]
[2] -> [Lote de Controle]
[3] -> [Localizacao]
[4] -> [Numero de Serie]





X




aHEADER

vetor

aHeader com os campos da getdados. Somente utilizar para gravar campos adicionais, ou que terão seu conteúdo modificado.










aCOLS

vetor

Acols da getdados. Somente utilizar para gravar campos adicionais/modificar conteúdo padrão.










nQUANTELIM

numerico

Não informar. Uso interno.










Exemplo de execução utilizando campos que não são tratados pela rotina automática, utilizando a gravação do campo C0_FILRES, com um conteúdo diferente da filial logada.

#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"

USER FUNCTION MYA430RES()
Local aOperacao := {}
Local cNumero := ''
Local cProduto := 'FAT000000000000000000000000001'
Local cLocal := '01'
Local nQuant := 2
Local aLote := {"","","",""}
Local lReservOk := .T.

Private aHeader := {}
Private aCols := {}
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Abertura do ambiente |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ConOut(Repl("-",80))
ConOut(PadC("Teste de Inclusao de 10 apontamentos de venda com 1 item cada",80))
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT"

DbSelectArea("SX3")
DbSetOrder(2)
If SX3->(dbSeek("C0_FILRES"))
   aAdd(aHeader,{ TRIM(X3Titulo()) ,;
   SX3->X3_CAMPO ,;
   SX3->X3_PICTURE ,;
   SX3->X3_TAMANHO ,;
   SX3->X3_DECIMAL ,;
   SX3->X3_VALID ,;
   SX3->X3_USADO ,;
   SX3->X3_TIPO ,;
   SX3->X3_F3 ,;
   SX3->X3_CONTEXT ,;
   SX3->X3_CBOX ,;
   SX3->X3_RELACAO })
Endif

aOperacao:= {1,"PD","000010","",cFilAnt}

aadd(aCOLS,"D MG 02")

lReservOk := a430Reserv(aOperacao,cNumero,cProduto,cLocal,nQuant,aLote,aHeader,aCols)

If lReservOk
   Conout('Reserva cadastrada com Sucesso!')
Else
   Conout('Problemas ao cadastrar reserva')
EndIf

RESET ENVIRONMENT
RETURN lReservOk