Linha de Produto: | Linha Protheus |
---|---|
Segmento: | Backoffice |
Módulo: | Financeiro |
A rotina FINA621 possui 2 parâmetros a serem informados.
xAutoCab: Array com o número da Solicitação de Transferência a ser processada.
nOpc: Opção que está sendo realizada no fonte: 3-Inclusão.
Para o correto funcionamento da rotina padrão e automática deverá estar com os seguintes cadastros efetuados: Parâmetro MV_IMPTRAN - Geração dos impostos. Será gerado os impostos retidos na baixa ( '1' = Filial de Origem - * No momento da transferência / '2' = Filial de Destino - * Na baixa. ) Cadastro do Motivo de Baixa sigla "TRF" - Cadastro o Motivo de Baixa através da rotina FINA490 , disponível em Miscelânea->Arquivos->Tabela de Motivos de Baixas |
#Include "PROTHEUS.CH" /*/{Protheus.doc} F621IncAuto Inclusão Solicitação de Transferência /*/ USer FUnction F621IncAuto() Local cE2_Pref := " " Local cE2_Num := "00102031 " Local cE2_Fornece := "000001" Local cE2_Loja := "01" Local cFilSE2 := "D MG 01 " Local cFilDest := "D MG 01 " Local aCab := {} Private lMsErroAuto := .F. RPCSETENV("T1", "D MG 01", "admin", "1234", "FIN", "FINA621") If SE2->( dbSeek( cFilSE2+cE2_Pref+cE2_Num+" "+"NF")) aadd(aCab, {"E6_FILDEB",cFilDest}) aadd(aCab, {"E6_CLIENTE",cE2_Fornece}) aadd(aCab, {"E6_LOJA",cE2_Loja}) aadd(aCab, {"AUTHISTDEB","solicitado pelo FINA621 via execauto."}) //Inclusao de Solicitação de transferencia MSExecAuto({|a, b| FINA621(a,b)}, aCab,3) If lMsErroAuto //mostraerro() //Se for usado em interface conout('erro na inclusao') Else //MsgStop("Processo realizado com sucesso.") // Se for usado em interface conoute('Processo realizado com sucesso.') EndIf Else //MsgStop("Titulo não encontrado.") // Se for em interface conout('Titulo nao encontrado') EndIf Return |
Não há.
Ponto de entrada.
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |