Linha Microsiga Protheus

Árvore de páginas

Função: MATA242 - Rotina Automática de Desmontagem de Produtos
Abrangências: Microsiga Protheus 11 , Protheus 10
Versões: Protheus 10
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Descrição: 
Esta rotina possibilita a realização das transferências múltiplas, ou seja, transferências de um único produto para vários produtos, através do mecanismo de rotina automática.
Programa Fonte: 
MATA242.PRX
Sintaxe:

MATA242 - Rotina Automática de Desmontagem de Produtos ( aCabecaItensnOpclVar )

Retorno:
    (nulo)
Exemplos 
Function tAuto242()Private lMsErroAuto := .F.Local aAutoCab := {	{"cProduto"   , Pad("PA", Len(SD3->D3_COD))	 , Nil},;   			{"cLocOrig"   , "01"				 , Nil},;			{"nQtdOrig"   , 100 				 , Nil},;			{"nQtdOrigSe" , CriaVar("D3_QTSEGUM")		 , Nil},;			{"cDocumento" , Pad("0123", Len(SD3->D3_DOC))    , Nil},;			{"cNumLote"   , CriaVar("D3_NUMLOTE")		 , Nil},;			{"cLoteDigi"  , CriaVar("D3_LOTECTL")		 , Nil},;			{"dDtValid"   , CriaVar("D3_DTVALID")		 , Nil},;			{"nPotencia"  , CriaVar("D3_POTENCI")		 , Nil},;			{"cLocaliza"  , CriaVar("D3_LOCALIZ")		 , Nil},;			{"cNumSerie"  , CriaVar("D3_NUMSERI")		 , Nil}}Local aAutoItens := {{	{"D3_COD"    , Pad("MP1", Len(SD3->D3_COD))	, Nil}, ;			{"D3_LOCAL"  , "01"							, Nil}, ;			{"D3_QUANT"  , 1							, Nil}, ;			{"D3_QTSEGUM", 1							, Nil}, ;			{"D3_RATEIO" , 20 							, Nil}},;		     {	{"D3_COD"    , Pad("MP2", Len(SD3->D3_COD))	, Nil}, ;			{"D3_LOCAL"  , "01"							, Nil}, ;			{"D3_QUANT"  , 24							, Nil}, ;			{"D3_QTSEGUM", 2							, Nil}, ;			{"D3_RATEIO" , 80 							, Nil}}}MSExecAuto({|v,x,y,z| Mata242(v,x,y,z)},aAutoCab,aAutoItens,3,.T.) //inclusaõIf lMsErroAuto	Mostraerro()EndIfAlert("Inclusao Ok. Verifique arquivos e continue para estorno")MSExecAuto({|v,x,y,z| Mata242(v,x,y,z)},aAutoCab,aAutoItens,5,.T.) // estornoIf lMsErroAuto	Mostraerro()EndIfReturn
Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aCabec Array of Record Cabeçalho X
aItens Array of Record Itens X
nOpc Array of Record Opção :3=Incluir4=Alterar5=Estornar X
lVar Array of Record .T. X