Função: MATA175 - Programa de Baixas do Controle de Qualidade (CQ)
Abrangências: | Protheus 10 |
Versões: | Protheus 10 |
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: | Português (Brasil) |
Descrição:
OBJETIVO:
Esta rotina tem o objetivo de controlar o fluxo dos produtos direcionados ao Controle de Qualidade
Programa Fonte:
MATA175.PRX
Sintaxe:
MATA175 - Programa de Baixas do Controle de Qualidade (CQ) ( [ PARAMIXB1 ] [ PARAMIXB2 ] ) --> NULO
Retorno:
-
NULO(nulo)
Observações
Além disso, transfere os produtos do armazém do Controle de Qualidade, previamente cadastrado e definido no parâmetro "MV_CQ", para o armazém digitado.
Exemplos
#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function ROT_MATA175()Local dDataL:=DATE()Local aLibera := {}Local cNumCQ := "SK0005" // Numero do movimento criado anteriormenteLocal cProd := "1"+Space(14)Local cLocal := "98"PRIVATE lMsErroAuto := .F.//------------------------//| Abertura do ambiente |//------------------------PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "SB1","SD7" dDataL:= dDataBaseConOut(Repl("-",80))ConOut(PadC("Teste - Baixas do Controle de Qualidade (CQ)",80))ConOut("Inicio: "+Time())//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Inclusao |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ DbGoTop()dbSeek(xFilial()+cNumCq+cProd+cLocal)If !Found() .Or. SD7->D7_TIPO != 0 ReturnEndifaAdd(aLibera,{ {"D7_TIPO" ,1 ,Nil},; // 1=Libera o item do CQ / 2=Rejeita o item do CQ {"D7_DATA" ,dDataL ,Nil},; // {"D7_QTDE" ,1 ,Nil},; // {"D7_OBS" ,"" ,Nil},; // {"D7_QTSEGUM" ,3 ,Nil},; // {"D7_MOTREJE" ,"" ,Nil},; // {"D7_LOCDEST" ,"01" ,Nil},; // {"D7_SALDO" ,NIL ,Nil},; // {"D7_SALDO2" ,NIL ,Nil},; {"D7_ESTORNO" ,NIL ,Nil}}) // MSExecAuto({|x,y,z| MATA175(x,y)},aLibera,4) If !lMsErroAuto ConOut("Incluido com sucesso! ") Else ConOut("Erro na inclusao!")EndIfConOut("Fim : "+Time())Return Nil
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
PARAMIXB1 | Array of Record | Campos da tabela SD7 | |||||||||||||||
PARAMIXB2 | Array of Record | 4 - Liberar/Rejeitar o item do CQ |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas