FiveTech Support Forums

DEFINE DIALOG oDlg RESNAME "Maestros" Of oWnd TITLE "Traspasar maestros de transacciones por fechas"

aBitmap := { LoadBitmap( GetResources(), "NoSeleccionado" ),;
             LoadBitmap( GetResources(), "Seleccionado" ) }

Select PasoB
REDEFINE LISTBOX Tb ;
         FIELDS If( PasoB->Exito," ","X" ),;
                PasoB->Identity,;
                PasoB->Tabla,;
                ptocom(PasoB->RegHisto,10),;
                ptocom(PasoB->RegFecha,10),;
                ptocom(PasoB->RegEstad,10),;
                ptocom(PasoB->RegArras,10),;
                ptocom(PasoB->RegTotTr,10),;
                PAsoB->Error ;
         HEADERS " ","I","Nombre de Tabla","Regs.Históricos","Trasp.por Fecha","Trasp.por Estado","Trasp.por Arrastre","Total Traspasados", "Errores" ;
         ID 120 Of oDlg ;
         SIZES 16,16,120,120,120,120,120,120,450

Tb:aJustify   := {.f.,.f.,.f.,.t.,.t.,.t.,.t.,.t.,.f.}
Tb:bLdblClick := {|| MsgInfo(PasoB->Error,"ATENCION") }
Tb:bKeyDown   := {|nKey| If( nKey == VK_SPACE, Eval( Tb:bLDblClick ), NIL ) }

REDEFINE SAY l121 PROMPT PasoB->Tabla ID 121 Of oDlg

REDEFINE BTNGET oGetDir VAR cGetAno PICTURE "9999" ID 122 Of oDlg

REDEFINE BUTTON oBtnSalir ID 150 Of oDlg ACTION oDlg:End()
oBtnsalir:cToolTip := "Salir de la ventana"

REDEFINE BUTTON oBtn140 ID 140  Of oDlg ACTION (ProcesarPorFecha( oDlg,TabPri,Tb,l121,cGetAno,BaseDest,Basehist,Tact,Tcamp ),LLENAPASOB(),TB:GOTOP(),TB:REFRESH() )
oBtn140:cToolTip := "Traspasa documentos con fecha superior a corte "

REDEFINE BUTTON oBtn123 ID 123  Of oDlg ACTION (ProcesarPorestado(oDlg,TabPri,Tb,l121,cGetAno,BaseDest,Basehist,Tact,Tcamp ),LLENAPASOB(),TB:GOTOP(),TB:REFRESH() )
oBtn123:cToolTip := "Traspasa documentos con fecha anterior a corte pero en estado pendiente "

REDEFINE BUTTON oBtn124 ID 124  Of oDlg ACTION (ProcesarPorarrastre(oDlg,TabPri,Tb,l121,cGetAno,BaseDest,Basehist,Tact,Tcamp ),LLENAPASOB(),TB:GOTOP(),TB:REFRESH() )
oBtn124:cToolTip := "Traspasa documentos con fecha anterior a corte pero con relación con documentos traspasados"

REDEFINE BUTTON oBtn126 ID 126  Of oDlg ACTION ( ConsolidaStock(oDlg,TabPri,Tb,BaseDest),LLENAPASOB(),TB:GOTOP(),TB:REFRESH() )
oBtn126:cToolTip := "Recalcula Stock de los productos"

ACTIVATE DIALOG oDlg CENTERED

Maestros DIALOG 95, 62, 594, 310
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
CAPTION "Importar/Exportar Tablas del Sistema"
FONT 8, "MS Sans Serif"
{
 CONTROL "", 120, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 11, 23, 571, 226
 PUSHBUTTON "Paso2. Traspaso por estado", 123, 154, 269, 140, 14
 PUSHBUTTON "Paso3. Traspaso por arrastre", 124, 298, 269, 140, 14
 PUSHBUTTON "Paso4. Precálculo de Stock", 126, 444, 269, 140, 14
 PUSHBUTTON "Paso5. Guias ajuste stock", 127, 11, 287, 140, 14
 PUSHBUTTON "Paso6. Revisión resultados", 128, 154, 287, 140, 14
 PUSHBUTTON "Salir", 150, 297, 287, 140, 14
 PUSHBUTTON "Paso1. Revisión resultados", 140, 11, 269, 140, 14
 LTEXT "Indique último año histórico :", -1, 13, 7, 96, 8
 EDITTEXT 122, 106, 5, 34, 12
 RTEXT "Tabla en proceso :", -1, 82, 256, 69, 8
 LTEXT "...", 121, 153, 253, 430, 13, WS_BORDER | WS_GROUP
 LTEXT "...", 125, 144, 5, 437, 12, WS_BORDER | WS_GROUP
}