Histórico da Página
MATA110 - Solicitação de Compras
Linha de Produto: | Protheus | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Segmento: | Manufatura | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Módulo: | SIGAPCP - Planejamento e Controle da Produção | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetro(s): |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
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 Solicitação de Compras de mercadorias na empresa. A entrada das solicitações inicia o processo de compras. | ||||||||||||||||||||
Programa Fonte: | MATA110.PRW | ||||||||||||||||||||
Sintaxe: | MATA110 - Solicitação de Compras ( [ PARAMIXB1 ] [ PARAMIXB2 ] [ PARAMIXB3 ] [ PARAMIXB4 ] [ PARAMIXB5 ] ) | ||||||||||||||||||||
Retorno: | () | ||||||||||||||||||||
Variáveis: |
| ||||||||||||||||||||
Observações: | Esta rotina pode ser utilizada via Rotina Automática. |
Exemplo:
User
Function
MyMata110()Local
aCabec
:=
{}Local
aItens
:=
{}Local
aLinha
:=
{}Local
nXnX :=
0Local nY0Local nY :=
0Local
cDoccDoc :=
""Local
lOklOk :=
.T.
Private lMsHelpAutoPrivate lMsHelpAuto :=
.T.PRIVATE
lMsErroAuto
:=
.F.//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//|
Abertura
do ambientedo ambiente |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙConOut(Repl("-",80))ConOut(PadC(OemToAnsi("Teste
de
Inclusao
de
2
solicitacoes
de
compra
com
2
itens
cada"),80))PREPARE
ENVIRONMENT
EMPRESA
"99"
FILIAL
"01"
MODULO
"COM"
TABLES
"SC1","SB1"//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//|
Verificacao
do
ambiente
para testepara teste |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙDbSelectArea("SB1")DbSetOrder(1)If
!SB1->(MsSeek(xFilial("SB1")+"01"))
lOk
:=
.F.
ConOut(OemToAnsi("Cadastrar
produto:
01"))EndIfIf
!SB1->(MsSeek(xFilial("SB1")+"02"))
lOk
:=
.F.
ConOut(OemToAnsi("Cadastrar
produto:
02"))EndIfIf
lOk
ConOut(OemToAnsi("Inicio:
")+Time())
For
nY
:=
1
To
2
aCabec
:=
{}
aItens
:=
{}
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//|
Verifica
numero
da SC |da SC | //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
cDoc
:=
GetSXENum("SC1","C1_NUM")
SC1->(dbSetOrder(1))
While
SC1->(dbSeek(xFilial("SC1")+cDoc))
ConfirmSX8()
cDoc
:=
GetSXENum("SC1","C1_NUM")
EndDo
aadd(aCabec,{"C1_NUM"
,cDoc})
aadd(aCabec,{"C1_SOLICIT","Administrador"})
aadd(aCabec,{"C1_EMISSAO",dDataBase})
For
nX
:=
1
To
2
aLinha
:=
{}
aadd(aLinha,{"C1_ITEM"
,StrZero(nx,len(SC1->C1_ITEM)),Nil})
aadd(aLinha,{"C1_PRODUTO","01",Nil})
aadd(aLinha,{"C1_QUANT"
,
11 ,Nil})
aadd(aItens,aLinha)
Next
nX
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//|
Teste
de Inclusao |de Inclusao | //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
MSExecAuto({|x,y|
mata110(x,y)},aCabec,aItens)
If
!lMsErroAuto
ConOut(OemToAnsi("Incluido
com
sucesso!
")+cDoc)
Else
ConOut(OemToAnsi("Erro
na
inclusao!"))
EndIf
Next
nY
ConOut(OemToAnsi("
FimFim :
")+Time())EndIfRESET
ENVIRONMENTReturn(.T.)