Amigo Rochinha,
Vi um post seu anterior, onde você comenta de um gerador de cadastros a partir de algum DBF.
Você tem algum exemplo e como montar esse gerador?
abs,
Roberto Calado
roberto@mrc.inf.br

Moderador: Moderadores
#xcommand @ <nRow>, <nCol> COMBOBOX [ <oCbx> VAR ] <cVar> ;
[ <it: PROMPTS, ITEMS> <aItems> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ ON CHANGE <uChange> ] ;
[ VALID <uValid> ] ;
[ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
[ <pixel: PIXEL> ] ;
[ FONT <oFont> ] ;
[ <update: UPDATE> ] ;
[ MESSAGE <cMsg> ] ;
[ WHEN <uWhen> ] ;
[ <design: DESIGN> ] ;
[ BITMAPS <acBitmaps> ] ;
[ ON DRAWITEM <uBmpSelect> ] ;
[ STYLE <nStyle> ] ;
[ PICTURE <cPicture> ];
[ ON EDIT CHANGE <uEChange> ] ;
=> ;
[ <oCbx> := ] TComboBox():New( <nRow>*13, <nCol>*8, bSETGET(<cVar>),;
<aItems>, <nWidth>, <nHeight>, <oWnd>, <nHelpId>,;
[{|Self|<uChange>}], <{uValid}>, <nClrText>, <nClrBack>,;
.T., fntHelvetica, <cMsg>, <.update.>, <{uWhen}>,;
<.design.>, <acBitmaps>, [{|nItem|<uBmpSelect>}], <nStyle>,;
<cPicture>, [<{uEChange}>] )
#define MOSTRA_PAG_1 "M"
#define CONSULTA "C"
#define ALTERACAO "A"
#define EXCLUSAO "E"
#define INCLUSAO "I"
#define _TREEVIEW_CH
#define WM_SETREDRAW 11
#define TVS_HASBUTTONS 1
#define TVS_HASLINES 2
#define TVS_LINESATROOT 4
#define TVS_EDITLABELS 8
#define TVS_SHOWSELALWAYS 32
#define TIS_NORMAL 0
#define TIS_FIRST 1
#define TIS_LAST 2
#define TIS_PARENT 4
#define TIS_OPEN 8
// insert styles
#define IS_FIRST 1
#define IS_LAST 2
#define IS_AFTER 3
#define IS_FIRSTCHILD 4
#define IS_LASTCHILD 5
// get styles
#define TVGN_ROOT 0
#define TVGN_NEXT 1
#define TVGN_PREVIOUS 2
#define TVGN_PARENT 3
#define TVGN_CHILD 4
#define TVGN_CARET 5
// expand styles
#define TVE_COLLAPSE 0
#define TVE_EXPAND 1
#define TVE_TOGGLE 2
#xcommand @ <nRow>, <nCol> TREE <oTree> ;
[ SIZE <nWidth>, <nHeight> ] ;
[ ON CHANGE <uChange> ] ;
[ ON [ LEFT ] DBLCLICK <uLDblClick> ] ;
[ <of: OF, WINDOW, DIALOG > <oWnd> ] ;
[ VALID <uValid> ] ;
[ <color: COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
[ FONT <oFont> ] ;
[ BITMAPS <aBitmaps> ] ;
[ MASKS <aMasks> ] ;
[ <help:HELP, HELPID, HELP ID> <nHelpId> ] ;
[ MESSAGE <cMsg> ] ;
[ WHEN <uWhen> ] ;
[ <pixel: PIXEL> ] ;
[ TREE STYLE <nTreeStyle> ] ;
=> ;
<oTree> := TTreeView():New( <nRow>, <nCol>, <nWidth>, <nHeight>, <oWnd>, ;
<aBitmaps>, <aMasks>, <{uChange}>, <{uLDblClick}>, <{uValid}>, <nHelpId>, ;
<nClrFore>, <nClrBack>, <oFont>, <cMsg>, <{uWhen}>, <.pixel.>, <nTreeStyle> )
#xcommand @ <nRow>, <nCol> SPLITTER [ <oSplit> ] ;
[ <h: HORIZONTAL> ] ;
[ <v: VERTICAL> ] ;
[ PREVIOUS CONTROLS <aPrevCtrols,...> [ <prev: NO ADJUST> ] ] ;
[ HINDS CONTROLS <aHindCtrols,...> [ <hind: NO ADJUST> ] ] ;
[ <margin1: TOP MARGIN, LEFT MARGIN > <nMargin1> ] ;
[ <margin2: BOTTOM MARGIN, RIGHT MARGIN > <nMargin2> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <lPixel: PIXEL > ] ;
[ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
[ ON CHANGE <uChange,...> ] ;
[ <lLook3d: 3D, 3DLOOK, _3D, _3DLOOK> ] ;
[ <color: COLOR,COLORS > <nClrBack> ] ;
[ <design: DESIGN > ] ;
[ <update: UPDATE > ] ;
=> ;
[ <oSplit> := ] TSplitter():New( <nRow>, <nCol>, ;
(.not.<.h.>) [.or. <.v.>], [\{<aPrevCtrols>\}], .not.<.prev.>, ;
[\{<aHindCtrols>\}], .not.<.hind.>, ;
[{|| <nMargin1>}], [{|| <nMargin2>}], ;
[<oWnd>], [\{||<uChange>\}], ;
<nWidth>, <nHeight>, <.lPixel.>, ;
<.lLook3d.>, <nClrBack>, <.design.>, <.update.> )
#xcommand @ <nRow>, <nCol> BITMAP [ <oBmp> ] ;
[ <resource: NAME, RESNAME, RESOURCE> <cResName> ] ;
[ <file: FILENAME, FILE, DISK> <cBmpFile> ] ;
[ <NoBorder:NOBORDER, NO BORDER> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
[ <lClick: ON CLICK, ON LEFT CLICK> <uLClick> ] ;
[ <rClick: ON RIGHT CLICK> <uRClick> ] ;
[ <scroll: SCROLL> ] ;
[ <adjust: ADJUST> ] ;
[ CURSOR <oCursor> ] ;
[ <pixel: PIXEL> ] ;
[ MESSAGE <cMsg> ] ;
[ <update: UPDATE> ] ;
[ WHEN <uWhen> ] ;
[ VALID <uValid> ] ;
[ <lDesign: DESIGN> ] ;
=> ;
[ <oBmp> := ] TBitmap():New( <nRow>*08, <nCol>*4, <nWidth>*3.5, <nHeight>*3.5,;
<cResName>, <cBmpFile>, <.NoBorder.>, <oWnd>,;
[\{ |nRow,nCol,nKeyFlags| <uLClick> \} ],;
[\{ |nRow,nCol,nKeyFlags| <uRClick> \} ], <.scroll.>,;
<.adjust.>, <oCursor>, <cMsg>, <.update.>,;
<{uWhen}>, .t., <{uValid}>, <.lDesign.> )
#xcommand @ <nRow>, <nCol> OFOLDER [<oFolder>] ;
[ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
[ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] ;
[ <dlg: DIALOG, DIALOGS, PAGE, PAGES> <cDlgName1> [,<cDlgNameN>] ] ;
[ <lPixel: PIXEL> ] ;
[ <lDesign: DESIGN> ] ;
[ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
[ OPTION <nOption> ] ;
[ SIZE <nHeight>, <nWidth> ] ;
[ MESSAGE <cMsg> ] ;
[ <lAdjust: ADJUST> ] ;
[ FONT <oFont> ];
=> ;
[<oFolder> := ] TFolder():New( <nRow>*08, <nCol>*4,;
[\{<cPrompt>\}], \{<cDlgName1> [,<cDlgNameN>]\},;
<oWnd>, <nOption>, <nClrFore>, <nClrBack>, .T.,;
<.lDesign.>, <nWidth>*4, <nHeight>*8, <cMsg>, <.lAdjust.>,;
fntHelvetica )
#xcommand @ <nRow>, <nCol> FOLDER [<oFolder>] ;
[ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
[ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] ;
[ BITMAPS <cBmps,...> ] ;
[ <dlg: DIALOG, DIALOGS, PAGE, PAGES> <cDlgName1> [,<cDlgNameN>] ] ;
[ <lPixel: PIXEL> ] ;
[ <lDesign: DESIGN> ] ;
[ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
[ OPTION <nOption> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ MESSAGE <cMsg> ] ;
[ <lAdjust: ADJUST> ] ;
[ FONT <oFont> ] ;
[ STYLE <cDir: TOP, BOTTOM> ] ;
[ TABCOLOR <nTabClr> ] ;
[ FOCUSCOLOR <nFocusClr> ] ;
[ ALIGN <cAlign: LEFT, CENTER, RIGHT> ] ;
=> ;
[<oFolder> := ] TFolder():New( <nRow>*08, <nCol>*4,;
[\{<cPrompt>\}], \{<cDlgName1> [,<cDlgNameN>]\},;
<oWnd>, <nOption>, <nClrFore>, <nClrBack>, .T.,;
<.lDesign.>, <nWidth>*4, <nHeight>*8, <cMsg>, <.lAdjust.>,;
fntHelvetica, [\{<cBmps>\}], <"cDir">, <nTabClr>, <nFocusClr>, ;
<"cAlign"> )
#xcommand @ <nRow>, <nCol> CHECKBOX [ <oCbx> VAR ] <lVar> ;
[ PROMPT <cCaption> ] ;
[ <of:OF, WINDOW, DIALOG> <oWnd> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ FONT <oFont> ] ;
[ <change: ON CLICK, ON CHANGE> <uClick> ] ;
[ VALID <ValidFunc> ] ;
[ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
[ <design: DESIGN> ] ;
[ <pixel: PIXEL> ] ;
[ MESSAGE <cMsg> ] ;
[ <update: UPDATE> ] ;
[ WHEN <WhenFunc> ] ;
=> ;
[ <oCbx> := ] TCheckBox():New( (<nRow>*13)-.5, <nCol>*8, <cCaption>,;
[bSETGET(<lVar>)], <oWnd>, <nWidth>, 10, <nHelpId>,;
[<{uClick}>], fntHelvetica, <{ValidFunc}>, <nClrFore>, <nClrBack>,;
<.design.>, .T., <cMsg>, <.update.>, <{WhenFunc}> )
#xcommand @ <nRow>, <nCol> PAGES <oPag> TITLE <cTitle> ;
[ ID <nId> ] ;
[ OF <oWnd> ] ;
[ DIALOGS <DlgName,...> ] ;
[ OPTION <nOption> ] ;
[ SIZE <nHeight>, <nWidth> ] ;
[ ON CHANGE <uChange> ] ;
[ FONT <oFont> ];
=> <oPag> := TPages():New2( <nId>,;
<nRow>*08, <nCol>*4, <nHeight>*8, <nWidth>*4, <oWnd>, <cTitle>, ;
[{<DlgName>}], <nOption>, [ bSETGET(<uChange>) ], fntHelvetica )
#xcommand @ <nTop>, <nLeft> LINETO <nBottom>, <nRight > ;
[ <label:LABEL,PROMPT> <cLabel> ] ;
[ OF <oWnd> ] ;
[ COLOR <nClrFore> [,<nClrBack>] ] ;
[ <lPixel: PIXEL> ] ;
[ <lDesign: DESIGN> ] ;
=> TGroup():New( <nTop>*8, <nLeft>*4, <nTop>*8, <nRight>*4,;
OemToAnsi(<cLabel>), <oWnd>, <nClrFore>, <nClrBack>, .T.,;
[<.lDesign.>] )
#command @ <nRow>, <nCol> SAY <cText> GET [ <oGet> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ PICTURE <cPict> ] ;
[ VALID <ValidFunc> ] ;
[ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ FONT <oFont> ] ;
[ <design: DESIGN> ] ;
[ CURSOR <oCursor> ] ;
[ <pixel: PIXEL> ] ;
[ MESSAGE <cMsg> ] ;
[ <update: UPDATE> ] ;
[ WHEN <uWhen> ] ;
[ <lCenter: CENTER, CENTERED> ] ;
[ <lRight: RIGHT> ] ;
[ ON CHANGE <uChange> ] ;
[ <readonly: READONLY, NO MODIFY> ] ;
[ <pass: PASSWORD> ] ;
[ <lNoBorder: NO BORDER, NOBORDER> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
=> ;
@ <nRow>, <nCol> SAY <cText> OF <oWnd> ;;
;
[ <oGet> := ] TGet():New( <nRow>, <nCol>+7, bSETGET(<uVar>),;
[<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,;
<nClrFore>, <nClrBack>, <oFont>, <.design.>,;
<oCursor>, <.pixel.>, <cMsg>, <.update.>, <{uWhen}>,;
<.lCenter.>, <.lRight.>,;
[\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,;
<.pass.>, [<.lNoBorder.>], <nHelpId> )
#command @ <nRow>, <nCol> SAY <cText> GET [ <oGet> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ <memo: MULTILINE, MEMO, TEXT> ] ;
[ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ FONT <oFont> ] ;
[ <hscroll: HSCROLL> ] ;
[ CURSOR <oCursor> ] ;
[ <pixel: PIXEL> ] ;
[ MESSAGE <cMsg> ] ;
[ <update: UPDATE> ] ;
[ WHEN <uWhen> ] ;
[ <lCenter: CENTER, CENTERED> ] ;
[ <lRight: RIGHT> ] ;
[ <readonly: READONLY, NO MODIFY> ] ;
[ VALID <uValid> ] ;
[ ON CHANGE <uChange> ] ;
[ <lDesign: DESIGN> ] ;
[ <lNoBorder: NO BORDER, NOBORDER> ] ;
[ <lNoVScroll: NO VSCROLL> ] ;
=> ;
@ <nRow>, <nCol> SAY <cText> OF <oWnd> ;;
;
[ <oGet> := ] TMultiGet():New( <nRow>, <nCol>+7, bSETGET(<uVar>),;
[<oWnd>], <nWidth>, <nHeight>, <oFont>, <.hscroll.>,;
<nClrFore>, <nClrBack>, <oCursor>, <.pixel.>,;
<cMsg>, <.update.>, <{uWhen}>, <.lCenter.>,;
<.lRight.>, <.readonly.>, <{uValid}>,;
[\{|nKey, nFlags, Self| <uChange>\}], <.lDesign.>,;
[<.lNoBorder.>], [<.lNoVScroll.>] )
#command @ <nRow>, <nCol> SAY <cText> GET [ <oGet> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ PICTURE <cPict> ] ;
[ VALID <ValidFunc> ] ;
[ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ FONT <oFont> ] ;
[ <design: DESIGN> ] ;
[ CURSOR <oCursor> ] ;
[ <pixel: PIXEL> ] ;
[ MESSAGE <cMsg> ] ;
[ <update: UPDATE> ] ;
[ WHEN <uWhen> ] ;
[ <lCenter: CENTER, CENTERED> ] ;
[ <lRight: RIGHT> ] ;
[ ON CHANGE <uChange> ] ;
[ <readonly: READONLY, NO MODIFY> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ;
=> ;
@ <nRow>, <nCol> SAY <cText> OF <oWnd> ;;
;
[ <oGet> := ] TGet():New( <nRow>, <nCol>+7, bSETGET(<uVar>),;
[<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,;
<nClrFore>, <nClrBack>, <oFont>, <.design.>,;
<oCursor>, <.pixel.>, <cMsg>, <.update.>, <{uWhen}>,;
<.lCenter.>, <.lRight.>,;
[\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,;
.f., .f., <nHelpId>,;
<.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}> )
//--------------------------------------------------------------------------//
#ifndef ASSIST_CH
#define ASSIST_CH
#define ARCH_RECUR "ASSIST.DLL"
#define TASISTENTE "TAssist v1.1"
#define MNU_HELP "A&juda" // Help
#define MNU_ANIMAR "&Animar" // Animate
#define MNU_STOP "&Parar Animacao" // Stop Animation
#define MNU_RESUME "&Terminar Animacao" // Resume Animation
#define MNU_CLOSE "&Fechar Assistente" // Close Assistant
#define TXT_HELLO "Hola que tal, Me necesitas?" // Hello, do you need me?
#define TXT_MYNAME "Mi nombre es" // My name is
#define TXT_WHATCAN "Que quieres que haga?" // What can i do for you?
#define TXT_SHWCONT "Mostrar el contenido de la ayuda" // Show the help content
#define TXT_SHWINDX "Mostrar el Indice de la ayuda" // Show the help index
#define TXT_CLOSEWN "Cerrar la ventana" // Close the window
#define TXT_FINDINF "Buscar informacion, teclea lo que buscas.." // Find information, type here..
#define TXT_CLICKME "Haz Click en mi para"+CRLF+"obtener ayuda !!" // Click on Me to get some help
#define TXT_CHRNAME "JCSO" // The name of the assistant
#define TXT_OK "Ok" // Button OK
#define TXT_YES "Sim" // Button Yes
#define TXT_NO "Nao" // Button NO
#define TXT_CANCEL "Cancelar" // Button CANCEL -- Not available yet
#define CLR_TEXTO CLR_BLACK
#define CLR_FONDO CLR_YELLOW
#define nTotalAnimaciones 5
#define nTotalAsistentes 6
#define OJITOS 1
#define TACHIDO 2
#define MARIPOSA 3
#define SNOOPY 4
#define MANDM 5
#define GATITA 6
#xcommand DEFINE ASSIST <oAssist> ;
[ CHARACTER <nCharac> ] ;
[ NAME CHARACTER <cName> ] ;
[ FRAME INTERVAL <nInter> ] ;
[ CHANGE ANIMATION INTERVAL <nCamAni> ] ;
[ MSGCLICK <cMsgClk> ] ;
[ <lCambiar: CHANGE ANIMATIONS > ] ;
[ <lMenu: WITH MENUPOPUP> ] ;
[ HELP FILE <cHelpFile> ] ;
[ SHOW AT <nRow>,<nCol> ] ;
=> ;
[ <oAssist> := ] TAssist():New( <cName>, <nCharac>, <nCamAni>, ;
<nInter>, <.lCambiar.>, <nRow>, <nCol>, ;
<cMsgClk>, <cHelpFile>, <.lMenu.> )
#xcommand ACTIVATE ASSIST <oAssist> => <oAssist>:Show()
#endif
//--------------------------------------------------------------------------//
#ifndef _OUTLOOK_CH
#define _OUTLOOK_CH
#xcommand @ <nRow>, <nCol> OUTLOOK [<oOut>] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ BITMAP <cBmp> ] ;
[ RESOURCE <cResBmp> ] ;
[ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
[ STYLE <nStyle> ] ;
[ BRUSH <oBrush> ] ;
[ FONT <oFont> ] ;
[ <lPixel: PIXEL> ] ;
[ MESSAGE <cMsg> ] ;
[ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
[ <help: HELP, HELPID> <nHelpId> ] ;
[ ON RIGHT CLICK <uRClicked> ] ;
=> ;
[<oOut> := ] TOutLook():New( <nRow>, <nCol>, ;
<nWidth>, <nHeight>, <cBmp>, <cResBmp>, ;
<nClrFore>, <nClrBack>, <nStyle>, <oBrush>, <oFont>, ;
<.lPixel.>, <cMsg>, <oWnd>, <nHelpId>, ;
[{|nRow,nCol,nFlags|<uRClicked>}] )
#xcommand DEFINE GROUP OF OUTLOOK <oOut> ;
[ PROMPT <cPrompt> ] ;
[ <action: ACTION, ON CLICK> <uAction> ] ;
[ WHEN <bWhen> ] ;
[ MESSAGE <cMsg> ] ;
[ FONT <oFont> ] ;
=> ;
<oOut>:AddGroup( <cPrompt>, [{|Self|<uAction>}], ;
[{|Self|<bWhen>}], <cMsg>, <oFont> )
#xtranslate DEFINE ICON OF OUTLOOK <*oOut*> => DEFINE ITEM OF OUTLOOK <oOut>
#xcommand DEFINE ITEM OF OUTLOOK <oOut> ;
[ GROUP <nGroup> ] ;
[ PROMPT <cPrompt> ] ;
[ <action: ACTION, ON CLICK> <uAction> ] ;
[ ON RIGHT CLICK <uRClicked> ] ;
[ ICON <cIcon> ] ;
[ RESOURCE <cResIco> ] ;
[ WHEN <bWhen> ] ;
[ MESSAGE <cMsg> ] ;
[ FONT <oFont> ] ;
[ <lAdjust: ADJUST> ] ;
[ <lBorder: BORDER> ] ;
[ TOOLTIP <cToolTip> ] ;
=> ;
<oOut>:AddItem( <cPrompt>, <cIcon>, <cResIco>, ;
[{|Self|<uAction>}], <nGroup>, ;
[{|Self|<bWhen>}], <cMsg>, ;
[{|nRow,nCol,nFlags|<uRClicked>}], <oFont>, ;
<.lAdjust.>, <.lBorder.>, <cToolTip>, .t. )
#xcommand DEFINE BITMAP OF OUTLOOK <oOut> ;
[ GROUP <nGroup> ] ;
[ PROMPT <cPrompt> ] ;
[ <action: ACTION, ON CLICK> <uAction> ] ;
[ ON RIGHT CLICK <uRClicked> ] ;
[ BITMAP <cBmp> ] ;
[ RESOURCE <cResBmp> ] ;
[ WHEN <bWhen> ] ;
[ MESSAGE <cMsg> ] ;
[ FONT <oFont> ] ;
[ <lAdjust: ADJUST> ] ;
[ <lBorder: BORDER> ] ;
[ TOOLTIP <cToolTip> ] ;
=> ;
<oOut>:AddItem( <cPrompt>, <cBmp>, <cResBmp>, ;
[{|Self|<uAction>}], <nGroup>, ;
[{|Self|<bWhen>}], <cMsg>, ;
[{|nRow,nCol,nFlags|<uRClicked>}], <oFont>, ;
<.lAdjust.>, <.lBorder.>, <cToolTip>, .f. )
#endif
//--------------------------------------------------------------------------//
C:\DOWNLOAD\gerador>DBF2PRG CADETIQ /C/I
MAKEfunc 1.0 Direiros Reservados 1999-2000 Soft Clever Informatica ME.
Criando... CADETIQ
+------------------------------------------------+
¦ Error BASE/1132 Bound error: array access ¦
¦ ¦
¦ Quit ¦
+------------------------------------------------+
Usuários vendo este fórum: Nenhum usuário registrado online e 15 visitantes