BLQCOB - Efetua a impressão do bloqueto bancário

O ponto de entrada está localizado na impressão do bloqueto bancário, para que possa ser efetuada a impressão do Bloqueto bancário.

Function IMPBLQRDM()

FG_SEEK("SD2","SF2->F2_DOC+SF2->F2_SERIE",3,.F.)
FG_SEEK("SC5","SD2->D2_PEDIDO",1,.F.)
FG_SEEK("SA6","SC5->C5_BANCO",1,.F.)

cObs1 := Substr(SA6->A6_MENSAGE,001,40)
cObs2 := Substr(SA6->A6_MENSAGE,041,40)
cObs3 := Substr(SA6->A6_MENSAGE,081,40)

cPrefixo := SF2->F2_PREFIXO

If ExistBlock("BLQCOB")
   ExecBlock("BLQCOB",.f.,.f.,{SF2->F2_DUPL,,,,cPrefixo,"1",cObs1,cObs2,cObs3,SC5->C5_BANCO})
else
  Help(1," ","NOWINDOWS",,STR0014,4,1)  //O Nome do RDMAKE padrao é BLQCOB
Endif
 
Return

OFIOR390, BLQCOB

BLQCOB - Efetua a impressão do bloqueto bancário ( [ SF2->F2_DUPL ], [ cPrefixo ], [ cObs1 ], [ cObs2 ], [ cObs3 ], [ SC5->C5_BANCO ] )

()

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡„o    ³ BLQCOB    ³ Autor ³ Rafael Goncalves      ³ Data ³ 06/10/09 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡„o ³ Ponto de entrada que permite a impressao dos boletos     ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Sintaxe   ³                                                            ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³                                                            ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/User Function BLQCOB()MsgAlert("O Ponto de Entrada 'IMPBLQRDM' foi executado!","Sucesso!")Return