Função: MATA185 - Baixa de Pré-Requisições Gerando as Requisições
| Versões: | Protheus 10 |
| Compatível Países: | Brasil |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Português (Brasil) |
Descrição:
Objetivo: Executar a rotina automática Baixa de Pré-Requisições gerando as Requisições.Tipo de execução para a rotina automática.1 = "Baixar"2 = "Estorno"5 = "Excluir"6 = "Encerrar"
Programa Fonte:
MATA185.PRX
Sintaxe:
MATA185 - Baixa de Pré-Requisições Gerando as Requisições ( [ ExpA1 ] [ ExpA2 ] [ ExpN1 ] [ ExpA3 ] )
Retorno:
- ()
Observações
User Function MyMata185()
Local aCamposSCP
Local aCamposSD3
Local cNum := "000085" // No.da Requisicao
Local cItem := "03" // No.do Item da Req.
Local aRetCQ := {}
Local nOpcAuto:= 1 // BAIXA
dbSelectArea("SCP")
dbSetOrder(1)
If SCP->(dbSeek(xFilial("SCP")+cNum+cItem))
aCamposSCP := { {"CP_NUM" ,SCP->CP_NUM ,Nil },;
{"CP_ITEM" ,SCP->CP_ITEM ,Nil },;
{"CP_QUANT" ,SCP->CP_QUANT ,Nil }}
aCamposSD3 := { {"D3_TM" ,"501" ,Nil },; // Tipo do Mov.
{"D3_COD" ,SCP->CP_PRODUTO,Nil },;
{"D3_LOCAL" ,SCP->CP_LOCAL ,Nil },;
{"D3_DOC" ,"SK0050" ,Nil },; // No.do Docto.
{"D3_EMISSAO" ,DDATABASE ,Nil } }
lMSHelpAuto := .F.
lMsErroAuto := .F.
MSExecAuto({|v,x,y,z| mata185(v,x,y)},aCamposSCP,aCamposSD3,nOpcAuto) // 1 = BAIXA (ROT.AUT)
Local aCamposSCP
Local aCamposSD3
Local cNum := "000085" // No.da Requisicao
Local cItem := "03" // No.do Item da Req.
Local aRetCQ := {}
Local nOpcAuto:= 1 // BAIXA
dbSelectArea("SCP")
dbSetOrder(1)
If SCP->(dbSeek(xFilial("SCP")+cNum+cItem))
aCamposSCP := { {"CP_NUM" ,SCP->CP_NUM ,Nil },;
{"CP_ITEM" ,SCP->CP_ITEM ,Nil },;
{"CP_QUANT" ,SCP->CP_QUANT ,Nil }}
aCamposSD3 := { {"D3_TM" ,"501" ,Nil },; // Tipo do Mov.
{"D3_COD" ,SCP->CP_PRODUTO,Nil },;
{"D3_LOCAL" ,SCP->CP_LOCAL ,Nil },;
{"D3_DOC" ,"SK0050" ,Nil },; // No.do Docto.
{"D3_EMISSAO" ,DDATABASE ,Nil } }
lMSHelpAuto := .F.
lMsErroAuto := .F.
MSExecAuto({|v,x,y,z| mata185(v,x,y)},aCamposSCP,aCamposSD3,nOpcAuto) // 1 = BAIXA (ROT.AUT)
If lMsErroAuto
Conout("[MyMata185] Erro na execução da MATA185.")
MostraErro()
Else
Conout("[MyMata185] MATA185 executada com sucesso.")
EndIf
Else
Conout("[MyMata185] Req. "+cNum +" do item "+cItem+" nao encontrada na base de dados")
EndIf
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| ExpA1 | Array of Record | Array com lista de campos (SCP) | |||||||||||||||
| ExpA2 | Array of Record | Array com lista de campos (SD3) | |||||||||||||||
| ExpN1 | Array of Record | Numero da opcao selecionada | |||||||||||||||
| ExpA3 | Array of Record | Array contendo parametros p/ perguntas |