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. 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
| 