Histórico da Página
...
Utilizado em customizações onde o processo não necessita de interações do usuário (MSEXECAUTO)
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#Include 'Protheus.ch'
//---------------------------------
// CHEQUE SOBRE TITULOS |
//---------------------------------
User Function MyFA390()
Local aArray := {}
Local cCheque:= "2906001"
Local nOpc := 2 // 2 - Chq s/ titulo, 3 - Avulso
Private lMsErroAuto := .F.
aArray := { { "AUTBANCO" , "237" , NIL },;
{ "AUTAGENCIA" , "33901" , NIL },;
{ "AUTCONTA" , "125008 " , NIL },;
{ "AUTCHEQUE" , cCheque , NIL },;
{ "AUTVENCINI" , CtoD("21/06/2016") , NIL },; // Remover caso utilizar opc 3
{ "AUTVENCFIM" , CtoD("29/06/2016"), NIL },; // Remover caso utilizar opc 3
{ "AUTVALOR" , 5000, NIL },;
{ "AUTFORN" , "001", NIL },;
{ "AUTBENEF" , "F PADRAO " , NIL },;
{ "AUTNATUREZA" , "10101 ", NIL } }
MsExecAuto( { |x,y,z| FINA390(x,y,z)} ,0, aArray, nOpc)
If lMsErroAuto
MostraErro()
Else
Alert("O cheque "+cCheque+" foi gerado com sucesso!")
Endif
Return |
03. OPERAÇÕES
- Avulsos
Procedimento para inserção de cheques que não possuam nenhum titulo vinculado a eles.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas