Histórico da Página
...
Versões: | Microsiga Protheus 8.11 , Protheus 10,Protheus 11 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Idiomas: | Espanhol , Inglês |
Descrição |
...
Para |
...
o recebimento de |
...
material com |
...
contrato de |
...
parceria é necessário que seja |
...
executada a rotina Automática (MATA125) |
...
ou a rotina Manual antes da |
...
Autorização de Entrega |
...
para |
...
que as baixas dos itens do contrato de parceria e |
...
o registro da autorização da compra sejam realizados. |
...
Este procedimento é utilizado para autorizar a entrega dos itens do contrato de parceria |
...
que deve ser |
...
realizado antes do recebimento do material. É possível |
...
autorizar a |
...
entrega de apenas parte da quantidade total determinada no contrato, ficando o restante em aberto para outras autorizações. |
mata120.prx
MATA120 - Autorização de Entrega ( [ ExpN1 ] [ ExpA1 ] [ ExpA2 ] [ ExpN2 ] [ ExpL1 ] [ ExpA1 ] [ ExpA2 ] [ ExpA3 ])
...
Observações |
...
|
...
|
...
|
...
|
...
|
...
|
...
|
...
|
...
|
...
- O array Rateio por Centro de Custo deve ser passado com todos os campos e seguindo a mesma ordem do exemplo abaixo. - O array Rateio por Projeto deve ser passado com todos os campos e seguindo a mesma ordem do exemplo abaixo. (Atenção essa opção está disponível somente a partir da Versão Protheus 11). |
Exemplos |
...
#INCLUDE "RWMAKE.CH" User Function MyMata120() Local aCabec := {} PRIVATE lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" TABLES "SC7" //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
If Empty(cDoc) aadd(aCabec,{"C7_NUM" ,cDoc}) cSeek:= xFilial("SC3")+"F0000101" dbSelectArea("SC3") While SC3->(!Eof()) .And. xFilial("SC3")+SC3->C3_FORNECE+SC3->C3_LOJA == cSeek |
...
...
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //C7_FILIAL+C7_NUM+C7_ITEM+C7_SEQUEN aCabec := {} aLinha := {} //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ If !lMsErroAuto
|
...
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ aCabec := {} aLinha := {} //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ If !lMsErroAuto |
ConOut("Fim : "+Time()) RESET ENVIRONMENT Return(.T.) |
Parâmetros:
...
Idioma | Espanhol, Inglês | ||||||||
Versões | Microsiga Protheus 8.11, Protheus 10, Protheus 11 | ||||||||
Sistemas Operacionais Suportados | Todos | ||||||||
Compatível com as Bases de Dados | Todas | ||||||||
Nível de Acesso | Nível 1 (Acesso Clientes) | ||||||||
Programa Fonte | mata120.prx | ||||||||
Sintaxe | MATA120 - Autorização de Entrega ( [ ExpN1 ] [ ExpA1 ] [ ExpA2 ] [ ExpN2 ] [ ExpL1 ] [ ExpA1 ] [ ExpA2 ] [ ExpA3 ]) | ||||||||
Parâmetros |
|
...
|
...
|
...
|
...
|
...
...
|
...
|
...
|
...
...
|
...
|
...
|
...
...
|
...
|
...
|
...
|
...
...
|
...
|
...
...
|
...
...
|
...
|
...
|
...
|
...
...