Histórico da Página
Wiki Markup |
---|
||Descrição|| A rotina automática tem como objetivo permitir a inclusão e a exclusão de Faturas por Documentos de Transporte (CTE/CTRC) através de programas para atender as necessidades específicas do cliente. ||Observações|| ||Exemplos||//-- Exemplo execucao rotina automáticaautomatica para geracao faturas por documentos User Function TM850Inc() Local cAlias := GetNextAlias() Local cQuery := "" Local aCabDT6 := {} Local aRegDT6 := {} Local lTMSCTe := SuperGetMv( "MV_TMSCTE", .F., .F. ) //-- Parametro do CT-e ativo. //-- Filtros CTE Local cTipo := "FT" Local cFilDeb := "01" Local cCliFat := Padr("000001",Len(SA1->A1_COD )) Local cLojFat := Padr("01" ,Len(SA1->A1_LOJA)) Local dDataDe := CToD("01/08/2013") Local dDataAte := CToD("31/08/2013") //-- Parametros rotina automatica Local nMoedFat := 1 Local dEmisFat := dDataBase Local dVencFat := CToD( "31/12/2013" ) Local cNat := "NATFAT" lMsErroAuto := .F. nModulo := 43 //-- Layout contendo informacoes necessarias para geracao da fatura. aRegDT6 := {{ "DT6_FILDOC", (cAlias)->(DT6_FILDOC),Nil},; // 1 { "DT6_DOC" , (cAlias)->(DT6_DOC ),Nil},; // 2 { "DT6_SERIE" , (cAlias)->(DT6_SERIE ),Nil},; // 3 { "DT6_VALTOT", (cAlias)->(DT6_VALTOT),Nil},; // 4 { "DT6_ACRESC", (cAlias)->(DT6_ACRESC),Nil},; // 5 { "DT6_DECRES", (cAlias)->(DT6_DECRES),Nil},; // 6 { "_SI_VALFAT", (cAlias)->(DT6_VALFAT),Nil},; // 7 { "DT6_DATEMI", (cAlias)->(DT6_DATEMI),Nil},; // 8 { "_SI_UFDEST", (cAlias)->(UFDEST ),Nil},; // 9 { "RECNO" , (cAlias)->(RECNO ),Nil} } // 10 AAdd(aCabDT6,aClone(aRegDT6)) EndDo (cAlias)->(dbCloseArea()) MsExecAuto({|q,r,s,t,u,v,w,x,y,z|TmsA850(q,r,s,t,u,v,w,x,y,z)}, aCabDT6, 3, cTipo, cFilDeb, cCliFat, cLojFat, nMoedFat, dEmisFat, dVencFat, cNat) If lMsErroAuto MostraErro() EndIf Return Nil //-- Exemplo execucao rotina automáticaautomatica para exclusao faturas por documentos User Function TM850Exc() Local cAlias := GetNextAlias() Local cQuery := "" Local aCabDT6 := {} Local aRegDT6 := {} Local lTMSCTe := SuperGetMv( "MV_TMSCTE", .F., .F. ) //-- Parametro do CT-e ativo. //-- Filtros CTE Local cTipo := "FT" Local cFilDeb := "01" Local cCliFat := Padr("000001",Len(SA1->A1_COD )) Local cLojFat := Padr("01" ,Len(SA1->A1_LOJA)) Local dDataDe := CToD("01/08/2013") Local dDataAte := CToD("31/08/2013") Local cPrefix := "FT " Local cNum := "000052 " Local cParc := "00A" //-- Parametros rotina automatica Local nMoedFat := 1 Local dEmisFat := dDataBase Local dVencFat := CToD( "31/12/2013" ) Local cNat := "NATFAT" lMsErroAuto := .F. nModulo := 43 //-- Posicionar titulo SE1 dbSelectArea("SE1") dbSetOrder(1) //E1_FILIAL+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO dbSeek(xFilial("SE1")+cPrefix+cNum+cParc+cTipo) //-- Layout contendo informacoes necessarias para geracao da fatura. aRegDT6 := { { "DT6_FILDOC", (cAlias)->(DT6_FILDOC),Nil},; // 1 { "DT6_DOC" , (cAlias)->(DT6_DOC ),Nil},; // 2 { "DT6_SERIE" , (cAlias)->(DT6_SERIE ),Nil},; // 3 { "DT6_VALTOT", (cAlias)->(DT6_VALTOT),Nil},; // 4 { "DT6_ACRESC", (cAlias)->(DT6_ACRESC),Nil},; // 5 { "DT6_DECRES", (cAlias)->(DT6_DECRES),Nil},; // 6 { "_SI_VALFAT", (cAlias)->(DT6_VALFAT),Nil},; // 7 { "DT6_DATEMI", (cAlias)->(DT6_DATEMI),Nil},; // 8 { "_SI_UFDEST", (cAlias)->(UFDEST ),Nil},; // 9 { "RECNO" , (cAlias)->(RECNO ),Nil} } // 10 AAdd(aCabDT6,aClone(aRegDT6)) MsExecAuto({|x,y|TmsA850(x,y)}, aCabDT6, 5) If lMsErroAuto MostraErro() EndIf Return Nil ||Preview|| ||Veja também|| ||Idioma|| Português(Brasil) ||Versões|| Microsiga_Protheus11 ||Sistemas Operacionais Suportados||Todos ||Compatível com as Bases de Dados||Todas ||Updates|| ||Parâmetros|| aAutoCab - Cabeçalho dos Documentos de Transporte, matriz conforme layout abaixo. Item 01 "DT6_FILDOC", conteúdo, Nil Item 02 "DT6_DOC", conteúdo, Nil Item 03 "DT6_SERIE", conteúdo, Nil Item 04 "DT6_VALTOT", conteúdo, Nil Item 05 "DT6_ACRESC", conteúdo, Nil Item 06 "DT6_DECRES", conteúdo, Nil Item 07 "_SI_VALFAT", conteúdo, Nil Item 08 "DT6_DATEMI", conteúdo, Nil Item 09 "_SI_UFDEST", conteúdo, Nil Item 10 "RECNO", conteúdo, Nil nOpcAuto – Opção Menu (numérico), onde 3 para inclusão e 5 para exclusão. cTipo – Tipo Fatura (caracter). cFilDeb – Filial Débito (caracter). cCliente – Cliente (caracter). cLoja – Loja (caracter). nMoeAut – Moeda (numérico). dEmiAut – Data de Emissão (data). dVenAut – Data de Vencimento da Fatura (data). cNatAut – Natureza Operação (caracter) ||Retorno|| ||Eventos de chamada do Ponto de Entrada|| ||Variáveis|| ||Programa Fonte|| TMSA850.PRW |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas