Versões comparadas
comparado com
Chave
- Esta linha foi adicionada.
- Esta linha foi removida.
- A formatação mudou.
...
Exemplo
Sem Formato |
---|
#Include 'Protheus.ch' #INCLUDE "TBICONN.CH" USER FUNCTION F280AUTO() LOCAL aCab := {} // array enviado para a rotina LOCAL aTit := {} // array com os títulos a faturar LOCAL nOpc := 0 //Dados do título LOCAL cPreFat := "FAT" LOCAL cFil1 := "D MG 01 " LOCAL cNumFat := "FT001 " LOCAL cTipo := "FT " Local cParFat := "001" LOCAL cCliFat := "001 " LOCAL cLoja := "01" LOCAL cNatFat := "001 " LOCAL cCondFat := "003" LOCAL cRecno := "3" LOCAL dDataBase := STOD("20160612") Private lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA 'T1' FILIAL 'D MG 01 ' While .T. aCab := {} aTit := {} nOpc := Aviso("TESTE EXECAUTO DO FINA280", "Escolha a opção do menu da rotina FINA280 a ser executada via EXECAUTO",{"FAT","CANC","SAIR"}) lMsErroAuto := .F. If nOpc == 1 //|---------------------------------| //| Dados para Fatura | //|---------------------------------| AADD(aCab, {"AUTPREFIXO" , cPreFat , Nil}) AADD(aCab, {"AUTTIPO" , cTipo , Nil}) AADD(aCab, {"AUTNUMFAT" , cNumFat , Nil}) AADD(aCab, {"AUTNATUR" , cNatFat , Nil}) AADD(aCab, {"AUTMOEDA" , "01" , Nil}) AADD(aCab, {"AUTCLIGER" , cCliFat , Nil}) AADD(aCab, {"AUTLOJGER" , cLoja , Nil}) AADD(aCab, {"AUTCONDPG" , cCondFat , Nil}) //|---------------------------------| //| SELECIONA TÍTULOS | //|---------------------------------| DbSelectArea("SE1") SE1->(DbSetOrder(1)) SE1->(DbSeek(xFilial("SE1")+"MAN001 NF 00101")) // Título cRecno := cValToChar(SE1->(Recno())) aTit := {} AADD(aTit, {"RECNO" , cRecno, Nil}) // R_E_C_N_O_ do registro selecionado aAdd(aCab,{"AUTSELTIT",aTit,Nil}) // Adicionando os Títulos a serem Faturados; MsExecAuto( { |x,y,z| FINA280(x,y,z)} , 3, .F. , aCab) If lMsErroAuto MostraErro() Else Alert("Fatura gerada com sucesso!") Endif ElseIf nOpc == 2 //|---------------------------------| //| SELECIONA FATURA À CANCELAR | //|---------------------------------| DbSelectArea("SE1") SE1->(DbSetOrder(1)) SE1->(DbSeek(xFilial("SE1")+cPreFat+cNumFat+cParFat+cTipo+cCliFat+cLoja)) // Título cRecno := cValToChar(SE1->(Recno())) aAdd(aCab,{"AUTTITCAN",cRecno,Nil}) // Adicionando recno da Fatura a ser cancelada; MsExecAuto( { |x,y,z| FINA280(x,y,z)} , 4, .F., aCab) If lMsErroAuto MostraErro() Else Alert("Fatura cancelada com sucesso!") Endif ElseIf nOpc == 3 Exit EndIf EndDo RESET ENVIRONMENT Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas