#include <WinAPILocale.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListviewConstants.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <String.au3>
;~ global $test = "esta,es,una,cadena"
$www=0
$constrim="DRIVER={SQL Server};SERVER=server;DATABASE=database;uid=user;pwd=password;"
$adCN = ObjCreate ("ADODB.Connection") ; <== Create SQL connection
$adCN.Open ($constrim) ; <== Connect with required credentials
$registros = "SELECT top(1) COUNT(*) OVER () AS TotalRecords FROM BI_T431 INNER JOIN BI_T125 ON BI_T125.rowid_item_ext=BI_T431.f_rowid_item_ext AND BI_T125.parametro_biable = '1' where BI_T431.f_id_tipo_docto = 'pw' and f_estado_docto = 'Cumplido' group by f_id_tipo_docto,f_nrodocto,f_cargue,f_cliente_fact"
$query4="SELECT f_co,f_id_tipo_docto , f_nrodocto,sum(f_valor_neto_docto) as valor,f_cargue,(select f200_razon_social from t200_mm_terceros where f200_nit = f_cliente_fact) as cliente FROM BI_T431 INNER JOIN BI_T125 ON BI_T125.rowid_item_ext=BI_T431.f_rowid_item_ext AND BI_T125.parametro_biable = '1' where BI_T431.f_id_tipo_docto = 'pw' and f_estado_docto = 'Cumplido' group by f_id_tipo_docto,f_nrodocto,f_cargue,f_cliente_fact,f_co"
;~ $result5 = $adCN.Execute($query5)
$num_registros = $adCN.Execute($registros)
$TotalRecords = $num_registros.Fields("TotalRecords").value
$result4 = $adCN.Execute($query4)
Dim $item[$TotalRecords]
Dim $test = "esta,es,una,cadena"
Dim $pedido[10]
GUICreate("listview items", 700, 200, -1, -1, -1, $WS_EX_ACCEPTFILES)
$listview = GUICtrlCreateListView("tipo documento|num documento|Cliente| Cargue|Valor|Centro de Operaciones", 10, 10, 680, 150, -1, $LVS_EX_CHECKBOXES)
$button = GUICtrlCreateButton("Documentos a procesar?", 75, 170, 170, 20)
While NOT $result4.EOF ; hace el bucle hasta que llegue al final de la consulta del select
;=>> aqui alguna función que haga algo con los datos la manipulas como texto,
;=>> recuperas el valor de las variables/campos user y telefono con->
$item[$www] = GUICtrlCreateListViewItem($result4.Fields("f_id_tipo_docto").value & "|" & $result4.Fields("f_nrodocto").value & "|" & $result4.Fields("cliente").value & "|" & $result4.Fields("f_cargue").value & "|" & (_WinAPI_GetNumberFormat(0, ceiling($result4.Fields("valor").value), _WinAPI_CreateNumberFormatInfo(0, 1, 3, '', ',', 1))&"|"& $result4.Fields("f_co").value & @CRLF) , $listview)
$www=$www+1
$result4.MoveNext ; mueve al siguiente registro del select
WEnd
GUISetState()
Do
$msg = GUIGetMsg()
Select
Case $msg = $button
For $x = 1 To $TotalRecords
If _GUICtrlListView_GetItemChecked($listview, $x - 1) Then
Local $pedido = _StringExplode(_GUICtrlListView_GetItemTextString($listview, $x - 1), "|", 0)
;~ $pedido = StringSplit(_GUICtrlListView_GetItemTextString($listview, $x - 1),"|")
MsgBox(0, "listview item", $pedido[3] &"= este fue el test" , 2)
;~ MsgBox(0, "listview item", _GUICtrlListView_GetItemTextString($listview, $x - 1) & " " & @CRLF & "nombre usuario = " & $test, 2)
EndIf
Next
Case $msg = $listview
MsgBox(0, "listview", "clicked=" & GUICtrlGetState($listview), 2)
EndSelect
Until $msg = $GUI_EVENT_CLOSE
now i need to add a combobox as a column to this