#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
User Function My280()
Local lBat := .T. //-- Caso a rotina seja rodada em batch(.T.), senão (.F.)
Local dDataFecLocal cArq1 := "ARQF1" //-- Arquivo onde serão descarregados os dados do arquivo SF1
Local cArq2 := "ARQD1" //-- Arquivo onde serão descarregados os dados do arquivo SD1
Local cArq3 := "ARQF2" //-- Arquivo onde serão descarregados os dados do arquivo SF2
Local cArq4 := "ARQD2" //-- Arquivo onde serão descarregados os dados do arquivo SD2
Local cArq5 := "ARQD3" //-- Arquivo onde serão descarregados os dados do arquivo SD3
Local cArq6 := "ARQC2" //-- Arquivo onde serão descarregados os dados do arquivo SC2
Local cArq7 := "ARQF9" //-- Arquivo onde serão descarregados os dados do arquivo AF9
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" USER 'Administrador' PASSWORD 'senha' MODULO "EST" TABLES "SB2","SB9","SC2","SD1","SD2","SD3","SB1","SF1","SF2"
pergunte("MTA330",.F.)
dDataFec := MV_PAR01dbSelectArea("SM0")
dbGoTop()
dbSeek("9901")
AADD(aEmpresas,M0_CODIGO+M0_CODFIL)
MATA280(lBat,dDataFec,cArq1,cArq2,cArq3,cArq4,cArq5,cArq6,cArq7)
RESET ENVIRONMENT
Return Nil |