Esta rotina tem a finalidade de efetuar o lançamento automático do Cadastro de Complemento do Produto do mecanismo de rotina automática.
Para utilização desta rotina, necessitamos somente do array para passagem dos dados do Produto
#Include "RwMake.CH"
#include "tbiconn.ch"
User Function TMata180()
Local aCab := {}
private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "XIFIS26" MODULO "FIS"
aCab:= { {"B5_COD" ,"1234" ,Nil},; // Codigo identificador do produto
{"B5_CEME" ,"Nome cientifico" ,Nil}} // Nome cientifico do produto
MSExecAuto({|x,y| Mata180(x,y)},aCab,3)
//Inclusao
conout("Acabou de executar a rotina automatica do Cadastro de Complemento do Produto")
//-- Retorno de erro na execucao da rotina
If lMsErroAuto
conout("erro")
cErro:=MostraErro()
Else
conout("Ok")
Endif
Return |