Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Anderson Brunner

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Anderson Brunner

Gravado em

Chave

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

MATA110 - Solicitação de Compras

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

PARAMIXB1
Vetor
Array contendo o cabeçalho da Solicitação de Compra.







PARAMIXB2
Vetor
Array contendo os itens da Solicitação de Compra.







PARAMIXB3
Numérico
Opção desejada: 3-Inclusão; 4-Alteração ; 5-Exclusão ; 7-Aprovação (Somente versão Protheus 10)
3





PARAMIXB4
Lógico
Controle Interno - Informa se a rotina é chamada via MRP.
.F.





PARAMIXB5
Lógico
Indica se apresenta ou não a Dialog da Rotina Automática.
.F.


..

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:
Nome
Tipo
Escopo
Pode Alterar
Descrição


Array of Record
Global
Não


Observações:

Esta rotina pode ser utilizada via Rotina Automática.


Exemplo:

User

Function

MyMata110()Local

aCabec

:=

{}Local

aItens

:=

{}Local

aLinha

:=

{}Local

nX     

nX :=

0Local nY     

0Local nY :=

0Local

cDoc   

cDoc :=

""Local

lOk   

lOk :=

.T.

         Private lMsHelpAuto

Private lMsHelpAuto :=

.T.PRIVATE

lMsErroAuto

:=

.F.//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//|

Abertura

do ambiente                                         

do 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 teste                           

para 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"

 

,

1   

1 ,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("

Fim 

Fim :

")+Time())EndIfRESET

ENVIRONMENTReturn(.T.)