Linha Microsiga Protheus

Árvore de páginas

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