Linha Microsiga Protheus

Árvore de páginas

MATA125 - Contrato de Parceria

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório Referência

ExpA1
Array of Record
Cabeçalho do Contrato de Parceria na Rotina Automática.







ExpA2
Array of Record
Itens do Contrato de Parceria na Rotina Automática.







ExpN1
Numérico
Opção do aRotina na Rotina Automática.






Nível de Acesso:Nível 1 (Acesso Clientes)

Idiomas:

Espanhol, Inglês

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Essa rotina permite o registro de qualquer Contrato de Parceria na empresa. O Contrato de Parceria é um contrato de fornecimento de produtos por um determinado período.

Programa Fonte:

MATA125.PRX

Sintaxe:

MATA125 - Contrato de Parceria ( [ ExpA1 ] [ ExpA2 ] [ ExpN1 ] ) --> Nil

Retorno:

Nil(nulo)

Observações:



Exemplo:

User Function TMATA125() Local aCab := {}Local aItens := {} Local cDoc := "" Local nX := 0Private lMsErroAuto := .F. ConOut(Repl("-",80))ConOut(PadC("Rotina Automática para o Contrato de Parceria",80))PREPARE ENVIRONMENT EMPRESA "09" FILIAL "01" MODULO "COM" //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Inclusao |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Verifica numero da CP |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ dbSelectArea("SC3")dbSetOrder(1)MsSeek(xFilial("SC3")+"zzzzzz",.T.)dbSkip(-1)cDoc := SC3->C3_NUMIf Empty(cDoc) cDoc := StrZero(1,Len(SC3->C3_NUM))Else cDoc := Soma1(cDoc)EndIfaadd(aCab,{"C3_FILIAL", xFilial("SC3"), NIL})aadd(aCab,{"C3_NUM",cDoc,NIL})aadd(aCab,{"C3_EMISSAO",dDataBase})aadd(aCab,{"C3_FORNECE" ,"1 " ,NIL})aadd(aCab,{"C3_LOJA","01",NIL})aadd(aCab,{"C3_COND" ,"001" ,NIL})aadd(aCab,{"C3_MOEDA","1",NIL}) For nX := 1 To 2 aLinha := {} aadd(aLinha,{"C3_FILIAL",xFilial("SC3"),Nil}) aadd(aLinha,{"C3_ITEM",StrZero(nX,len(SC3->C3_ITEM)),Nil}) aadd(aLinha,{"C3_PRODUTO" ,"5",Nil}) aadd(aLinha,{"C3_QUANT",2,Nil}) aadd(aLinha,{"C3_PRECO",135,Nil}) aadd(aLinha,{"C3_TOTAL",270,Nil}) aadd(aLinha,{"C3_DATPRI",dDataBase,Nil}) aadd(aLinha,{"C3_DATPRF",dDataBase,Nil}) aadd(aItens,aLinha)Next nX MSExecAuto( {|x,y,z| mata125(x,y,z)},aCab,aItens,3) If lMsErroAuto MostraErro()Else MsgAlert("Incluido com sucesso! "+cDoc)Endif //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Alteração |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aCab := {} aItens := {}aadd(aCab,{"C3_FILIAL", xFilial("SC3"), NIL})aadd(aCab,{"C3_NUM",cDoc,NIL})aadd(aCab,{"C3_EMISSAO",dDataBase})aadd(aCab,{"C3_FORNECE" ,"1 " ,NIL})aadd(aCab,{"C3_LOJA","01",NIL})aadd(aCab,{"C3_COND" ,"001" ,NIL})aadd(aCab,{"C3_MOEDA","1",NIL}) For nX := 1 To 2 aLinha := {} aadd(aLinha,{"C3_FILIAL",xFilial("SC3"),Nil}) aadd(aLinha,{"LINPOS","C3_ITEM",StrZero(nX,len(SC3->C3_ITEM)),Nil}) aadd(aLinha,{"AUTDELETA","N",Nil}) aadd(aLinha,{"C3_PRODUTO" ,"5",Nil}) aadd(aLinha,{"C3_QUANT",3,Nil}) aadd(aLinha,{"C3_PRECO",130,Nil}) aadd(aLinha,{"C3_TOTAL",390,Nil}) aadd(aLinha,{"C3_DATPRI",dDataBase,Nil}) aadd(aLinha,{"C3_DATPRF",dDataBase,Nil}) aadd(aItens,aLinha)Next nX MSExecAuto( {|x,y,z| mata125(x,y,z)},aCab,aItens,4) If lMsErroAuto MostraErro()Else MsgAlert("Alterado com sucesso! "+cDoc)Endif //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Exclusão |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙMSExecAuto( {|x,y,z| mata125(x,y,z)},aCab,aItens,5) If lMsErroAuto MostraErro()Else MsgAlert("Excluído com sucesso! "+cDoc)Endif MsgAlert("Fim da Rotina Automática! "+Time()) RESET ENVIRONMENT Return